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

[Shmanich]

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

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

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

[Shmanich]

Для затравки кидую код. Нашел в сети, но он работал неправильно. Затем заменил всего одну строчку и программа стала выдавать верные значения, кроме одной комбинации.
Итак:

program string; 
uses crt; 
const 
dividers=[' ']; 
var 
tempS, s: string; 
a: array[1..128] of string; 
i, j, max: integer; 
flag: boolean; 
begin 
write('Enter string: '); readln(s); 
tempS:=''; 
{vaidelyaem i udalyaem povoti slov iz stroki} 
i:=1; 
while i<=length(s) do 
begin 
if not (s[i] in dividers) then tempS:=tempS+s[i]; 
if (s[i] in dividers) or (i=length(s)) then 
begin 
flag:=true; 
if tempS<>'' then 
begin 
j:=1; 
repeat 
if tempS=a[j] then flag:=false; 
inc(j) 
until 
(tempS=a[j]) or ( j>max ); 
end; 
if flag then 
begin 
inc(max); 
a[max]:=tempS; 
end 
else 
begin 
Delete(s,i-i-length(tempS),length(tempS)); {udalenie} 
i:=i-length(tempS); 
end; 
tempS:=''; 
end; 
inc(i); 
end; 
writeln('Result:', s); 
Readkey; 
end. 

Работа программы:

Enter string: cat cat
Result: cat

Enter string: cat cat dog
Result: cat dog

Enter string: cat dog cat
Result: dog cat

Но когда вводишь "dog cat cat" (без кавычек), резльтат остается без изменений .
Помогите найти ошибку.

Сообщение отредактировано: Shmaniche - 9.06.2010 11:32

[Lapp]

Для затравки кидую код. Нашел в сети, но он работал неправильно. Затем заменил всего одну строчку и программа стала выдавать верные значения, кроме одной комбинации.
..
Помогите найти ошибку.

Затравщик ты наш.. намеков не понимают в наше время - не двор Людовика XIV..
Тогда буду пямым текстом: давай СССВВВВООООЙЙЙ ККООООООДДД!! в сети он нашел.. для затравки.. блин.. Тут - на этом форуме - ценится собственная работа. Затравки на фиг не нужны.

Ладно, я сегодня добрый. Получай код.
Это тебе "для затравки". Чтоб кончал лоботрясничать и искать в сети невесть что..

const
  s: string= 'dog cat cat dog dog dog dog cat pig pig pig';

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

begin
  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.

В следующий раз выкладывай свой код. Хотя бы самое начало. Чтоб было понятно, что ты хоть начал думать, а не по помойкам швыряться..
Я лично прослежу )). Ты усвоил?