Задача на строки. Паскаль

[HOOLY]

подскажите как решить задачу...даны два предложения,нада из взять первое слово 1ого предложения и превое слово 2ого предложеия и найти буквы каторые встречются в этих двух словах...заранее благодарен...

[pomoshnic]

Чтото такое

var pre1,pre2:string;
     b1,b2:byte;
begin
writeln;
write('Vvedite predlogenie 1: ');
readln(pre1);
write('Vvedite predlogenie 1: ');
readln(pre2);
writeln('Bykvy: ');
for b1:=1 to length(pre1) do
for b2:=1 to length(pre2) do
if (pre1[b1]<>' ') and (pre1[b1]=pre2[b2]) then
write (pre2[b2], ', ');
readln
end.

[HOOLY]

прога работает но мне нада найти буквы только для первых слов...а она пишет все одинаковые буквы всех слов...

[alex_fcsm]

var s:string;
    s1,s2:set of char;
    i:integer;

begin
 writeln('Input first');
 readln(s);
 i:=0;
 s1:=[];
 repeat
  inc(i);
  s1:=s1+[s[i]];
 until (s[i]=' ') or (s[i]=',') or (s[i]='.');
 writeln('Input second');
 readln(s);
 i:=0;
 s2:=[];
 repeat
 inc(i);
 if not(s[i] in s2)and(s[i] in s1) then begin
                     write(s[i],' ');
                     s2:=s2+[s[i]];
                    end;
 until (s[i]=' ') or (s[i]=',') or (s[i]='.');
end.

[HOOLY]

а можно операцию поиска первых слов загнать в процедуру
и операцию сравнения первых слов загнать тоже тока в другую процедуру?

[HOOLY]

ппц....училка не принимает задачу((( типа set of char мы не прходили...
люди памогите сделать задачу...как нить попроще и и напишите каментарии к ней,штоб я знал как абъяснить её..

[alex_fcsm]

Сообщение от HOOLY

ппц....училка не принимает задачу((( типа set of char мы не прходили...
люди памогите сделать задачу...как нить попроще и и напишите каментарии к ней,штоб я знал как абъяснить её..

Переменные
s - храним считанное предложение
s1 - первое слово 1 предложения
s2 - буквы которые есть в обоих словах(первых) предложений

var s,s1,s2:string;
    i:integer;

begin
 writeln('Input first');
 readln(s);
 i:=1;
 s1:='';
 repeat{будем считывать первое слово}
  s1:=s1+s[i];
  inc(i);
 until (s[i]=' ') or (s[i]=',') or (s[i]='.');{слово заканчивается если встретили один из символово}
 writeln('Input second');
 readln(s);
 i:=0;
 s2:='';
 write('Result:');
 repeat
 inc(i);
 if pos(s[i],s2)=0 then if pos(s[i],s1)<>0 then begin{если символ до этого не встречался в первом слове 2 предложения и он есть в первом слове 1 предложения,то заносим его в s2}
                                                s2:=s2+s[i];
                                                write(s[i]);
                                               end;
 until (s[i]=' ') or (s[i]=',') or (s[i]='.');
end.

[HOOLY]

я вам очень благадарен alex_fcsm но мне нада поиск первых слов загнать в процедуру и поиск одинаковых букв тож загнать в процедуру...

[HOOLY]

он сказада типа нада первое слово 1ого предложения загнать в массив патом первое слово 2ого предложения загнать в массив(типа поиск первых слов загнать в процедуру)потом сравнивать их.и сравнение загнать в процедуру...alex_fcsm я на вас очень надеюсь...

[alex_fcsm]

var s,s1,s2:string;

procedure Extract(var x,y:string);
var i:integer;
begin
i:=1;
y:='';
repeat
  y:=y+x[i];
  inc(i);
 until (x[i]=' ') or (x[i]=',') or (x[i]='.');
end;

procedure Find(x,y:string);
var i:integer;
    temp:string;
begin
temp:='';
write('Result:');
for i:=1 to length(x) do
 if (pos(x[i],y)<>0) and (pos(x[i],temp)=0) then begin
                                               temp:=temp+x[i];
                                               write(x[i]);
                                             end;
end;

begin
writeln('Input first');
readln(s);
Extract(s,s1);
writeln('Input second');
readln(s);
Extract(s,s2);
Find(s1,s2);
end.