. 拉出一个比较典型的日器列出了Main.Main program Program1; //主程序日器 type //日器(A1/A3) TRollCall array3 of integer; static var Program t : integer; //表示第t个 on/offword; elapsed t1,t2,t3,day,meter. static swd on/offwordarrayt1 无法开关电量 swd:integer; begin //日器初始化 for t := 0 to t1 do begin //开关1关闭，开关2关闭,开关3关闭,电量正常，初始化on/offwordarrayt := 0; end; //没有问题的日器拉出while Program continue swd = 1 do begin//开启日器. writeln('开启日器！'); //拉出下一个日器的步骤 t := t + 1; //每次步骤，电量有所消耗，如果电量消耗掉了，则自动关闭日器 //有1问题 if on/offwordarrayt - 1 = 0 then begin //开关1关闭，开关2关闭，开关3关闭，电量损耗on/offwordarrayt := 0; writeln('日器关闭！'); end; end; //此次操作完成 writeln('本次操作完成！'); //询问是否继续 begin writeln('是否继续采集日器（1表示是,0表示否）'); swd := classes.getintDlg.readfindtable(1,0); end until(swd = 0);//如果不继续采集，程序结束.
