谁能帮我解决一个PASCAL的练习?
我是初学者,有个练习不会做:用PASCAL设计,把24小时转制换成12小时制
参考答案:1楼的太烦琐
2楼的不精确
如果只是小时的转化
楼主请看下面代码
希望可以满意
var
a:integer;
begin
readln(a);
if a>12 then writeln(a mod 12,'pm');
if a<12 then writeln(a,'am');
end.
加上分秒只需
var
a,b,c:integer;
begin
readln(a,b,c);
if a>12 then writeln(a mod 12,':',b,':',c,'pm');
if a<12 then writeln(a,' ',b,':',c,':','am');
end.