А) Список
R={(2,2),(2,4),(2,8),(2,10),(4,4),(4,8),(4,10),(8,8),(8,10),(10,10)}
B) Матрица отношения
R | 2 | 4 | 8 | 10 |
2 | 1 | 1 | 1 | 1 |
4 | 0 | 1 | 1 | 1 |
8 | 0 | 0 | 1 | 1 |
10 | 0 | 0 | 0 | 1 |
В программе для этого частного случая создается массив 5 на 5, причем первый столбец и первая строка — элементы множества введенные пользователем.
program menshe;
type
univ=array [1..5,1..5] of integer;
var
a:univ;
i,j,x:integer;
begin
for i:=1 to 4 do
begin
readln(x);
a[1,i+1]:=x;
a[i+1,1]:=x;
end;
for i:=2 to 5 do
for j:=2 to 5 do
if a[i,1]<=a[1,j] then a[i,j]:=1 else a[i,j]:=0;
for i:=2 to 5 do
begin
for j:=2 to 5 do write (a[i,j]);
writeln;
end;
readln;
end.