Обработка данных литерного типа

[yulia90]

Обработка данных литерного типа

Здраствуйте,если есть у кого время,помогите сделать задание)



Для произвольного текста вывести слова в порядке невозрастания их длин.

заранее спасибо)

 

[AlexZir]

1)

Для произвольного текста вывести слова в порядке невозрастания их длин

Это как? В порядке убывания, что ли?
2) Какой язык программирования нужно использовать?

 

[Vladimir_S]

Это как? В порядке убывания, что ли?

Нет, тут всё верно: означает, что совпадающие по длинам слова не рассматривать, как ошибку, а просто располагать одно за другим.
Вообще-то нудная такая задачка: нужно вычленить из строки все слова командой copy (либо, как я это иногда делаю, "выбрасыванием" во вспомогательный файл командой writeln, чтобы каждое слово было на своей строке, затем считыванием командой readln), образовать из этих слов массив их длин, каковой упорядочить методом пузырька.
Довольно много работы.

 

[yulia90]

В Pascal'e,мальчики помогите)

 

[Vladimir_S]

В Pascal'e,мальчики помогите)

Да ладно, без проблем:

VAR
 S,Dummy:String;
 i,j,Nw,i1,i2:Byte;
 W:Array[1..128] of String;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 i:=0;
 Nw:=0;
 Repeat
  Repeat
   Inc(i);
  Until S[i]<>' ';
  i1:=i;
  While (S[i]<>' ') and (i<Length(S)) do
   Inc(i);
  If i=Length(S) then i2:=i else i2:=i-1;
  Inc(Nw);
  W[Nw]:=Copy(S,i1,i2-i1+1);
 Until i=Length(S);

 For i:=1 to Nw-1 do
  For j:=1 to Nw-i do
   If Length(W[j])<Length(W[j+1]) then
    begin
     Dummy:=W[j];
     W[j]:=W[j+1];
     W[j+1]:=Dummy;
    end;

 For i:=1 to Nw-1 do Write(W[i]+' ');
 WriteLn(W[Nw]);

 ReadLn;
END.

 

[yulia90]

Спасибо:*