Как найти самое длинное слово в тексте?

← →
Registered Guest (2005-01-11 09:39) [0]

Задание вроде простое, но у меня не получается. Дан текст, в котором следует найти самое длинное слово (и вывести его). Как это сделать? Нужен пример программного кода. Best Regards...

← →
Kerk © (2005-01-11 09:41) [1]

свое домашнее задание ты должен сделать сам

← →
Александр Иванов © (2005-01-11 09:49) [2]

index = 1;
MaxWord:="";
repeat
substr := "";
while (Str[index] = " ") or (index<=length(Str)) do inc(index);
while (Str[index] <> " ") or (index<=length(Str)) do
begin
substr := substr+Str[index];
inc(index);
end;
if Length(substr) > Length(MaxWord) then
begin
MaxWord:=substr;
end;
until index>length(Str);

← →
KSergey © (2005-01-11 09:50) [3]

> Registered Guest (11.01.05 09:39)
> Задание вроде простое, но у меня не получается.

Привели что ты делаешь и уажи место где именно не получается.

> Нужен пример программного кода. Best Regards...

Сумма?

← →
Fay © (2005-01-11 10:12) [4]

Ладно, даю первую подсказку : у самого длинного слова количество букв не меньше, чем у остальных слов.

← →
TUser © (2005-01-11 10:21) [5]

> Александр Иванов © (11.01.05 09:49) [2]
А запятые, числа и пр.? Кстати, интересный вопрос, "что-то" - это одно слово или два?

program GetMaxWord;

var S: string;
buf: string;
res: string;
i: integer;

begin
readln(S);
S:=S+" "; buf:=""; res:="";
for i:=1 to length(S) do
if S[i] in ["A".."Z","a".."z","а".."я","А".."Я"] then
buf:=buf+S[i]
else begin
if length(buf) > length(res) then
res:=buf;
buf:="";
end;
end.

во еще вариант на рассмотрение :))

var _text: string; _i: integer; begin with TStringList.Create do try Delimiter := " "; DelimitedText := _text; _text := EmptyStr; for _i := 0 to Count-1 do if Length(_text) < Length(Trim(Strings[_i])) then _text := Trim(Strings[_i]) finally Free end end;

Как найти самое длинное слово в тексте? Найти похожие ветки