pascal时间控制

用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.
你拿手表测一测，时间差不多吧。

在program xxx;之后写uses DOS,CRT;

之后介绍几个过程与函数:
1. GetTime DOS库 过程 获取当前时间 参数:GetTime(Var h,m,s,cs:WORD)
说明:GetTime用来获取当前系统时间.
2. KeyPressed CRT库 函数(Boolean) 检测在上一次读入之后用户是否按了键盘,如果是返回True,否则False
3. Readkey CRT库 函数(Char) 读入在上一次读入之后用户按的按键(如果返回#0请在读一个,因为键盘上的键-含组合键-多于256个)

最后补充一句:
如果要在Turbo Pascal上使用uses CRT请安装补丁.

1、可以用一个变量，用一个case当这个变量达到一定数值是，输出。
2、应该是你输入一个数之后，才能得到他的答案，这样输出。

1、可以用一个变量，用一个case当这个变量达到一定数值是，输出。
2、应该是你输入一个数之后，才能得到他的答案，这样输出。

最简单的方法：弄几个空循环
for i:=1 to 1000000 do;
要做事控制i的值即可