01/10/2018, 14:56

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

Trần Linh viết 16:59 ngày 01/10/2018

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

Vuio viết 17:03 ngày 01/10/2018

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

Bình luận về bài viết này

Chia sẻ tin đăng đến bạn bè

Gửi Messenger

Bài liên quan

Tuấn Nguyễn

0 chủ đề

0 bài viết

Tác giả nổi bật