Xin chào các bác ạ. Em đang sử dụng fp để học giải thuật mà không biết cách đo thời gian thế nào, em đã tìm trên mạng nhưng chưa có ai share kĩ cho em hiểu cả. Mọi người có ai biết chỉ em cách đo thế nào với.
Đo thời gian chạy của thuật toán trên Free Pascal
Mình search đc khá nhiều kết quả nek
Tập search bằng tiếng anh nha! :)) Rất nhiều tài liệu về lập trình viết bằng tiếng anh
2 Likes
Đo bằng gettickcount nhé.
Thêm unit Windows uses windows;
Thêm một biến longint var t:longint;
Xem thử đoạn code mẫu sau rồi bạn sẽ hiểu cách sử dụng:
uses crt, Windows;
var
time: LongInt;
begin
ClrScr;
time:=GetTickCount;
// Làm gì thì làm thuật toán ở đây
time:=GetTickCount-time;
WriteLn('Thoi gian chay la ',time,' miliseconds');
ReadLn
End.
3 Likes