while

[Work Group]

можете помочь сделать прогу через while для избежания break
задача-найти n-ой индекс вхождения подстроки в строку

uses crt;
var st,p:string;
i,j,n,nn,t,count:integer;
f:boolean;
begin
 clrscr;
 write('строка S')
 readln(st);
 write('подстрока P')
 readln(p);
 write('ââåäèòå N: ');
 readln(n);
 count:=0;

 for i:=1 to length(st)-length(p)+1 do
 begin
   f:=true;
   t:=i;
   for j:=1 to length(p) do
     begin
       if st[t]<>p[j] then f:=false;
       inc(t);
     end;
   if f then
     begin
      inc(count);
      nn:=i;
     end;
  if count=n then break;
 end;

 //for i:=1 to length(st) do
 //writeln(st[i]);
 
 if count=n then writeln(nn) else write('0');
 readln;

end.

[russian-stalker]

pos() не подойдёт?

[Stilet]

 count:=0;
 i:=1; While (count=n)AND(i<=(length(st)-length(p)+1)) do begin
   f:=true;
   t:=i;
   for j:=1 to length(p) do
     begin
       if st[t]<>p[j] then f:=false;
       inc(t);
     end;
   if f then
     begin
      inc(count);
      nn:=i;
     end;
  inc(i);
 end;

Устроит?

[Work Group]

ошибка нашёл

i:=1; While (count<>n)AND(i<=(length(st)-length(p)+1)) do begin

[C71Me]

Замени в конце:

if count<>n then
 begin
  if count=n then writeln(nn) else write('0');
    readln
  else
end;

end.

[C71Me]

Вру, тебе нуна из цикла for выйти..над подумать..