ф-ции и процедурыю работа с текстом

[katya36]

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

подкиньте идейку плиз как решать это?! тексты только начали проходить...

[alex_fcsm]

Во-первых у Вас предложение.(банальное s:string);
Заданные буквы заносите тоже в строку( smpl:string
Берете первое слово из предложения и в цикле прогоняете по всем буквам
1) Если вам нужно чтобы все буквы содержались в sampl то как вариант
f:=true;\\булева переменная(f:boolean
for i:=1 to length(x) do
if pos(x[i],smpl)=0 then f:=false;
if а then writeln(x);
x - содержитбуквы из введенного образца
2) Если надо чтобы хоть одну букву содержал то
f:=false;
for i:=1 to length(x) do
if pos(x[i],smpl)<>0 then f:=true;
if f then writeln(X); - x содержит хотя бы одну букву из введенного образца

Все что остается это выделить слово из предложения. Здесь эта задача решалась не один десяток раз. Хотя бы здесь

[katya36]

Мы Стринг ещё не проходили!(( Преподаватель объяснила так:
надо сделать процедуру, которая пропускает пробелы и запоминает- где начало и где конец слова. Затем нужно пробежаться по этому слову и выяснить, все ли его буквы равны заданным? Я знаю как начало делать!


{Найдите все слова в предложении, которые содержат заданные буквы. Для определения буквенного состава слова используйте процедуру.}

Program predlogenie;
const n=10; eot='@';   //eot-конец текста
var Predl=array[1..n] of char;
     i:integer;
procedure read_predl (var Pr);
Var  i:integer;
Begin
I:=0;
Repeat
  I:=i+1;
  readln(Pr[i]);
Until (i=maxl) or (Pr[i]=eot);
If Pr[i]=eot then
  n:=i-1
else
  n:=i;
End;

А дальше помогите пожалуйста! )

Подскажите плиз как это все написать???

[Stilet]

Могу такое порекомендовать:

type str=array[1..255] of char; {Тип строки}
  procedure aga(b:str;var x,length:integer);
  var i:byte;
  begin
    while (x<255)and(b[x]<>' ') do
     x:=x+1;
    x:=x;i:=x+1;
    while (i<255)and(b[i]<>' ') do
     i:=i+1;
    length:=i-x-1;
  end;
  var q,w:integer; k:str;s:string;
begin
 q:=1; {Это координата начало слова}
 w:=1; {Координата конца слова}
  aga(k,q,w);
end;

[katya36]

ага, спасибо) а теперь можно пару вопросов: тип byte не проходили ещё, его можно заменить на integer?? и lengt- это что такое? не роходили такого еще(

[alex_fcsm]

byte - целые числа 0..255, заменить можно на integer
length(s) - определяет длину строки s

[Манжосов Денис :)]

Раздел предложения на слова можешь здесь взглянуть
http://delphibeginer.zbord.ru/viewtopic.php?t=64
А именно урок 2

[katya36]

Спасибо большое, поизучаю!))

и ещё: а как другим способом определить длину строки??

[Stilet]

и ещё: а как другим способом определить длину строки??

Хакерским, который вы не изучали:

Длина строки:=byte(s[0]);

Length() - это стандартная функция.