Переменные целого типа (Integer) Эти переменные занимают в памяти 2 байта.Значения переменных – целые числа в диапазоне -32768?32767 Арифметические действия и функции для работы с переменными целого типа + сложение - вычитание * умножение DIV деление нацело a div b MOD остаток от деления a mod b TRUNC целая часть trunc(a) ROUND ближайшее целое round(a) ODD нечетный odd(a) SUCC след


The Presentation inside:

Slide 0

Переменные целого типа (Integer) Эти переменные занимают в памяти 2 байта.Значения переменных – целые числа в диапазоне -32768?32767 Арифметические действия и функции для работы с переменными целого типа + сложение - вычитание * умножение DIV деление нацело a div b MOD остаток от деления a mod b TRUNC целая часть trunc(a) ROUND ближайшее целое round(a) ODD нечетный odd(a) SUCC следующий succ(a) PRED предыдущий pred(a) Здесь a,b – переменные или выражения


Slide 1

Пример алгоритма с использованием целого типа UROK3PR2 - программа, вычисляющая сумму цифр трехзначного числа: PROGRAM SUMMA; var A,B,C,D,OST,S:integer; Begin write('A=');read(A); B:=A DIV 100; OST:=A MOD 100; C:=OST DIV 10; D:=OST MOD 10; S:=B+C+D; writeln('сумма цифр равна ',S); end. Пусть А=215


Slide 2

Примеры использования функций Program primer; var a:integer;b:real; begin write(‘a,b=‘);read(a,b); writeln(trunc(b),‘ ‘,round(b)); if odd(a) then writeln(‘yes‘); a:=succ(a); writeln(a,’ ’,pred(a)); end. Выполнение программы: a,b=13 7.7 7 8 Yes 14 13


Slide 3

Примеры использования функций Program primer; var a:integer;b:real; begin write(‘a,b=‘);read(a,b); writeln(trunc(b),‘ ‘,round(b)); if not odd(a) then writeln(‘yes‘); a:=succ(a); writeln(a,’ ’,pred(a)); end. Выполнение программы: a,b=13 7.7 7 8 14 13


Slide 4

Пример UROK3PR3 program v; label 1;var i:integer; begin 1: write('Введите номер месяцa_?'); read(i); case i of 1..2,12: writeln('Зима'); 3..5: writeln('Весна'); 6..8: writeln('Лето'); 9..11: writeln('Осень'); else begin writeln('Такого месяца нет'); goto 1 end end end. Эта же программа без использования оператора CASE program v; label 1;var i:integer; begin 1: write('Введите номер месяцa_?'); read(i); if (i=1)or(i=2)or(i=12) then writeln(‘Зима’) else if (i=3)or(i=4)or(i=5)then writeln(‘Весна’) else if (i=6)or(i=7)or(i=8)then writeln(‘Лето’) else if (i=9)or(i=10)or(i=11)then writeln(‘Осень’) else begin writeln('Такого месяца нет'); goto 1 end end. Оператор ВЫБОР – CASE Оператор goto 1 – переход к метке 1. Создает цикл (повторение). Условие продолжения цикла – i не равно ни одному числу диапазона от 1 до 12


Slide 5

Задания для самостоятельной работы 1. Составить программу, переводящую данный вес, выраженный в тоннах, в пуды и фунты. (1 Пуд=16кг, 1 фунт?451гр. Для отладки: 5 тонн=312 пудов, 20 фунтов). Подсказка – найти целое число пудов, остаток от деления перевести в фунты. 2. Дано натуральное число N < 32000. Найти и напечатать первую цифру числа N. Подсказка – использовать условный оператор для определения делителя числа N (от 10000 до 10). 3. Найти сумму цифр четырехзначного числа 4. Перевести свой рост в футы и дюймы.(1 фут?305 мм, 1 дюйм?25мм) 5. Используя оператор Case составить программу, которая по номеру компьютера, печатает его пользователя.


×

HTML:





Ссылка: