Показать сообщение отдельно
Старый 09.04.2011, 12:11   #5 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от yulia90 Посмотреть сообщение
В 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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070