Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.
Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.
Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.
По возрастанию чего? И о каких словах речь? Строку, что ли, на слова разбить, или как?
VAR
S,S1:String;
S2:Array[1..130] of String;
i,i1,i2,j,k:Byte;
BEGIN
WriteLn('Enter the string:');
ReadLn(S);
WriteLn;
i:=0;
k:=0;
Repeat
Repeat
Inc(i);
Until S[i]<>' ';
i1:=i;
Repeat
Inc(i);
Until (S[i]=' ') or (i=Length(S));
If S[i]=' ' then i2:=i else i2:=i+1;
Inc(k);
S2[k]:=Copy(S,i1,(i2-i1));
Until i=Length(S);
WriteLn;
WriteLn;
For i:=1 to k do
For j:=1 to k-i do
If Length(S2[j])>Length(S2[j+1]) then
begin
S1:=S2[j+1];
S2[j+1]:=S2[j];
S2[j]:=S1;
end;
For i:=1 to k do
Write(S2[i]+' ');
WriteLn;
ReadLn;
END.Так а там их всего ничего. S - исходная строка, S1 - вспомогательная строковая переменная, используемая в цикле упорядочения массива, S2, i1, i2 описаны выше в комментариях к программе, остальные (i, j, k) - счетчики да переменные циклов.
Из операторов интерес представляет только Copy. Это функция, значением которой является новая строка, представляющая собой копию фрагмента исходной строки, начинающегося с номера (напр.) i1 и имеющего длину в n символов. Таким образом, если S - исходная строка, R - содержащийся в ней фрагмент, то справедливо R:=Copy(S,i1,n);