Tin học Pascal bài toán thời gian

[Ngu Cực]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

TẠI 1 THỜI ĐIỂM TRONG NGÀY, LUÔN XÁC ĐỊNH ĐƯỢC VỀ MẶT THỜI GIAN GỒM GIỜ PHÚT GIÂY.CHẲNG HẠN TẠI THỜI ĐIỂM A(12giờ,11phút,16giay)
YÊU CẦU :CHO TRƯỚC THỜI ĐIỂM A.HÃY TÌM THỜI ĐIỂM SAU THỜI ĐIỂM A 1 GIÂY

 

[Ngu Cực]

các bạn xem có ổn ko

 

[Haworthia]

[TEX] uses crt; Var min,s,h:integer; f:text; Begin assign(f,'file.inp'); reset(f); read(f,h,min,s); inc(s); while s > 60 do Begin inc(min); s:=s-60; end; while min > 60 Do begin inc(h); min:=min-60; end; while h > 12 do h:=h-12; assign(f,'file.out'); rewrite(f); write(f,h,' gio ',min,' phut ',s,' giay'); close(f); End. [/TEX]

 

[Nhật Hạ !]

Nếu rảnh thì bạn repeat...until để phần nhập h,p,g phù hợp với thời gian thực luôn nha.

---khai báo các kiểu-----
Begin
---nhập h,p,g---
g:=g+1;
While g>59 do Begin  g:=g-60;  p:=p+1;  End;
While p>59 do Begin p:=p-60; h:=h+1; end;
While h>23 do h:=h-24;
write(h,':',p,':',g);
readln;
end.

 

[02-07-2019.]

Nếu rảnh thì bạn repeat...until để phần nhập h,p,g phù hợp với thời gian thực luôn nha.

---khai báo các kiểu-----
Begin
---nhập h,p,g---
g:=g+1;
While g>59 do Begin  g:=g-60;  p:=p+1;  End;
While p>59 do Begin p:=p-60; h:=h+1; end;
While h>23 do h:=h-24;
write([COLOR=#ff0000]g[/COLOR],':',p,':',g);
readln;
end.

Đổi chữ đỏ : g->h.

 

[Nhật Hạ !]

---khai báo các kiểu-----
Begin
---nhập h,p,g---
g:=g+1;
While g>59 do Begin  g:=g-60;  p:=p+1;  End;
While p>59 do Begin p:=p-60; h:=h+1; end;
While h>23 do h:=h-24;
write(h,':',p,':',g);
readln;
end.

Nếu rảnh thì bạn repeat...until để phần nhập h,p,g phù hợp với thời gian thực luôn nha.