Сортировка массива методом прямого выбора(Дельфи)

[Onza]

В общем если не жалко помогите сижу целый вечер и немогу понять как правильно сделать и с чего начать....

Написать параметризованную функцию сортировки методом отбора.
Например, если бы строка "dcab" сортировалась методом отбора, то каждый из проходов давал бы результат:
Исходный массив Dcab
Проход 1 Acdb
Проход 2 Abdc
Проход 3 Abcd

Я смотрю примеры с цифрами есть а как с символами-сделать не пойму-

и 2 задача--- создании программы сортировки методом Шелла.
Проход1 F D A C B E
Проход1 C B A F D E
Проход1 A B C F D E
Результат A B C D E F

Я новичок в Дельфи . А с этим надо разобраться....

Или может ссылки дадите на то как с этим разобраться
Заранее спасибо!

[NightmareZz]

Могу решить за 10$.

icq: 959693
e-mail: m.m.makarov@gmail.com

[Котовский]

на твоем месте, при помощи функции

Ord(c:Char):byte;

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

chr(i:byte):char;

[Onza]

procedure TForm1.ButtonlClick(Sender: TObject);
const
SIZE = 10;
var
a: array[1..SIZE] of integer;
min: integer; { номер минимального элемента в части
массива от i до верхней границы массива }
j: integer; { номер элемента, сравниваемого с минимальным }
buf: integer; { буфер, используемый при обмене элементов массива }
i, k: integer;
begin
// ввод массива
for i := l to SIZE do
a[i] := StrToInt(StringGridl.Cells[i - 1, 0]); Iabel2.caption := '';

for i := l to SIZE - 1 do
begin
{ поиск минимального элемента в части массива от а[1] до a[SIZE]}
min := i;
for j := i + l to SIZE do
if a[j] < a[min] then
min := j;

{ поменяем местами a [min] и a[i] }
buf := a[i];
a[i] := a[min];
a[min] := buf;

{ вывод массива }
for k := l to SIZE do
Label2.caption := label2.caption + ' ' + IntTostr(a[k]);
Label2.caption := label2.caption + #13;
end;
Label2.caption := label2.caption + #13 + 'MaccMB отсортирован.';
end;

Вот пример с цифрой что поменять? или тут глобально надо менять всё?

[Onza]

2 Котовский -спасибо попробую.... об этом думал но не совсем осознаю как реализовать это. Все что делаю в Дельфи это собираю из кусков программы и как ту умудряюсь их запускать.

[Onza]

А можно другим способом или нет?

[capta1n]

обычный алгоритм сортировки выбором: через консоль, ибо на паскале пишу:

program sort2;
const
 n = 10;
var
 A : array [1..n] of char;
 c : char;
 i,j,k : byte;
begin

 for i:=1 to n do read (A[i]);

 readln;
 writeln;

  for i:=1 to n-1 do
  begin
    j:=i;
    for k:=i to n do if A[k]<A[j] then j:=k;
    c:=A[i];
    A[i]:=A[j];
    A[j]:=c
  end;

 for i:=1 to n do write (a[i]);

 readln;
end.

[capta1n]

там чтобы в делфях заработало надо написать перед программой {$apptype console}

[Onza]

Да в том то и дело! Что надо разобраться как в Дельфи.
Весь вопрос в том как продолжить..
procedure TForm1.ButtonlClick(Sender: TObject);

var
a: array[1..SIZE] of string;

далее надо переводить посредством

Ord(a:Char):byte;
вот тут то знаний и не хватает

[maladoy]

объяви

b:array [1..size] of byte;

присвой его элементам

for i:=1 to size do
b[i]:=ord(a[i]);

делай с ними чего хочешь потом обратно переведешь

for i:=1 to size do
a[i]:=chr(b[i]);