2. Результаты выводятся на экран (с необходимыми пояснениями) в следующем виде:
а) матрица бинарного отношения размера n´ n;
б) список свойств данного отношения.
В матрице отношения строки и столбцы должны быть озаглавлены (элементы исходного множества, упорядоченного по возрастанию).
Код: Выделить всё
Program Mnojestva;
uses crt;
Type
Simvol = set of 'a'..'z';
Var
A:simvol;
i:integer;
x:char;
procedure vvod(name_set:string; var num_elem:integer; var one_set:simvol);
var x:char;
begin
clrscr;
writeln('vvedite ',num_elem,' element mnojestva ',name_set);
readln(x);
if (x in one_set)
then begin
writeln(x,' uje soderjitsya v mnojestve',name_set);
end
else begin
writeln(x,' pomeschon v mnojestvo',name_set);
one_set:=one_set+[x];
num_elem:=num_elem+1;
end;
end;
procedure vyvod(name_set:string;var one_set:simvol);
var x:char;
begin
writeln;
writeln(' rezultat mnojestvo ',name_set);
writeln;
for x:='a' to 'z' do if x in one_set then write(x,' ');
end;
begin
A:=[];
i:=1;
repeat
vvod('A',i,A);
until i>5;
clrscr;
writeln;
writeln;
writeln(' mnojestvo A: ');
writeln;
for x:='A' to 'z' do if x in A then write(x,' ');
end.
Добавлено сообщение
--------------------------------------------------------------------------------
Помогите разобраться с программой. Множество А ввожу,а вот как список упорядоченных пар, задающий отношение R не пойму.