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

[tut@ka]

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

технарики,найти самое длинное слово в строке
у меня без вариантов

 

[Vladimir_S]

технарики,найти самое длинное слово в строке
у меня без вариантов

Легко!

VAR
 S:String;
 i,Imax,Max,Nw,i1,i2:Byte;
 W:Array[1..128] of String;

BEGIN
 [COLOR=Red]{ Ввод строки }[/COLOR]
 WriteLn('Enter the string:');
 ReadLn(S);

[COLOR=Red]{ Разбиение строки на слова; слова формируют массив W }[/COLOR]
 i:=0;
 Nw:=0;
 Repeat
  Repeat
   Inc(i);
  Until S[i]<>' ';
  i1:=i;
  While (S[i]<>' ') and (i<Length(S)) do
   Inc(i);
  If i=Length(S) then i2:=i else i2:=i-1;
  Inc(Nw);
  W[Nw]:=Copy(S,i1,i2-i1+1);
 Until i=Length(S);

[COLOR=Red] { Поиск самого длинного слова }[/COLOR]
 Max:=0;
 For i:=1 to Nw do
  if Length(W[i])>Max then
   begin
    Imax:=i;
    Max:=Length(W[i]);
   end;

[COLOR=Red]{ Вывод на экран }[/COLOR]
 WriteLn('The longest word is "'+W[Imax]+'"');
 Readln
END.