Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → Час виконання програми
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися
Я порівнюю методи сортування масивів. Для цього потрібно дізнатися за який проміжок часу програма сортує масив. Шукала в гуглі та точної інформації таки не знайшла. Працюю на PascalABC. Наскільки я зрозуміла використовується модуль Utils та DateTime. Та не ясно мені як записати це в програмі. Як надати змінній значення часу?
[code=Pascal]Uses System; {бібліотека .NET для роботи з часом}
var startTime, endTime: DateTime; {час початку і закінчення}
begin
startTime := DateTime.Now; {запам'ятовуємо час початку}
{наша програма}
endTime := DateTime.Now; {запам'ятовуємо час закінчення}
writeln( ( endTime - startTime ).Milliseconds ) {виводимо різницю в мілісекундах}
end.[/code]
Невідоме ім'я типу DateTime.
Що значить "бібліотека .NET"? Мені треба щось докачати?
У вас яка версія PascalABC? Це ще не PascalABC.NET?
Тоді вам знадобиться така функція:
function fGetTime: LongInt;
var hr, min, sec, sec_100: word;
begin
GetTime(hr, min, sec, sec_100);
fGetTime := longint(hr)*360000 + longint(min)*6000 + sec*100 + sec_100;
end;
var before, after: longint;
begin
before := fGetTime;
...
after := fGetTime;
writeln( (after - before) / 100:0:2 )
end;(код звільнено і добровільно воз'єднано із форумом внаслідок референдуму звідси)
У мене PascalABC версія 3.0.1.35.
Цього разу ругається на невідомий ідентифікатор GetTime в 10 рядку.
Uses crt;
const n=100;
var before, after: longint;
a: array[1..n] of integer;
i,j,k,tmp:integer;
function fGetTime: LongInt;
var hr, min, sec, sec_100: word;
begin
GetTime(hr, min, sec, sec_100);
fGetTime := longint(hr)*360000 + longint(min)*6000 + sec*100 + sec_100;
end;
begin
for i:=1 to n do
a[i]:=random(30);
writeln('масив');
for i:=1 to n do
write(a[i],' ');
writeln;
before := fGetTime;
for i:=2 to n do
begin
tmp:=a[i];
j:=1;
while tmp>a[j] do
j:=j+1;
for k:=i-1 downto j do
a[k+1]:=a[k];
a[j]:=tmp;
end;
after := fGetTime;
writeln( (after - before) / 100:0:2 )
writeln('відсортований масив');
for i:=1 to n do
write(a[i],' ');
end.Тоді я вже не знаю. Встановіть собі щось новіше, або почитайте тамтешню довідку...
Останню, з офіційного сайту, звісно, яку ще радять?
Закачала останній PascalABC.NET. Були проблеми з random при підключеному System. Та все ж знайшла рішення.
Все працює, час рахує. Дякую!)
з точністю до мілісекунди
var
StartTime: Integer;
begin
StartTime := GetTickCount;
//...
ShowMessage(IntToStr(GetTickCount - StartTime))
end;але це у модулі Windows чи WinAPI... не впевнений що таке є на ABCPascal...
Значення GetTickCount йдуть ривками приблизно по 10мс. Тому його можна використовувати лише на досить великих циклах.
До речі, цікава історія в тему, може, хто знає, а решті точно буде цікаво - тут і про те, як не треба писати програми, і по зневадження.
Був колись (а подекуди і зараз використовується) такий собі Turbo Pascal 7.0, під MS DOS. Остання його версія вийшла чи то в 1994, чи то в 1995 році - коли найпотужніші процесори ледве-ледве витягали 150-200МГц, а поширені були частоти в 20-60МГц (ага, і 4МБ пам'яті, з яких нормально доступно було менш ніж 600КБ - уявіть собі, так можна було жити). І от раптом з'ясувалося, що всі програми, написані на TP7, падають на нових процесорах з повідомленням "помилка 200" (формально "ділення на 0", але випадало і при інших проблемах). Пам'ятаю, який це був жах, коли на щойно придбаній системі не запускалися старі власні програми - це був десь так рік 1999-й, коли я це побачив...
А проблема була в тому, що модуль CRT мав кілька власних функцій для роботи з часом; і для нормальної роботи йому треба було знати, як системний час співвідноситься з частотою процесора. Сучасні системи можуть таке просто повідомити, але тоді найпростіший спосіб дізнатися щось про залізо був перевірити самому. І там була перевірка - скільки тактів встигне прокрутити процесор за певний час (один тік RTC чи щось таке); але система була 16-бітна, і на швидких комп'ютерах за цей час переповнювався 16-бітний лічильник, що й викликало збій навіть на програмі
uses CRT; begin end.Зараз всі копії TP7 в мережі вже пропатчені, але певні висновки з цього зробити можна.
А як можна визначити обсяг використаної оперативної пам'яті?
В .NET це трохи неточно через збирач сміття; можете спробувати
writeln( System.GC.GetTotalMemory( true ) );тільки врахуйте, що з true воно може виконуватися довго, а з false дасть завищений результат; втім, у випадку true теж правильний результат не гарантується.
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися