Нужна помощь с Паскалем

[мой оверкиль]

13. Дано предложение, составить программу, располагающую слова в порядке убывания длины слов.

Я не то что программу не знаю как написать, я даже мысленно не очень представляю, как это сделать. Определять длину каждого слова в предложении, запоминать, сравнивать, вставлять в новую строку в порядке убывания? А если слов 30, то я же задолбаюсь "запоминать" их длины.

@темы: Вопрос, Pascal

Comments

[mr Gray]

Можно разбить текст на слова, поместив их в одномерный массив строк Words. А потом упорядочить этот массив по длине элементов, используя в качестве ключа length(Words[i]). Ну а под конец объединить массив в одну строку. Если будет нужен код - скажите - напишу.

[мой оверкиль]

упорядочить по длине элемента, это я представляю как, а вот как разбить на слова и закинуть в массив, тут бы не отказалась от кода

[mr Gray]

как разбить на слова и закинуть в массив
Можно, к примеру, так:

procedure StrToArray;
var stroka:string [255];
    slova:array [1..255] of string [255];
    i, kol:integer;
begin
  stroka:='Раз два три четыре пять шесть семь восемь';
  stroka := stroka + ' ';
  kol := 0;
  for i:=1 to length(stroka) do
    if (stroka[i]<>' ') and ((i = 1) or (stroka[i-1]=' ')) then
    Begin
      kol := kol + 1;
      slova[kol] := stroka[i];
    end
    else if stroka[i]<>' ' then slova[kol] := slova[kol] + stroka[i];

  {тут упорядочиваем массив}

stroka := '';  
for i:=1 to kol do stroka := stroka + slova[i] + ' ';
end;

[katastroficheski]

Да тем же самым методом пузырька реализовать можно, взять запесочить все слова в массив, а сортировку делать именно по длинам слов и все.. Мне как-то так видится

[мой оверкиль]

mr Gray
долго рабиралась)
спасибо, поняла наконец

[Микл]

я уженачал в уме сочинять лексический анализатор на списках.. вроде бы, это единственный способ работать с предложением формально любой длины

[Чайный наркоман]

я уженачал в уме сочинять лексический анализатор на списках..

Мосье знает толк в извращениях...)

[мой оверкиль]

Микл
задача задана дясетикласснику, не надо извращаться))

[Magir]

Разбить на слова, загнать их в массивы и пузырьком со сравнением по длине слов пройтись.