String,Char> pascal

[shadezx]

Здраствуйте,нужно решить задачу по строкам, условие звучит так:
"Дано предложение нужно вычеслить самое длинное слово и самое меньшое слово и вывести на экран".
я предполагаю что нужно сначала определить длину каждого слова и записать ету длину в переменную, а потом сравнит и записать в max i min
но у меня проблема я не знаю как подсчитать длину каждого слова.
Буду благодарен за помощь.

[Stilet]

http://www.programmersforum.ru/showt...369#post398369
пример разворота строки в массив слов.
Сразу же в цикле можешь определять длину a[count] и запоминать ее если она больше всех.
Идея ясна?

[Poma][a]

Чуть помогу..

for i := 1 to Length(s) do 
    if s[i] in [' ', '.', '!', ',', '?'] then begin <крутим для max min> wrd := '' end
    else wrd := wrd + s[i];

[shadezx]

Сообщение от Stilet

http://www.programmersforum.ru/showt...369#post398369
можешь определять длину a[count] и запоминать ее если она больше всех.

Большое спасибо.
вы имели ввиду
if a[count]>s[i] then max:=a[count]
так?

[Poma][a]

if a[count]>s[i] then max:=a[count]

Неа.. 1) Вы сравниваете строку с символом.. что лишено смысла в данном случае..
2) В паскале строки сравнивают по символьно.. в лексикографическом порядке.. поэтому строка '9' будет больше '120'.. так что это вообще не применимо..

Поэтому.. вариант №1..
Сливать слова в массив (см. код Виталия).. потом бежим по массиву a..

max := 1;
for i := 2 to Length(s) do
     if Length(a[max]) < Length(a[i]) then
            max := i;

WriteLn (a[max])

Мой же вариант позволяет сделать это в один проход и без доп. памяти