Задача на строки, Найти в тексте хотя бы один слог Опции

[Roofless]

Задача такая: найти в тексте слова, которые содержат хотя бы один слог НА ПРИ ЗА.
С чего мне начать????????????

[andriano]

С написания алгоритма решения по-русски.

[Roofless]

Вобще у меня есть такие процедуры:

Procedure Getword(s:string; var fp,lp:byte);
Var
  l,i:byte;
Begin
  l:=length(s);
  i:=1;
  while(i<=l) and (s[i]<>' ') do
    inc(i);
  fp:=i;
while(i<=l) and (s[i]<>' ') do
  inc(i);
  lp:=i-1;
end;
Procedure Printword(s:string;fp,lp:byte);
var
  i:byte;
begin
  for i:=fp to lp do
    write(s[i]);
end;
Procedure Testword(s:string;fp,lp:byte);
Var
  l:byte;
begin
  l:=length(s);
  l:=0;
  while fp<=l do begin
  getword(s,fp,lp);
  printword(s,fp,lp);
  fp:=lp+1;
  end;
end;

...нужно как то их использовать

[Client]

первое, что бросилось в глаза, это:

  l:=length(s);
  l:=0;

?

Сообщение отредактировано: Client - 25.12.2007 22:42

[ATAMAH]

uses crt;
const zn='.,;:"- ?!';
var
S,sl:string;
j,i,ns,ks:integer;
begin
clrscr;
readln(s);
i:=1;
while i<=length(s) do
 begin
  while (pos(s[i],zn)<>0) and (i<=length(s)) do
  i:=i+1;
 ns:=i;
  while (pos(s[i],zn)=0) and (i<=length(s)) do
  i:=i+1;
 ks:=i;
 sl:=Copy(s,ns,ks-ns);
For j:=1 to length(sl) do 
 if (Poz(sl,'НА')<>0) or (Poz(sl,'ПРИ')<>0) or (Poz(sl,'ЗА')<>0) then write(sl);
end;
readln;end.

Попробуй так!!

Сообщение отредактировано: ATAMAH - 25.12.2007 23:21

[Roofless]

ATAMAH Большое тебе спасибо, буду проверять