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

program Lab2;
type
{Массив:}
m1 = array[0..5] of integer;
m2 = array[0..4, 0..4] of word;

{Запись:}
r = record a : integer; b : byte end;

{Множество:}
s = set of 0..50;

var
{Вещественные:}
v1 : single;
v2 : real;
v3 : double;
v4 : extended;
v5 : comp;

{Массив, запись, множество:}
mas1 : m1;
mas2 : m2;
rec : r;
set1 : s;

{Счетчик для циклов}
i, j: integer;

begin
v1 := 1.1;
v2 := 2.2;
v3 := 3.3;
v4 := 4.4;
v5 := 5.5;

for i := 0 to 5 do
mas1[i] := i;

for i := 0 to 4 do begin
for j := 0 to 4 do
mas2[i, j] := i*j;
end;

rec.a := 1;
rec.b := 2;

set1 := [0..10];

{====================}

v1 := sin(v1);
v2 := cos(v2);
v3 := arctan(v3);
v4 := exp(v4);
v5 := ln(v5);

writeln(v1);
writeln(v2);
writeln(v3);
writeln(v4);
writeln(v5);

v1 := frac(v1);
v2 := int(v2);
v3 := sqrt(v3);

writeln(v1);
writeln(v2);
writeln(v3);

{====================}

for i := 0 to 5 do begin
if ((mas1[i] <> 0) and (mas1[i] >= 0) and (mas1[i] < 10)) then
mas1[i] := mas1[i] * 2;
writeln(mas1[i]);
end;

for i := 0 to 4 do begin
for j := 0 to 4 do begin
write(mas2[i, j]);
write(' ');
end;
writeln('');
end;

writeln(rec.a);
writeln(rec.b);

include(set1, 0);
exclude(set1, 0);
set1 := set1 + [48..50];
set1 := set1 - [1, 4..7];
set1 := set1 * [9, 10];

for i := 0 to 50 do begin
if ((i in set1) and (set1 <> [100, 200]) and (set1 = set1)
or (set1 <= [50]) or (set1 >= [0..50])) then
writeln(i);
end;
end.