Gốc > Bài viết > Bài tập lập trình Pascal >
Code pascal tính thời gian thực hiện chương trình.
Với Free Pascal:
Với Turbo Pascal:
Lê Anh Dũng @ 21:19 24/01/2010
Số lượt xem: 3155
Code:
Uses SysUtils;
Var t1, t2: TTimeStamp;
Begin
t1 := DateTimeToTimeStamp(Now);
(* Do something *)
t2 := DateTimeToTimeStamp(Now);
writeln(t2.Time - t1.Time, ' milisecs');
End.
Code:
Var
t1, t2: longint;
t: longint absolute 0:$46c;
Begin
t1 := t;
(* Do something *)
t2 := t;
writeln(((t2 - t1) / 18.21):0:5, ' secs');
End.
phần chương trình chính bạn đặt vào đoạn (* Do something *).
Lê Anh Dũng @ 21:19 24/01/2010
Số lượt xem: 3155
Số lượt thích:
0 người