uses crt;
var giay,phut,gio,thang,ngay,nam,t:longint;
begin
clrscr;
giay:=0;
phut:=0;
gio:=0;
ngay:=0;
thang:=0;
Nam:=0;
repeat
inc(giay);
if giay=60 then begin inc(phut); giay:=0; end;
if phut=60 then begin inc(gio); phut:=1; end;
if gio=24 then begin inc(ngay); gio:=1; end;
/////Tinh ngay cua thang
if (thang mod 2<>0)or(thang=8) then t:=31 else t:=30;
if thang=2 then if nam mod 4=0 then t:=29 else t:=28;
//////////////
if ngay=t then begin ngay:=1; inc(thang); end;
if thang=12 then begin thang:=1; inc(nam) end;
writeln('Giay:',giay,' ;Phut:',phut,
' ;Gio:',gio,' ;Ngay:',ngay,' ;Thang:',thang,' ;Nam:',Nam); delay(999);
clrscr;
until 1=2;
readln
end.
//////////////////////////////////////
Hướng dẫn sử dụng đồng hồ:
Bạn hãy chỉnh ở chỗ mình đặt trước repeat thành giờ hiện tại!
Đồng hồ sẽ chạy đến khi bạn tắt pascal đi!
Hặc bạn chỉ cần ấn Ctrl-C để về lại trang lập trình mà không cần tắt pascal đi!
Chúc bạn học tốt!! :)))
