Найти самое длинное приложение из текста., Функцыи Опции

[ronique]

Найти самое длинное приложение из текста и вывести его на печать.Решить зада с помощю ФУНКЦЫИ. Сщитаем что все приложения заканчиваються на точку.
Вот что я смог зделать, дальше чтото не знаю как... Помогите пожалуйста.

program funki; 
var 
   str:string; 
   k,i,r:integer; 
function f(st:string):integer; 
var 
   p,g,k:integer; 
begin 
  for i:=1 to length(st) do 
    if st[i]='.' THEN 
      begin 
        p:=i; 
        for k:=p+1 to length(st) do 
          if st[k]='.' then 
            g:=k; 
        if k<>p then 
          f:=g-p 
        else 
          f:=p; 
      end; 
end; 
begin 
  read(str); 
  r:=f(str); 
  writeln( r ); 
end.

М

Тегами не забываем пользоваться... volvo

Сообщение отредактировано: volvo - 6.11.2006 20:16