Технический форум - Помогите, пожалуйста, с программой в Паскаль

Цитата:

Сообщение от Агнесса (Сообщение 2378681)

Составить программу в Паскале с использованием файлов,процедуры,функции,записи,множества.
Даны три множества : Х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.