Вывести на печатать все элементы множеств - Pascal ABC

Формулировка задачи:

Пусть заданы множества А, В, С вывести напечатать все элементы этих множеств.
program pro1;
uses
    op,obrabotki;
var a,b,c:mn;
begin
vvod(a,b,c);
vivod(a,b,c);
end.
unit obrabotki;
interface
uses op;
procedure vvod(var aa,bb,cc:mn);
procedure vivod(var a,b,c:mn);
implementation
 
procedure vvod(var aa,bb,cc:mn);
begin
     writeln('Введите множество А');
     aa:=[];
     for q:=1 to i do begin
                      read(q);
                      include(aa,q);
 
     writeln('Введите множество B');
     bb:=[];
     for w:=1 to i do begin
                      read(w);
                      include(bb,w);
     writeln('Введите множество C');
     cc:=[];
     for e:=1 to i do begin
                      read(e);
                      include(cc,e);
end;
end;
end;
end;
 
procedure vivod(var a,b,c:mn);
begin
     for q := 1 to i do
                      if q in a then write(q);
 
     for w := 1 to i do
                      if w in b then write(w);
 
     for e := 1 to i do
                      if e in c then write('e);
end;
end.
unit op;
interface
const i=5;
type mn= set of byte;
var q,w,e:integer;
implementation
end.

Код к задаче: «Вывести на печатать все элементы множеств - Pascal ABC»

textual
program pro1;
uses op,obrabotki,crt;
var a,b,c:mn;
begin
vvod(a,'A');
vvod(b,'B');
vvod(c,'C');
clrscr;
vivod(a,'A');
vivod(b,'B');
vivod(c,'C')
end.

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ