Удалить слова, у которых нет повторяющихся букв

Posted by obzor under Delphi

Задача на Паскале. Дан текст, удалить слова, у которых нет повторяющихся букв.

Arigato

var
  s: string;
  i, p: integer;
  del: boolean;
  c: set of char;

begin
  s:='mama myla ramy i upala';//Readln(s);
  p:=length(s);
  del:=true;
  c:=[];
  for i:=p downto 0 do begin
    if (i=0) or (s[ i]=' ') then begin
      if del then delete(s,i+1,p-i+1);
      p:=i-1;
      del:=true;
      c:=[];
    end else begin
      if s[ i] in c then del:=false;
      c:=c+[s[ i]];
    end;
  end;
  writeln(s);
  readln;
end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)