Переменные целого типа (Integer) Эти переменные занимают в памяти 2 байта.Значения переменных – целые числа в диапазоне ÷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 – переменные или выражения
Пример алгоритма с использованием целого типа 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 B2 OST15 C1 D5
Примеры использования функций 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= Yes 14 13
Примеры использования функций 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=
Пример 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
Задания для самостоятельной работы 1. Составить программу, переводящую данный вес, выраженный в тоннах, в пуды и фунты. (1 Пуд=16кг, 1 фунт451гр. Для отладки: 5 тонн=312 пудов, 20 фунтов ). Подсказка – найти целое число пудов, остаток от деления перевести в фунты. 2. Дано натуральное число N < Найти и напечатать первую цифру числа N. Подсказка – использовать условный оператор для определения делителя числа N (от до 10). 3. Найти сумму цифр четырехзначного числа 4. Перевести свой рост в футы и дюймы.(1 фут305 мм, 1 дюйм 25мм) 5. Используя оператор Case составить программу, которая по номеру компьютера, печатает его пользователя.