Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Алгаритм сортировки string массива

Автор: Istergul 11.12.2008, 18:19

Пожалуйста, помогите отсортировать массив слов по алфавиту.

Код



var m1:array[1..60] of string;

Автор: Zhenya12 11.12.2008, 18:40

a ето и есть твой m1.

Код


repeat
o:=0;
for i:= 1 to n-1 do
begin
if a[i]>a[i+1] then
begin
a[i]:=a[i]+a[i+1];
a[i+1]:=a[i]-a[i+1];
a[i]:=a[i]-a[i+1];
o:=1;
end;
end;
until o=0;

Автор: Istergul 11.12.2008, 18:54

Дан алгаритм типа string. это не верно

Код


a[i]:=a[i]+a[i+1];
a[i+1]:=a[i]-a[i+1];
a[i]:=a[i]-a[i+1];

может есть другой вариант?

Автор: Zhenya12 11.12.2008, 19:31

Цитата(Istergul @ 11.12.2008, 18:54)

Дан алгаритм типа string. это не верно

почему не верно ?
У меня все получилось.)

Автор: THandle 11.12.2008, 20:02

Буквально неделю назад была тема:

http://forum.vingrad.ru/forum/topic-238925.html

Автор: Istergul 11.12.2008, 20:30

Чото у меня ничо это не работает

Автор: THandle 11.12.2008, 21:12

Istergul, очень интересно. В аттаче работающий пример.

Автор: Istergul 11.12.2008, 21:33

THandle, о, спасибо огромное!) здорово помог!)