Trang 1 trong tổng số 1

Bài tập: Xác định thời gian sau khi nhân đôi

Đã gửi: T6 24 Th2, 2023 13:56
bởi huynhbuutam
Viết chương trình nhập vào từ bàn phím thời gian T1 (giờ - phút - giây). T2 là thời gian gấp 2 lần thời gian Tl. Hãy in ra màn hình thời gian T2 (giờ - phút - giây) sau khi thực hiện phép tính. Lưu ý: giá trị về thời gian là các số tự nhiên và giá trị của phút, giây < 60.

Chương trình ví dụ;

Mã: Chọn tất cả

Nhap vao thoi gian T1 (gio - phut - giay): 3 37 39
Thoi gian T2 (gio - phut - giay) la: 7 15 18

(Đề thi chọn Học sinh giỏi Tin học cấp THCS tỉnh An Giang năm 2017 - Câu 1)

Mã nguồn:

Mã: Chọn tất cả

Uses Crt;
Var Gio1, Phut1, Giay1, Gio2, Phut2, Giay2, Tam : LongInt;
Begin
	ClrScr;
	Repeat
		Write('Nhap thoi gian T1 (gio - phut - giay): ');
		ReadLn(Gio1, Phut1, Giay1);
	Until (Gio1 >= 0) And (Phut1 >= 0) And (Giay1 >= 0) And (Phut1 < 60) And (Giay1 < 60);
	Giay2 := Giay1*2;
	Tam := 0;
	If Giay2 >= 60 Then Begin
		Tam := Giay2 Div 60;
		Giay2 := Giay2 Mod 60;
	End;
	Phut2 := Phut1*2 + Tam;
	Tam := 0;
	If Phut2 >= 60 Then Begin
		Tam := Phut2 Div 60;
		Phut2 := Phut2 Mod 60;
	End;
	Gio2 := Gio1*2 + Tam;
	Tam := 0;
	If Gio2 >= 24 Then Begin
		Tam := Gio2 Div 24;
		Gio2 := Gio2 Mod 24;
	End;
	Write('Thoi gian T2 (gio - phut - giay) la: ', Gio2, ' ', Phut2, ' ', Giay2);
	ReadLn;
End.