Добавил:
Glavniy_toksik_RTF
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные (txt) / Lab2
.txt 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.
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.