Viết chương trình pascal để tạo 1 cái đồng hồ, giây, phút,ngày,tháng,năm đều chạy đc KHÔNG C++

0 bình luận về “Viết chương trình pascal để tạo 1 cái đồng hồ, giây, phút,ngày,tháng,năm đều chạy đc KHÔNG C++”

1. 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!! :)))

   

   Bình luận