Cортировка по алфавиту? Опции

[Lespot]

Народ, помогите, пожалуйста - срочно нужно! Нужно упорядочить массив строк M по алфавиту. Я знаю, что это очень просто - ну что-то никак не получается

[klem4]

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

uses crt;
var
   str:array[1..10] of string;
   temp,s1,s2:string;
   i,j,n:integer;
   flag:boolean;

Begin

   clrscr;

   write('n='); readln(n);

   for i:=1 to n do begin
       write('srt[',i,']=');
       readln(str[i]);
   end;

   repeat

       flag:=true;

       for i:=1 to n-1 do begin

           s1:=str[i];
           s2:=str[i+1];

           j:=1;
           while(s1[j]=s2[j]) do inc(j);

           if (j<=length(s1))and(j<=length(s2)) then
            if not(ord(s1[j])<ord(s2[j])) then begin
                temp:=str[i];
                str[i]:=str[i+1];
                str[i+1]:=temp;
                flag:=false;
            end;
       end;

   until flag;

   for i:=1 to n do writeln(str[i]);

   readln;

end.

поправил, теперь все отлично работает

Сообщение отредактировано: klem4 - 19.06.2005 0:50

[Lespot]

Спасибо огромное!!!
Всё работает! :D :D :D