//
you're reading...
00 - Chủ đề chung

Một số thủ thuật Free Pascal

Đo thời gian chạy chương trình trong Free Pascal


uses crt;
var
t1,t2:timestamp;
BEGIN
t1:=datetimetotimestamp(now);
{main programe}
t2:=datetimetotimestamp(now);
writeln(‘time=’,(t2.time-t1.time)/1000,’s’);
END.

OR

uses windows;

var t1, t2 : longint;
begin
t1 := gettickcount;
{đoạn mã thực hiện chương trình}
t1 := gettickcount;
write(‘Time = ‘, t2 – t1, ‘ s.’);
end.


 

Advertisements

About pascalteacher

Trang thông tin Toán học và Tin học

Thảo luận

Không có bình luận

Trả lời

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Đăng xuất / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Đăng xuất / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Đăng xuất / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Đăng xuất / Thay đổi )

Connecting to %s

Các tác giả

Chuyên mục

Tháng Mười 2016
H B T N S B C
« Th9   Th11 »
 12
3456789
10111213141516
17181920212223
24252627282930
31  

NCT Computer

Flickr Photos

Thống kê

  • 255,197 lượt xem

pascalteacher.nct@gmail.com


Trang huấn luyện học sinh giỏi Tin học

%d bloggers like this: