mdsk.net
当前位置:首页 >> PAsCAl计时函数 >>

PAsCAl计时函数

1.Program XXXX;uses sysutils;var t:real;begin t:=now; //sysutils的标准函数,返回的是现在的时间,单位是“天(day)”{XXXX自己的程序} writeln((now-t)*86400:0:4);//把天的单位转换成秒,加场宽限制精度小数点后四位 2.找到pascal里的

计时程序,精确到微秒级别哦!!其它的只能精确到毫秒级别!!program ProgramTimer;Uses Windows;Var CPUFrq:Int64; TimeS:Int64; TimeE:Int64; ElapsedTime:Double;Begin QueryPerformanceFrequency(CPUFrq); QueryPerformanceCounter

dos单元里好像有

Uses Dos; h,m,s,ss:word;{存储时间} t0{开始}:real;begin gettime(h,m,s,ss);{获取当前来系统时间} t0;=h*3600+m*60+s+ss/100; {main} gettime(h,m,s,ss);{获取当前系统时间} writeln((h*3600+m*60+s+ss/100-t0):3:2);end.注意不要在程序显示

第二种方法在freepascal中可行,单位是秒. 但运行会出错,估计有以下几点: uses dos后面应添加var.t0赋值时不是分号是冒号(t0:=而非t0;=).

begindelay(5000);end.

用now函数 先在var前输 uses sysutils;{一个pascal单元} 在程序中用now就可以访问现在的时间注意,要用now*86400才转化成秒 下面这个程序是我编的,你可以试试: uses sysutils; var i,n:integer; time:longint; begin time:=trunc(now*86400);{记录初始时间} for i:=1 to 1000 do n:=n+1-1;{制造时间差} write(truce(now*86400)-time);{输出程序运行时间} end. 你拿手表测一测,时间差不多吧.

卡时是一种让程序在运行了指定长度的时间以后可以自动终止运行并输出结果的技术,其基本原理通常是在程序启动时获取启动时间,然后在程序重复执行的地方获取当前时间,通过计算时间差判断程序已经运行了多久,当程序已运行的时间达

var tot,hour,minute,second:longint;begin readln(tot); hour:=tot div 3600; tot:=tot mod 3600; minute:=tot div 60; second:=tot mod 60; if(hour<10) then write('0'); write(hour,':'); if(minute<10) then write('0'); write(minute,':'); if(second<10) then write('0'); writeln(second); readln();end.

SYSTEM TP的运行库,包括常用的标准函数和过程,可以在程序中直接使用,不需USES语句说明DOS 具有日期、时间、目录查找、程序执行等功能CRT 具有屏幕模式控制、扩展键盘码、颜色、窗口、声音等功能PRINTER 支持打印输出操作

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com