Скачать: CL | DM;

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

← →
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.

---

← →
Семен Сорокин ©   (2005-01-11 10:31) [6]

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

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;

---

← →
ЮЮ ©   (2005-01-11 10:33) [7]

>Семен Сорокин ©   (11.01.05 10:31) [6]
Trim, пожалуй, лишнее

---

← →
Семен Сорокин ©   (2005-01-11 10:36) [8]

> ЮЮ ©   (11.01.05 10:33) [7]

это на случай #10 #13 хотя может и лишнее :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c