Найти все слова в предложении

[PbIska]

Задание: Найти все слова в предложении, которые содержат только заданные буквы.

сделал как найти заданную букву, а как буквы хз(( heeeeeeeeelp!

program qwerty;
uses crt;
var s,buf:string;
    i,j:byte;
    ch:char;
    Fl,ff:boolean;
begin
     ClrScr;
     ff:=false;
     Writeln('Vvedite stroku');
     Read(S);
     Readln;
     Writeln('Vvedite bukvu');
     Readln(ch);
     Writeln('Slova s dannoj bukvo v stroke:');
     For i:=1 to length(S) do
     begin
          If S[i]<>' ' then buf:=buf+S[i]
                       else if length(buf)<>0
                            then begin
                                     fl:=false;
                                     For j:=1 to length(buf) do if buf[j]=ch then begin fl:=true; ff:=true; end;
                                     If Fl then Writeln(buf);
                                     buf:='';
                                 end;
     end;
     fl:=false;
     For j:=1 to length(buf) do if buf[j]=ch then begin fl:=true; ff:=true; end;
     If Fl then Writeln(buf);
     If not FF then Writeln('Net ni edinogo slova s etoj bukvoj');
     Readln;
End.

[Sazary]

Вводите текст. Потом буквы (строкой).
Например:

Text test ext ts
test

uses crt;
var
s,bukvy,buf : string;
i,len : integer;
mn : set of char;
fl : boolean;

begin
clrscr;
writeln('Vvedite stroku:');
readln(s);
writeln('Vvedite bukvy:');
readln(bukvy);
writeln;
mn := [];
for i:=1 to length(bukvy) do
 if not (bukvy[i] in mn) then include(mn,bukvy[i]);

len := length(s);

i:=1;
while i<=len do
 begin
 while (s[i]=' ') and (i<=len) do inc(i);
 buf := '';
 fl := true;
 while (s[i]<>' ') and (i<=len) do
  begin
  buf := buf + s[i];
  if not (s[i] in mn) then fl := false;
  inc(i);
  end;
 if fl then writeln(buf);

 inc(i);
 end;

readln;
end.

[Gongled]

Я бы решал через множества. Например, как-то так. Возможны ошибки. Главное — принцип.

program qwerty;
uses crt;
const
n = 255;
var
s, buf, rs : string;
i, j, k : byte;
ch : char;
letters : set of char;
Fl, ff : boolean;
begin
clrscr;
     
ff := false;

write('Введите строки: ');
read(s);
write('Введите количество букв: ');
read(k);

for i:=1 to k do
begin
     write('Введите ',i,' букву: ');
     read(ch);
     letters := letters + [ch];
end;
     
     writeln('Результат:');
     For i:=1 to length(S) do
     begin
          if s[i] <> ' ' then
          begin
               buf := buf + s[i];
          end
          else
          begin
              if (length(buf)<>0) then
              begin
                   fl := false;
                   for j:=1 to length(buf) do
                   begin
                        if buf[j] in letters then
                        begin
                             fl := true;
                             ff := true;
                        end;

                   If Fl then writeln(buf);

                   buf:='';
                   end;
              end;
          end;
     end;
     
     fl:=false;

     for j:=1 to length(buf) do
     begin
          if buf[j] in letters then
          begin
               fl:=true;
               ff:=true;
          end;
     end;
     
     If Fl then Writeln(buf);
     If not FF then writeln('Нет ни единого слова с этой буквой');
End.

UPD: Оказался вторым. Модераторам: сообщение можно удалить.

[PbIska]

ну это что то не то

по идее надо

text test ext ta 
a,x
text ext ta

[Sazary]

У вас в задании:

Найти все слова в предложении, которые содержат только заданные буквы.

То есть если в слове есть буква, которую не задали, то это слово уже не подходит.

[PbIska]

хм, наверное и вправду так. спасибо огромное)