Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные / Lab1

program Lab1;
type
{Диапазон:}
a = -10..10;

{Перечисление:}
num = (one, two, three);

var
{Целые:}
c1 : byte;
c2 : word;
c3 : shortint;
c4 : integer;
c5 : longint;

{Логический:}
b1 : boolean;
b2 : boolean;
b3 : boolean;

{Тип-диапазон:}
d1 : a;

{Символьный тип:}
ch1 : char;

{Перечисляемый тип:}
p1 : num;

begin
{Присвоим значения переменным:}
randomize;
c1 := 1;
c2 := 2;
c3 := -3;
c4 := 4;
c5 := 5;
b1 := true;
b2 := true;
b3 := false;

ch1 := 'E';

{Операции над переменными:}
Inc(c1); {Увеличить на еденицу}
Dec(c2); {Уменьшить на еденицу}
c3 := Abs(c3); {Модуль числа}
c4 := Sqr(c4); {Квадрат числа}
c4 := swap(c4); {Смена байтов местами}
c5 := random(c5); {Рандомное число (от 0 до с5-1)}
writeln(c1);
writeln(c2);
writeln(c3);
writeln(c4);
writeln(c5);

if b1 and Odd(c1) or b2 xor b3 then begin
writeln(ord(ch1)); {Число в таблице}
end;

if (c1 = c2) or (c2 <> c3) or (c3 < c4) or (c4 <= c5) or (c2 > c3) or (c3 >= c5) then begin
writeln(chr(72)); {Символ из таблицы ascii}
end;

d1 := 5; {Присвоение значения из диапазона}
p1 := two; {Присвоение значения из перечисления}
writeln(d1);
writeln(p1);
end.