![]() |
saat
uses crt,dos;
type saat=string[8]; var reg:registers; h,m,s,w,time:saat; i:integer; begin clrscr; repeat reg.ax:=$2c00; intr($21,reg); str(hi(reg.cx):2,h); str(lo(reg.cx):2,m); str(hi(reg.dx):2,s); w:=h+':'+m+':'+s; for i:=1 to length(w) do if w[i]=' ' then w[i]:='0'; gotoxy(90,10); write(w); delay(500); clrscr; until keypressed; readkey; end. |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım için tşkrlr
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 19:44 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.