Добавил:
Glavniy_toksik_RTF
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
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.
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.