Паскаль. строки.

04.05.2011, 23:03. **Показов** 1108. **Ответов** 2

Дан текст. найдите в тексте местоположение самого длинного слова.

@MegaAce · 05.05.2011, 00:06

Pascal

var s:string;
    k,i,j,start,endw,max:integer;
begin
 readln(s);
 for i:=1 to length(s) do
  if (s[i]=' ') and ((i+1)<length(s)) then
   for j:=i+1 to length(s) do
    if s[j]=' ' then
    begin
     k:=j-i;
     if k>max then
     begin
      start:=i;
      endw:=j;
      max:=k;
     end;
     break;
    end;
 writeln('Самое длинное слово начинается с позиции ',start+1,
           ' и заканчивается в позиции ',endw,
           ', длинна составляет ',max-1);
end.

17.05.2011, 11:29

спасибо большое, но у меня не совсем получается. Можно показать на конкретном примере? например, если дан текст: "чтобы порекомендовать Вам книгу"

pharaonka
		1
	Паскаль. строки. 04.05.2011, 23:03. Показов 1108. Ответов 2 Метки нет (Все метки) Дан текст. найдите в тексте местоположение самого длинного слова.

pharaonka
	17.05.2011, 11:29	3
	спасибо большое, но у меня не совсем получается. Можно показать на конкретном примере? например, если дан текст: "чтобы порекомендовать Вам книгу"

Опции темы

Паскаль. строки.

Решение