Mọi người giúp mik với. Nếu dc mik sẽ vote 5 sao và cám ơn
Viết phương trình pascal: Cho bảng đồng hồ điện tử cho một dãy số gồm p,h,s thể hiện tương ứng giờ, phút, giây của thời điểm hiện tại. Cứ sau mỗi giây, giá trị của bộ ba số h,p,s sẽ đổi thành h1,p1,s1 tương ứng với thời điểm mới
Yêu cầu: Cho 3 số h,p,s. Hãy tìm h1,p1,s1.
Input: h,p,s
Output: h1,p1,s1
Dữ liệu thêm: 0<=h1,h<=23 , 0<= s,s1,p,p1<= 59
VD: Bây giờ là 8 giờ 30 phút 0 giây thì sẽ là 8h 30p 0s . Nếu tăng thêm 1 giây sẽ là 8 h1 30 p1 1 s1
VD2: Bây giờ là 9 giờ 59 phút 59 giây thì sẽ là 9h 59p 59s . Nếu tăng thêm 1 giây sẽ là 10 h1 0 p1 0 s1
Mọi người giúp mik với. Nếu dc mik sẽ vote 5 sao và cám ơn Viết phương trình pascal: Cho bảng đồng hồ điện tử cho một dãy số gồm p,h,s thể hiện tương
By Claire
program ct;
uses crt;
var h,p,s:integer;
begin clrscr;
write(‘Nhap gio, phut, giay hien tai: ‘); readln(h,p,s);
s:=s+1;
if s=60 then
begin
p:=p+1;
s:=0;
end;
if p=60 then
begin
h:=h+1;
p:=0;
end;
if h=24 then h:=0;
write(h,’h /’,p,’p /’,s,’s’);
readln;
end.
Học Tốt!
uses crt;
var d:text; h,p,s:longint;
begin
clrscr;
assign(d,’input.pas’);reset(d);
readln(d,h,p,s);
close(d);
assign(d,’output.pas’);rewrite(d);
inc(s);
if s=60 then begin inc(p); s:=0; end;
if p=60 then begin inc(h); p:=0; end;
if h=24 then h:=0;
writeln(d,h,’ ‘,p,’ ‘,s);
close(d);
end.
//////////////////////////////////////////////
Test