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

program labor2;
type
m = array[0..10] of word;
m1 = array[0..1, 0..1] of word;

z = record a : byte; b : integer end;

mn = set of 0..20;

var
vesh1 : single;
vesh2 : real;
vesh3 : double;
vesh4 : extended;
vesh5 : comp;
i : word;

mas : m;
mas1 : m1;
zap : z;
mnoj : mn;


begin
randomize;

vesh1 := 1.55;
vesh1 := arctan(vesh1);
writeln(vesh1);

vesh2 := 2.55;
vesh2 := cos(vesh2);
writeln(vesh2);

vesh3 := 3.55;
vesh3 := sin(vesh3);
writeln(vesh3);

vesh4 := 4.55;
vesh4 := exp(vesh4);
writeln(vesh4);

vesh5 := 5.55;
vesh5 := ln(vesh5);
writeln(vesh5);

vesh1 := 1.55;
vesh1 := frac(vesh1);
writeln(vesh1);

vesh2 := 2.55;
vesh2 := int(vesh2);
writeln(vesh2);

vesh3 := 3.55;
vesh3 := sqrt(vesh3);
writeln(vesh3);


for i := 0 to 10 do begin
mas[i] := random(i);
end;

for i := 0 to 10 do begin
if ( (mas[i] <> 0) or (mas[i] = 5) and (mas[i] <= 100) and (mas[i] > -100)) then begin
mas[i] := mas[i] + 1;
write(mas[i], ' ');
end;
end;


mas1[0,0]:=mas[0];
mas1[0,1]:=mas[1];
mas1[1,0]:=mas[2];
mas1[1,1]:=mas[3];

writeln(mas1[0,0]);
writeln(mas1[0,1]);
writeln(mas1[1,0]);
writeln(mas1[1,1]);


zap.a := 250;
zap.b := 378;
writeln('');
writeln(zap.a - 50);
writeln(zap.b * 2);


mnoj := [0..15];
include(mnoj, 16);
exclude(mnoj, 15);
mnoj := mnoj - [5..10];
mnoj := mnoj * [12..14];
mnoj := mnoj + [13];

for i := 0 to 20 do begin
if ( (i in mnoj) and (mnoj <> [20..30]) or (mnoj <= [40]) or (mnoj >= [45]) ) then
writeln(i);
end;
end.