Pascal计时函数

1.Program XXXX;
uses sysutils;
var t:real;
begin
t:=now; //sysutils的标准函数，返回的是现在的时间，单位是“天(day)”
{XXXX自己的程序}
writeln((now-t)*86400:0:4);//把天的单位转换成秒，加场宽限制精度小数点后四位
　　2.找到pascal里的sysutils单元粘到fp.exe所在文件夹下
　　程序开头写上uses sysutils；
　　此后now就是运行的时间
　　但now的单位不是秒，需要乘上86400
　　例：
　　uses sysutils；
　　var
　　i ：integer；
　　time ：real；
　　begin
　　time:=now;
　　for i:=1 to 10000000 do inc(k);
　　writeln((now-time)*86400);
　　end.
　　输出的就是运行的时间，这样就可以自己测程序的运行时间了
　　Pascal的名称是为了纪念十七世纪法国著名哲学家和数学家Blaise Pascal的，它由瑞士Niklaus Wirth教授于六十年代末设计并创立的。
　　Pascal语言语法严谨，层次分明，程序易写，可读性强，是第一个结构化编程语言。
　　Pascal计算机程序教程如今已经有专业化课程，并且越来越完善和严格化。

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.

注意不要在程序