строки, Найти множество всех слов, которые встречаются в каждом из двух заданн Опции

[marwell]

Найти множество всех слов, которые встречаются в каждом из двух заданных предложений. вот что получилось

 var s1,s2,str:string;
    i,x:integer;
begin
  write ('vvedite predlozenie 1: ');
  readln (s1);
  write ('vvedite predlozenie 2: ');
  readln (s2);
  x:=1;
  for i:=1 to Length(s1) do
   if s1[i]=' ' then
                    begin
                    str:=copy(s1,x,i-1);
                    if pos(str,s2)<>0 then writeln (str);
                    end;
                    x:=i+1;
  readln;
end.

но верно работает только если нужное слово стоит в начале первого предложения. не могу понять в чем ошибка((

[marwell]

ааа, я забыл очищать str от предыдущего слова! и еще программа не рассматривает последнее слово, если после него нет пробела

Добавлено через 7 мин.

  var s1,s2,str:string;
    i,x:integer;
begin
  write ('vvedite predlozenie 1: ');
  readln (s1);
  write ('vvedite predlozenie 2: ');
  readln (s2);
  x:=0;
  for i:=1 to Length(s1) do begin
   if s1[i]=' ' then
                    begin
                    str:=copy(s1,x+1,i-x);
                    if pos(str,s2)<>0 then begin writeln (str);
                    x:=i;
                    Delete(str,1,i-x);
                    end;
                    end;
    if s1[i]='.' then begin str:=copy(s1,x+1,i-x);
                      if pos(str,s2)<>0 then writeln (str);
                      end;
                      end;

  readln;
end. 

но все равно не помогло((

Сообщение отредактировано: marwell - 3.04.2010 22:29