Chuyên Tin Pro

Chuyên Tin Pro

Chỉ có những bộ óc đươc chuẩn bị sẵn mới có được những phát minh tình cờ
 
IndexIndex  PortalPortal  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng Nhập  Đăng kýĐăng ký  
Chào mừng bạn đến với forum khối chuyên tin,trường THPT chuyên Nguyễn Trãi-Nơi kết nối những trái tim,nơi bạn thể hiện bản thân mình.Hãy cùng tham gia và cảm nhận.!
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Similar topics
December 2016
MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
262728293031 
CalendarCalendar
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

Share | 
 

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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
flp_102
Mem VIP
Mem VIP


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

Bài gửiTiê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. Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Đo thời gian chạy chương trình trong Free Pascal
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Chỉ dẫn khi vào không gian kín trên tàu dầu
» [Lạ mà không] Bức ảnh bình thường - Không phải chuyến du hành thời gian
» [CCS + Voc fic] Hành trình vượt thời gian (Chap 2.2 + 3)
» Từ con diều giấy đến chiếc máy vi tính
» Có những nỗi nhớ không bao giờ nguô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