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

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.

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

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
83% thành viên diễn đàn không hỏi bài tập, còn bạn thì sao?