Developing.ru

Код: Выделить всё

const
N=255;

var
A, B: array[1..N] of char;
nA, nB: integer;
i, j: integer;
ch: char;
eq: boolean;
sa,sb:string;

begin
nA := 0; {кол-во элементов в первом множестве}
nB := 0;{во втором}


Writeln('Введите множество в строку, элементы разделять пробелами ');
readln(Sa);
for i:=1 to Length(Sa) do begin  {до конца строки считать}
If sa[i]=' ' then delete(sa,i,1)  {удалим пробелы}
end;

Writeln('Введите 2e множество в строку, элементы разделять пробелами');
readln(Sb);
for i:=1 to Length(Sb) do begin  {см выше}
If sb[i]=' ' then delete(sb,i,1)
end;
nA:=Length(sa);  {новая длина без пробелов}
nB:=Length(sb); {--}
For i:=1 to nA do A[i]:=Sa[i];{заполняем массив символов}
For i:=1 to nB do B[i]:=Sb[i];



{Сортируем 1-е м*ожество}
for i:=1 to nA do   {сортировка}
for j:=1 to nA-1 do begin
if A[j] > A[j+1] then begin
ch := A[j];
A[j] := A[j+1];
A[j+1] := ch;
end;
end;

{Сортируем 2-е м*ожество}
for i:=1 to nB do
for j:=1 to nB-1 do begin
if B[j] > B[j+1] then begin
ch := B[j];
B[j] := B[j+1];
B[j+1] := ch;
end;
end;

{Ср*в*ив*ем м*ожеств*}
eq := true;
if nA<>nB then eq := false  {если размерность не равна, то соответственно не равны}

else begin  {проверяем равенство каждого символа}
for i:=1 to nA do
if A[i] <> B[i] then begin
eq := false; break; end  
else eq:= true;
end;

if eq = true then Writeln('Равны')
else Writeln('Не равны');
readln;
end.