Условие задачи: в строке вводится последовательность русских слов, разделённых
одним или несколькими пробелами. Упорядочить эти слова по алфавиту. Требования : предусмотреть, чтобы слова, содержащие буквы "Ё" или "ё", также правильно упорядочивались.
procedure Sort(var A:TArr);
var {i,}j: integer; x: string; OK: boolean;
begin
{ i:=n; }
repeat
OK:=true; //флаг
i:=i-1;
for j:= 1 to i do //цикл сортировки
if A[j]>A[j+1] then //сравнение строк
begin {1}
x:=a[j+1];
A[j+1]:=A[j];
A[j]:=x;
OK:=false; //произошла сортировка, флаг сбрасывается в состояние false
end; {2}
until OK; //цикл повторяется до тех пор, пока будут происходить перестановки
end;
Выше приведена процедура сортировки, только одна проблема - на выходе слова, начинающиеся с буквы "ё", стоят перед словами, начинающимися на букву "е" - как можно это исправить?
Пользуйся тегами для подсветки синтаксиса...
Сообщение отредактировано: volvo -