Цитата:
Сообщение от Агнесса
Составить программу в Паскале с использованием файлов,процедуры,функции,записи,множества.
Даны три множества : Х1,состоящее из целых чисел от1 до 20; Х2,состоящее из целых чисел от 10 до 36; и Х3,которое включает все нечетные целые числа от 11 до 77.Сформировать множество Y=(X1UX2) ⋂(X1UX3)\(X2UX3),из которого выделить подмножество Y1 чисел,делящихся на 4 без остатка.Вывести множества Y,Y1 в текстовый файл.Исходные множества задать в программе .
|
Извините, но решительно не вижу, куда тут можно воткнуть процедуры, функции и записи, но в остальном - вроде так:
Код:
Var
X1,X2,X3,Y,Y1:Set of Byte;
i:Byte;
f:Text;
Begin
X1:=[];
X2:=[];
X3:=[];
for i:=1 to 20 do X1:=X1+[i];
for i:=10 to 36 do X2:=X2+[i];
for i:=5 to 38 do X3:=X3+[2*i+1];
Y:=(X1+X2)*(X1+X3)-(X2+X3);
Y1:=[];
for i:=1 to 77 do
if (i in Y) and ((i mod 4)=0) then Y1:=Y1+[i];
Assign(f,'Sets.txt');
Rewrite(f);
Write(f, 'Set Y: ');
for i:=1 to 77 do
if (i in Y) then write(f,i:4);
Writeln(f);
Write(f, 'Set Y1: ');
for i:=1 to 77 do
if (i in Y1) then write(f,i:4);
Close(f);
End.