Найти длину самого короткого и самого длинного слова в строке

@SerWolf174 · Регистрация: 23.03.2016

Author24 — интернет-сервис помощи студентам

Помогите,нужен код(
Дана строка,содержащая текст. Найти длину самого короткого слова и самого длинного слова.

@Puporev · 26.03.2016, 15:10

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const rz=[',','.','?','!'];//разделители слов, можно добавить
var s:string;
    t:TStringList;
    i,mn,mx:integer;
begin
s:=Edit1.Text;
for i:=1 to length(s) do
if s[i] in rz then s[i]:=' ';
t:=TStringList.Create;
t.DelimitedText:=s;
mn:=length(s);
mx:=0;
for i:=0 to t.Count-1 do
if length(t[i])<mn then mn:=length(t[i])
else if length(t[i])>mx then mx:=length(t[i]);
ShowMessage('Длина самого длинного слова='+inttostr(mx)+#13#10+
            'Длина самого короткого слова='+inttostr(mn));
end;

@SerWolf174 0 / 0 / 0 Регистрация: 23.03.2016 Сообщений: 42
		1
	Найти длину самого короткого и самого длинного слова в строке 26.03.2016, 14:47. Показов 2665. Ответов 1 Метки нет (Все метки) Помогите,нужен код( Дана строка,содержащая текст. Найти длину самого короткого слова и самого длинного слова. 0

	26.03.2016, 15:10

Найти длину самого короткого и самого длинного слова в строке

Решение