Версия для печати темы

Автор: Евгений123 7.06.2008 15:07

Здравствуйте помогите пожалуйста переделать программу так чтобы в итоге выводилось количество символов самого длинного слова, а не само слово.

вот листинг:

program nomer3;
        uses Crt;
var
  z, maxWord: String;
  aStrt, aLen: Integer;
  i: Integer;
begin
  ClrScr;
  Writeln('Введите текст:');
  ReadLn(z);
  maxWord:= '';
  aStrt:= 1;
  aLen:= 1;
  for i:= 2 to Length(z) do
  begin
    if (z[i] = ' ') or
   ((i = Length(z)) and (z[i] <> ' '))
 then
 begin
   aLen:= i - aStrt;
      if (i = Length(z)) then
        inc(aLen);
   if (aLen > Length(maxWord)) then
     maxWord:= copy(z, aStrt, aLen);
   aStrt:= Succ(i);
 end;
  end;
  WriteLn;
  WriteLn('Длинна максимального слова в предложении:');
  WriteLn(maxWord);
  end.

Заранее спасибо!

Автор: klem4 7.06.2008 15:30

length(maxWord);

Автор: Евгений123 7.06.2008 15:50

Всмысле " length(maxWord);"?

Автор: klem4 7.06.2008 15:57

writeln(length(maxWord))

Автор: Евгений123 7.06.2008 16:07

Все теперь понятно.