Đề bài : Nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổi và viết ra màn hình số thời gian trên dưới dạng bằng bao nhiêu giờ, bao nhiêu phút, bao nhiêu giây Program DOI_GIO_PHUT_GIAY;
Uses crt;
Var gio, phut,giay, x: longint;
BEGIN
Clrscr;
Writeln['DOI SANG GIO PHUT GIAY'];
Writeln['--------------------------------------'];
Write['Nhap vao so giay: '];
readln[x];
gio:=x div 3600; x:=x mod 3600; phut:=x div 60; x:=x mod 60;
Writeln['Ket qua = ', gio,'gio: ', phut, 'phut: ', x, 'giay'];
Readln;
END. Program Doi_gio_phut_giay; { Tên chương trình }
Uses crt;
Var gio, phut, giay, x: longint; {khai báo các biến }
Bài giải :
Chúng ta sẽ khai báo thời gian nhập vào là biến x và các giá trị khác lần lượt là gio, phut, giay với giá trị là longint . longint cho biết đây là biến kiểu số nguyên, phạm vi giá trị từ -2147483648 đến 2147483647.
BEGIN Clrscr; {xóa cache} Writeln['DOI SANG GIO PHUT GIAY']; {In ra màn hình thông báo } Writeln['--------------------------------------']; Write['Nhap vao so giay: ']; {Yêu cầu nhập số giây cần chuyển đổi } readln[x]; gio:=x div 3600; x:=x mod 3600; phut:=x div 60; x:=x mod 60; { thực hiện phép chuyển đổi} Writeln['Ket qua = ', gio,'gio: ', phut, 'phut: ', x, 'giay']; { cho ra kết quả} Readln; END.
Chúc các bạn học tốt !
uses crt;
var n:integer;
begin
clrscr;
readln[n];
writeln[n div 3600,' ',n div 60,' ',n mod 60];
readln;
end.
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Viết chương trình nhập vào số giờ ,phút giây.Kiểm tra xem giờ,phút ,giây này có hợp lệ hay không?
Các câu hỏi tương tự
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
1. viết chương trình nhập số giây từ bàn phím,in ra màn hình kết quả cách đổi từ giây sang phút-giây.biết 60 giây=1 phút [pasccal ]
2 .nghỉ hè trúc đc bố mẹ dẫn đi nghỉ mát,nhưng vs điều kiện dựa vào số tiền T[ đơn vị nghìn đồng ] nà Trúc đã để dành trong năm học vừa qua :
+ nếu T 200 và T500 và T1000: Đi Đầm Sen
Các câu hỏi tương tự
uses crt;
var g,p,g1,g2,t : longint;
var i,j,k : word;
begin clrscr;
write['Nhap gio :']; readln[g];
write['Nhap phut :']; readln[p];
write['Nhap giay :']; readln[g1];
t:=g*3600+p*60+g1;
write['Nhap giay moi :']; readln[g2];
t:=t+g2;
for i:=1 to 24 do
for j:=1 to 60 do
for k:=1 to 60 do
if [i*3600+j*60+k=t] then
write[i,'gio',j,'phut',k,'giay'];
readlnchắc luôn