Переменные целого типа (Integer) Эти переменные занимают в памяти 2 байта.Значения переменных – целые числа в диапазоне -32768?32767 Арифметические действия и функции для работы с переменными целого типа + сложение - вы презентация

– целые числа в диапазоне -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 – переменные или выражения

трехзначного числа:

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

writeln(‘yes‘);
a:=succ(a);
writeln(a,’ ’,pred(a));
end.
Выполнение программы:
a,b=13 7.7
7 8
Yes
14 13

then writeln(‘yes‘);
a:=succ(a);
writeln(a,’ ’,pred(a));
end.
Выполнение программы:
a,b=13 7.7
7 8
14 13

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 Пуд=16кг, 1 фунт≈451гр. Для отладки: 5 тонн=312 пудов, 20 фунтов). Подсказка – найти целое число пудов, остаток от деления перевести в фунты.
2. Дано натуральное число N < 32000. Найти и напечатать первую цифру числа N. Подсказка – использовать условный оператор для определения делителя числа N (от 10000 до 10).
3. Найти сумму цифр четырехзначного числа
4. Перевести свой рост в футы и дюймы.(1 фут≈305 мм, 1 дюйм≈25мм)
5. Используя оператор Case составить программу, которая по номеру компьютера, печатает его пользователя.