Сортировка массива, таймер(pascal)

[Milashka_zp]

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

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

uses dos,crt;
const N=1000;
var 
    i,j,key,m:integer;
    a:array[1..N] of integer;
    h_s,m_s,s_s,hs_s:word;
begin
       clrscr;
       readln(m);
for i:=1 to m do
begin 
       readln(a[i]);
end;
GetTime(h_s,m_s,s_s,hs_s);
writeln('start = ',m_s,'min',s_s,'sec',hs_s,'msec'); 
for i:=2 to n do 
begin 
       key:=a[i];
       j:=i-1;
       while (j>=1) and (A[j]>key)
       begin
             a[j+1]:=a[j];
             j:=j-1;
       end;
       a[j+1]:=key;
end;
GetTime(h_s,m_s,s_s,hs_s);
writeln('stop = ',m_s,'min',s_s,'sec',hs_s,'msec');
for j:=1 to m do
begin
       writeln('a[',j,'] = ',a[j]);
end;
end.

[CodeExpert]

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

TimeIn:=GetTickCount;
....
TimeOn:=GetTickcount-TimeIn;
....
Min:=TimeOn div 60000;
Sec:=(TimeOn-(Min*60000))div 1000;

[Stilet]

while (j>=1) to (A[j]>key)

Это что за буттер с бротом?
Что ты этим написать хотела?

GetTickCount

Сэр, помилуйте... Паскаль!

[Milashka_zp]

Это опечатка...

while(j>=1) and (a[j]>key)

[Stilet]

Хм... Ну вот:

uses dos,crt;
const N=1000;
var
    i,j,key,m:integer;
    a:array[1..N] of integer;
    h_s,m_s,s_s,hs_s:word;
begin
       clrscr;
       readln(m);
for i:=1 to m do
begin
       a[i]:=random(200);
end;
GetTime(h_s,m_s,s_s,hs_s);
writeln('start = ',m_s,'min',s_s,'sec',hs_s,'msec');
for i:=2 to n do
begin
       key:=a[i];
       j:=i-1;
       while (j>=1) and (A[j]>key) do
       begin
             a[j+1]:=a[j];
             j:=j-1;
       end;
       a[j+1]:=key;
end;
GetTime(h_s,m_s,s_s,hs_s);
writeln('stop = ',m_s,'min',s_s,'sec',hs_s,'msec');
for j:=1 to m do
begin
       writeln('a[',j,'] = ',a[j]);
end;
readln;
end.

Работает.

[Milashka_zp]

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

[Stilet]

Milashka_zp

Ошибаешся )
Обрати внимание на readln перед последним end.
Твоя прога не "не работает" а просто по отработке не задерживается на экране. Понятно?

[Milashka_zp]

У меня не с этим проблема!
Время выводит не правильное, допусим 22 min 13 sec 67 msec, хотя уходят секунды на отработку алгоритма

[p51x]

Milashka_zp
GetTime - возвращает текущее время. Протелепачу, что вы ее запускали в Х часов 22 минуты 13 секунд....
Чтобы узнать время работы надо из времени старта вычесть время окончания.

[Milashka_zp]

помимо отсортированного массива выводит:
start = 22 min 34 sec 56 msec
stop = 22 min 34 sec 56 msec
в этом моя проблема