Программы с линейной структурой. Целый тип данных.

Целый тип переменных: BYTEцелое число от 0 до 255, занимает одну ячейку памяти (байт). WORDцелое число от 0 до 65535, занимает два байта. INTEGERцелое число от –32768 до 32767, занимает два байта. LONGINTцелое число от – до , занимает четыре байта. SHORTINTцелое число от -128 до 127, занимает 1 байт.

Какого типа должна быть переменная, в которой хранятся следующие данные? Выбрать самый экономный вариант: 1. Количество учеников в классе? 2. Радиус Земли в метрах? 3. Масса человека в граммах? 4. Температура воздуха в градусах Цельсия в любой из дней в году? 5. Количество праздничных дней в году? 6. Произведение всех чисел от 1 до 100? 7. Сумма двух произвольных чисел из отрезка -200 до Byte 2. LongInt 3. Word 4. ShortInt 5. Byte 6. LongInt 7.Integer

Знаки операций в Паскале: *, /, -, +, div, mod (a div b) частное от деления а на b (a mod b) остаток, после деления а на b (а,b-целые!!! ) a div b= целое a mod b =целое a-a div b*b= a-(a div b)*b) 8 div 2 = 4 17 div 3 = 5 17 mod 3 = 2 -7 mod 2 = -1 1 mod (-5) =1 17 div 0 = ошибка деление на 0 0 div 5=0 0 mod 3 = 3 13 mod 0=ошибка деление на 0

Для быстрой работы с целыми числами определены процедуры: Inc(X) X:=X+1 Inc(X,N) X:=X+N Dec(X) X:=X-1 Dec(X,N) X:=X-N

Чему будут равны значения переменных: m:=32; n:=23; Dec(m,n); Inc(n,m) Dec(m,n) m:= - m; m:=32; n:=23; Dec(m,n), m=m-n=32-23=9 Inc(n,m), n=n+m=23+9=32 Dec(m,n), m=m-n=9-32=-23 m=23

Найти значения переменных х:=4*5 div 3 mod 2 y:= 4*5 div (3 mod 2) 4*5=20 20 div 3=2 2 mod 2 =0 X=0 3 mod 2=1 4*5=20 20 div 1=20

Дано пятизначное число. Поставьте в соответствие: Результат действий над переменной S div 100 mod 10 S mod 10 S div 10 mod 10 S div S mod 100 div 10 Имя переменной a b с d e В a хранится число десятков тысяч, b – число тысяч с – число сотен d – число десятков e – число единиц Например число 54321

Что будет выведено на экран, если пользователь ввел с клавиатуры число 3712 : … Var a,b,c,d: integer; … Readln(a); b:=a mod 1000 div 100; c:=a div 10 mod 10; d:=a mod div 100; Writeln(в числе, a,содержатся); Write (b:4); write(c:4); write(d:4); …. а=3712 B=7 C=1 D=37 На экране: В числе 3712 содержатся

Дана масса в кг, найти число полных центнеров. Program a1; Var n, m: integer; Begin Read (n); m:=n div 100; Writeln(в,n,кг, m,центнеров) End.

Дано натуральное число n (n>99). Найти цифру сотен в нем. Например, если n=4876, ответ 8, для n=195 ответ 1. M= x div 100 mod 10

Дано: а ый член арифметической прогрессии, d – разность прогрессии, Найти 30-ый член прогрессии A n =a 1 +d(n-1) A 30 =a 1 +d(30-1) Program a2; Var a1, a30, d: integer; Begin Read (a1,d); a30:=a1+d*29; Writeln(30-ый член арифметической прогрессии=,а 30 ) End.

Дано четырехзначное число, найти сумму цифр его составляющих. Program a3; Var n, a, b, c, d: integer; Begin Read (n); a:=n div 1000; b:= n div 100 mod 10; c:= n div 10 mod 10; d:= n mod 10; Writeln(a+b+c+d) End. n=1234 a=1234 div 1000 = div 100 =12 b=12 mod 10= div 10=123 c=123 mod 10 = 3 d=1234 mod 10 = 4