обработка строк

[densan]

Всем здрасьте. Кто может пусть поможет. Дана строка символов из произвольного текста на англ языке, слова разделены пробелами. Нужно вывести на экран порядковый номер слова, накрывающего k-ю позицию (если эта позиция попадает на пробел, то брать номер предыдущего слова )

[ManU]

Вот пример:

var b:string;//cтрока нужная
 i,j,k:integer;//счетчики
begin
b:=memo1.text;//строку в принципе берешь оттуда откуда надо
if b[1]=' ' then j:=0
else j:=1;
for i:=1 to k do begin// здесь я не учитывал случая если к>length(в)
if b[i]=' ' then inc(j);//дальше понятно надеюсь
if (i=k) and (b[i]=' ') then dec(j);
end;
label1.caption:=inttostr(j);
end;

Ну и конечно же не забудь взять к

[evg_m]

1. счетчик слов n=0
2. начало слова p=1
3. вычисляем длину текущего слова (включая конечные пробелы) l=...
3. если k принадлежит текущему слову перейти к п7
4. установить начало нового слова
5 изменить счетчик слов
6. перейти к п3.
7. вывести результат

[densan]

замечательно, будем пробовать