string в паскале ( расставить 8 слов в алфавитном порядке)

[csdan1el]

задача: из 8 слов найти самое короткое, если их несколько - вывести в алфавитном порядке

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

если есть принципиально другие методы хотелось бы услышать (можно и без кодов)
вопрос пока только в том, как в алфавитном порядке расположить слова

[Niro]

На вскидку - можно закинуть слова из строки в массив (смотри примеры на форуме, или сделай сам), а затем сортируй по ascii кодам первых символов слов

[csdan1el]

да, у меня каждое слово - отдельный элемент массива с[i]

не могу цикл придумать, чтобы он их быстро расставил как надо
с двумя-тремя словами я бы еще перебором решил, но 8 - слишком много вариантов

[Stilet]

Так а в чем проблема? Сортировку пузырьком по строкам еще никто не отменял. Она прекрасно работает и со строками.

[csdan1el]

проблема в том, что я паскаль тока недавно начал учить и об "обменной сортировке (метод пузырька)" не слышал до этого момента (только что прочел в инете че эт такое..)
что ж спасибо, Stilet, дальше разберусь сам)

а то я уже хотел с помощью рандомных чисел решать, надеясь, что они когда нибудь станут так, чтобы условие остановило цикл генерации случайных номеров элементов массива (что в принципе может и не произойти никогда), а этот метод попроще будет))

[Stilet]

Смотри, у нас на форуме примеры сортировки текста выкладывались.
Да вот хотя бы:http://www.programmersforum.ru/showthread.php?t=67590

[csdan1el]

мой первоначальный вариант (может подумаю на досуге, как упростить), но идея в общем понятна, да и на работоспособность не жалуюсь

program p1;
type a=array [1..8] of string;
b=array [1..8] of integer;
var i,u,m:integer;
w:string;
c:a;
n:b;
begin
writeln ('vvedite 8 slov');
for i:=1 to 8 do begin
                 readln (c[i]);
                 n[i]:=length (c[i]);
                 end;
m:=256;
for i:=1 to 7 do begin
                 if n[i]<n[i+1] then
                                if n[i]<m then m:=n[i];
                 end;
if n[8]<m then m:=n[8];
for i:=1 to 8 do if n[i]=m then c[i]:=concat(c[i],' ') else c[i]:='';
for u:=1 to 7 do
              for i:=1 to 7 do
                            if c[i+1]<c[i] then begin
                                                w:=c[i];
                                                c[i]:=c[i+1];
                                                c[i+1]:=w;
                                                end;
for i:=1 to 8 do write (c[i]);
readln;
end.

итог - выдает самые короткие слова в алфавитном порядке, через пробел..


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.