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

[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

[volvo]

ronique,
если ВСЕ предложения находятся в одной строке, то так:

function get_next(var s: string): string;
var p: byte;
begin
  p := pos('.', s);
  if p <> 0 then begin
    get_next := copy(s, 1, p - 1);
    delete(s, 1, p);
  end
  else begin
    get_next := s;
    s := '';
  end;
end;

var
  s, next, max_s: string;
begin
  write('text = '); readln(s);
  max_s := '';

  while s <> '' do begin
    next := get_next(s);
    if length(next) > length(max_s) then max_s := next;
  end;

  writeln('max = ', max_s);
end.