Đo thời gian chạy của thuật toán trên Free Pascal

tuan.io · March 19, 2018, 4:44am

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.

megaheart · March 19, 2018, 5:10am

Mình search đc khá nhiều kết quả nek

https://www.google.com.vn/search?q=how+to+messure+the+time+code+run+in+pascal&oq=how+to+messure+the+time+code+run+in+pascal+&aqs=chrome..69i57.24668j0j7&sourceid=chrome&ie=UTF-8

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

tonghoangvu · March 22, 2018, 12:23pm

Đ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.