Сортировка подсчетом (delphi)

[Лексей]

Здраствуйте уважаемые.Сильно не пинайте поступил на заочку первая сессия поэтому пока не блещу познаниями. Делаю задание: рандомное заполнение массива, сортировка его по возрастанию и убыванию методом подсчета алгоритм с.
собственно сделал следущее для наглядности

procedure TForm1.Button1Click(Sender: TObject);
Var a,b,c   : array[1..1000] of integer;
    n,i,j  : integer;

Begin
for i:=1 to 1000 do
  a[i]:=random(10000);{Определение размера массива A  и его заполнение}
    for i := 1 to 1000  do
      stringgrid1.Cells[i-1,0]:=  inttostr(a[i]);

     begin{сортировка данных}

 for i:=1 to 1000 do
 begin
  j:=i;
  while (j>1) and (b[j-1]>A[i]) do
   begin
    b[j]:=b[j-1];
    j:=j-1;
   end;
  b[j]:=A[i];
 end;

  label3.Caption:='Времясортировки='+inttostr(Total) ;
begin {Вывод массива B}
for i :=1 to 1000 do

stringgrid2.Cells[i-1,0]:=  inttostr(b[i]);
end;
for i:=1 to 1000 do  {}
 begin
  j:=i;
  while (j>1) and (c[j-1]<A[i]) do
   begin
    c[j]:=c[j-1];
    j:=j-1;
   end;
  c[j]:=A[i];
 end;
 begin {Вывод массива B}
for i :=1 to 1000 do

stringgrid3.Cells[i-1,0]:=  inttostr(c[i]);
end;
     end;
        end;



end.

а теперь вопрос какой алгоритм у моего метода сортировки? зная алгоритм надеюсь сам справиться с остальным.

[Скандербег]

Читайте про свой алгоритм здесь:
http://ru.wikipedia.org/wiki/%D0%A1%...B0%D0%BC%D0%B8

[Лексей]

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

[Adamrus]

a[i]:=random(10000);{Определение размера массива A и его заполнение}
его размер Вы определили еще в разделе VAR

размер динамического массива определяют так:
var
MyArray: array of Integer;
begin
SetLength(MyArray,1000);

[Лексей]

Сообщение от Adamrus

a:=random(10000);{Определение размера массива A и его заполнение}
его размер Вы определили еще в разделе VAR

размер динамического массива определяют так:
var
MyArray: array of Integer;
begin
SetLength(MyArray,200);

да правильно там происходит заполнение массива надписи остались от другого забыл стереть

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

пс и ещё подскажите как подсчитать время затраченное не сортировку???

[Adamrus]

перед стартом включить Timer, после выхода выключить, то что он насчитал, вывести в лог

[Лексей]

Сообщение от Adamrus

перед стартом включить Timer, после выхода выключить, то что он насчитал, вывести в лог

а не сложно выложить как он вкл и выкл

[Adamrus]

c Таймером я поспешил.
сейчас вот написал для проверки:

var
  Form1: TForm1;
  t,t1:TDateTime;

перед стартом алгоритма:

t:=Time;

после окончания:

t1:=Time;
ShowMessage(TimeToStr(t1-t));

загвозка в том, как выводить миллисекунды. Комп настолько быстро обрабатывает, что в ответе почти всегда будет "0:00:00"

[Лексей]

я нашел вот такую байду
OperBegin := DateTimeToTimeStamp(Now) ;

[B OperEnd := DateTimeToTimeStamp(Now);
Total := OperEnd.Time - OperBegin.Time;[/B]

вроде работает но выводит тож 0 правда если часто нажимать батон то раз в 15-20 запусков выскакиевает 15-16 мс

ншел такой алгоритм

for i:=0 to 255 do
 C[i]:=0;
 for i:=1 to N do
 C[A[i]]:=C[A[i]]+1;
 for i:=1 to 255 do
 C[i]:=C[i-1]+C[i];
 for i:=N downto 1 do
 begin
  B[C[A[i]]]:=A[i];
  C[A[i]]:=C[A[i]]-1;

но что-то не могу его прикрутить

и ещё нашел такой алгоритм

SimpleCountingSort
    for i = 0 to k - 1
        C[i] = 0;
    for i = 0 to n - 1
        C[A[i]] = C[A[i]] + 1;
    b = 0;
    for j = 0 to k - 1
        for i = 0 to C[j] - 1
            A[b] = j;
            b = b + 1;

так какой верно и как его прикрутить???

[Лексей]

алгоритм понял
делаем нулевой массив

for j:=0 to 10000 do
 z[j]:=0;

затем из массива а помещаем в массив z в ячейку № a(i)

for i:=1 to 1000 do

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

но доделать и прилепить не могу