Как удалить из строки повторы слов?, Строки Опции

[Shmaniche]

Люди, помогите. Очень нужна программа на Паскале, которая бы удалила повторы слов в строке, а затем выводила результат.

Например: rabbit wolf wolf
Должно получиться “rabbit wolf”.
wolf rabbit wolf
Должно получиться “wolf rabbit” или “rabbit wolft”.
bat bat
Должно получиться “bat”.
pig pig cat
Должно получиться “pig cat”.

В качестве разделителя слов - пробелы.
Желательно код с комментариями.

[Shmaniche]

Lapp
Если бы все было так просто, я бы тему не открывал . Этот вопрос три дня мучил .
Спасибо за код, дальше сам доработаю

[Lapp]

Если бы все было так просто, я бы тему не открывал . Этот вопрос три дня мучил

Тоже неправильно. Чего ждать? Открывай всегда - поболтаем..
Нет проблем, удачи тебе.

[Shmaniche]

Lapp
Тоже неправильно. Чего ждать? Открывай всегда - поболтаем..
Нет проблем, удачи тебе.

погоди, а если юзер введет не слова-константы а любые слова через пробел? как в таком случае убрать дубли?

хотя если убрать константы, то работает с любыми словами .

Сообщение отредактировано: Shmaniche - 10.06.2010 8:23

[Lapp]

погоди, а если юзер введет не слова-константы а любые слова через пробел? как в таком случае убрать дубли?

Нет никакой разницы. Что за "слова-константы"? В данном случае s есть "типизированная константа", которая на деле эвивалентна переменной с начальным значением. Я использовал ее для упрощения отладки, и не более того.

Если хочешь, можно так:

var
  i,j,k: integer;
  s,p,q: string;

begin
  Write('Type in a string: ');
  ReadLn(s);
  i:=1;
  while i<Length(s) do begin
    while (i<Length(s)) and (s[i]=' ') do Inc(i);
    j:=i;
    while (i<Length(s)) and (s[i]<>' ') do Inc(i);
    q:=Copy(s,j,i-j);
    repeat
      p:=Copy(s,i,Length(s)-i+1);
      k:=Pos(q,p);
      if k>0 then Delete(s,i+k-1,i-j)
    until k=0
  end;
  WriteLn(s);
  ReadLn
end.

[Shmaniche]

Нет никакой разницы. Что за "слова-константы"? В данном случае s есть "типизированная константа", которая на деле эвивалентна переменной с начальным значением. Я использовал ее для упрощения отладки, и не более того.

Ввел другие слова. Проверил, работает.
Но интересно в чем состоит ошибка предыдущей программы?

[Lapp]

Но интересно в чем состоит ошибка предыдущей программы?

В генокоде программера. Я не хочу тратить время на копание в хламе. Беглого взгляда достаточно, чтобы сказать, что подход неверный.

вот, например, есть автомобиль Жигули, и он даже ездит, хоть и не всегда. И есть автомобиль Хонда, скажем, который ездит всегда и гораздо лучше. В чем ошибка создателей Жигулей? Во всем, начиная с того, что в школе плохо учились.

Программирование - сложная и неоднозначная штука. Одно и то же можно сделать по-разному и с разной эффективностью. В большинстве случаев, ошибочен сам подход к написанию. Какой смысл тогда разбирать, где у там пропущена мелкая деталь?..