Tính thời gian chạy chương trình trong pascal

Tìm kiếm

 
Inside  Google

Display results as :
Posts  Topics

Advanced Search

Similar topics

  • » Nero 9.4.26.0 - Chương trình ghi đĩa số 1 TG
  • » thoi khoa bjieu

October 2022
MonTueWedThuFriSatSun
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31            
Calendar
Your first subject
Sat Feb 06, 2010 5:40 pm by Admin
Take some time to read this information before starting to use the administration of your forum:

How to access your administration panel ?
In the top menu, click on Log In, a new page is displayed. Fill in the username "admin" and the password you have choosen during your registration. If you have lost or forgot it, click here. Once you are logged in, click on the link "Administration Panel" at …

[ Full reading ]

Comments: 0
Latest topics

» "Nguyện ước" - Khánh Phương đạo I hope của FT Island

Mon May 16, 2011 10:54 pm by GD_uni

» [ MV ] Em Luôn Ở Trong Tâm Trí Anh - The Men

Mon May 16, 2011 10:51 pm by GD_uni

» Quy định cho MOD, SMOD, ADMIN

Mon May 16, 2011 10:18 pm by GD_uni

» NỘI QUY DIỄN ĐÀN

Mon May 16, 2011 10:16 pm by Ryouji

» Chat trêu gái :]]

Mon May 16, 2011 10:08 pm by GD_uni

» Tuyển nhân sự cho hội độc thân

Mon May 16, 2011 5:45 pm by GD_uni

» Ai có gì thắc mắc về cntt [không Phải Về Lập Trình Đâu Nhá] thì vào đây - sẽ giúp hết mình nếu có thể

Sun May 15, 2011 8:15 pm by flp_102

» [MV] Lonely - 2NE1 vietsub HD

Fri May 13, 2011 9:44 pm by GD_uni

» Thông báo : tuyển MOD đợt II cho diễn đàn !!!

Fri May 13, 2011 8:45 pm by Ryouji

Chuyên Tin Pro :: Học sinh khối chuyên Tin trường THPT chuyên Nguyễn Trãi - Hải Dương :: [TPNT] G Ó C H Ọ C T Ậ P :: Tin
Tác giảThông điệp
 
 
flp_102
Mem VIP


Tổng số bài gửi : 48
Reputation : 0
Join date : 06/02/2010
Age : 28
Đến từ : vương quôc ko có computer

Tiêu đề: Đo thời gian chạy chương trình trong Free Pascal   
Wed Mar 17, 2010 6:07 pm

code
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 time : longint; begin time := gettickcount; ... write['Time = ', gettickcount - time]; end.

 

 

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

 
Trang 1 trong tổng số 1 trang

Similar topics

» "Lỗ hổng thời gian" và những vụ mất tích bí ẩn -
» UltraISO - Chương trình biên tập, tạo, thêm bớt dữ liệu file image cực mạnh
» Manchester United-CLB của mọi thời đại!!!!!!!!!!!!!!!!!!

Permissions in this forum: Bạn không có quyền trả lời bài viết
Chuyên Tin Pro :: Học sinh khối chuyên Tin trường THPT chuyên Nguyễn Trãi - Hải Dương :: [TPNT] G Ó C H Ọ C T Ậ P :: Tin
Chuyển đến:  

Đăng Nhập
Tên truy cập:
Mật khẩu:
Đăng nhập tự động mỗi khi truy cập: 
:: Quên mật khẩu

Or


Top posters
devil1703
 
iam_mr_lonely
 
Ryouji
 
p_tuan
 
hungthanpro01
 
flp_102
 
_spam_
 
ngoanqua
 
susu.218
 
GD_uni
 

Bài Viết Liên Quan

Chủ Đề