如果用pascal写个倒计时或者定时提醒的程序？_pascal吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：9,032贴子：
如果用pascal写个倒计时或者定时提醒的程序？收藏
有没有相关的函数可以定时向系统获取时间？即每分钟或者每小时就向系统请求获得时间信息，而这关键就是如何得到多长时间才是每分钟或者每小时。另外，百度的话可以在文库那里找到一份代码，那是使用crt单元中的sound以及delay来实现上面所说的功能，即使用delay来确定多长时间是一秒。By the way，吧里有没有使用CP Pascal Editor的？有的话指教下如何使用其中的crt单元。（最新版本用不了crt单元，前一个版本可以用crt单元，但是却不能用dos单元……）
「猎聘网」互联网名企招聘,年薪30万起工作,「0加班」 互联网行业垂直招聘网
具体如何实现？调用windows相关的api？哪些？
刚百度到可以用sleep函数，但经测试sleep在pascal的单位似乎既不是微秒也不是秒，这和机器有关？
gettingtime函数+delay函数解决……free Pascal就可以解决这个问题的……
CP?要是想用中文的话换lazarus
隔一段时间再messagebox
调用命令行 at x:xx xxxx
命令行shutdown -s -t 秒然后到了时间自动关机提醒
找到一个调用Windows API的pascal代码，但是这个要求在前台运行，有没有什么办法可以令其在后台运行，然后在特定时间内弹出提醒？---------------------代码分隔符---------------varmsg:TMSG;i:procedure timer_tick(hwnd, uMsg, eventID, dwTime:longword);begininc(i);writeln(i);BEGINSetTimer(0,0, 1000, @timer_tick);while GetMessage(@msg, 0, 0, 0) doDispatchMessage(@msg);END.
进程劫持explorer.exe,照着网上的程序添加一个智能宝宝的壳发给host
有这么麻烦么？Free Pascal的DOS单元有相关子程序：uses DOS&#59;gettimg(h,m,s,ms)注意ms是0-99的。
function time():longint&#59;var th,tm,ts,tms:word&#59;begin  gettime(th,tm,ts,tms)&#59;  time:=th&#59;  time:=time*60+tm&#59;  time:=time*60+ts&#59;  time:=time*100+tms&#59;end&#59;
用dos里面的gettime。。。到时候while(true) writeln(chr(7));就可以了。。。
timer组件或settimer killtimer
隔一段时间 gettime一次
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或如何用pascal编写倒计时
如何用pascal编写倒计时
09-04-10 &匿名提问
var&n,I,j:begin&&&readln(n);&&&for&I:=(n-1)&downto&0&do&&&begin&&&&&&for&j:=1to&&&&&&&writeln(I);&&&end.
请登录后再发表评论!C=1+1/2+1/4+1/8+1/16+……+1/1024,求C的值,保留四位小数这是我用pascal写的结果总是4.408 到底错哪了 正确写法呢
赋初值 a:=1; b:=1然后 a:=d*2 改为 a:=a*2d:1 to 512 改为 d:1 to 10 //2、4、8、16...1024只有10项哦
不行啊 会变成这样然后没答案.
512改成10，出错应该是溢出了，另外最后那个c:=1+b 就不要了，最后结果就是b，writeln(b:0:4)即可
麻烦整条写一下
因为结果还是错的
var&a,d:&&&&&&b:begin&&&&a:=1;b:=1;&&&&for&d:=1&to&10&do&&&&&&&&begin&&&&&&&&a:=a*2;&&&&&&&&b=b+1/a;&&&&&&&&&&&&writeln(b:0:4);end.
为您推荐：
其他类似问题
扫描下载二维码pascal 计时器_百度知道}