free pascal

11 |

1 | 2007-7-15 18:56:50 | 显示全部楼层 |阅读模式

meml[$40:$6c]是计算程序的执行时间，主要是检查程序有没有超时。下面我举个例：program shijian;vart1,t2:real;begint1:=meml[$40:$6c]; {t1放到程序开始时，表示从这里开始算时间}{当程序结束时，写上t2};t2:=meml[$40:$6c];{t2放到什么位置，表示时间计算到这里，一般放到最后}writeln((t2-t1)/18.2:6:4);{打出运用时间}{补充点，18.2是与秒的进率}end.

使用道具举报