Определить, имеются ли в тексте слова, составленные из одних и тех же букв - Pascal

Узнай цену своей работы

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

Определить, имеются ли в тексте слова, составленные из одних и тех же букв, при этом количество повторений каждой буквы во внимание не принимается (например, "малина" и "налим").

Решение задачи: «Определить, имеются ли в тексте слова, составленные из одних и тех же букв»

textual
Листинг программы
const l=['А'..'Я','а'..'я'];
var s,st:String;
words:array[1..100] of String;
i,j,x,m:Integer;
l1,l2:set of Char;
b:Boolean;
begin
l1:=[];
l2:=[];
b:=False;
m:=0;
st:='';
Writeln('Введите последовательность слов, через пробел:');
Readln(s);
s:=s+' ';
for i:=1 to Length(s) do
 if s[i] in l then st:=st+s[i] else
  begin
  inc(m);
  words[m]:=st;
  st:='';
  end;
 
for i:=1 to m-1 do
 for j:=i+1 to m do
  begin
  for x:=1 to Length(words[i]) do Include(l1,UpCase(words[i][x]));
  for x:=1 to Length(words[j]) do Include(l2,UpCase(words[j][x]));
  if l1=l2 then b:=True;
  l1:=[];
  l2:=[];
  end;
if b then Writeln('Есть слова составленные из одинаковых наборов букв.') else Writeln('Таких слов нет!');
Readln;
end.

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы