free pascal除法运算
programdivision;vara,b:integer;c:real;beginwrite('a=');readln(a);write('b=');readln(b...
program division;
var a,b:integer;
c:real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
c:=a/b;
writeln('c=',c);
readln;
我输入a=1,b=2,按理来说c应该要输出位0.5
可是程序输出的却是c=5.00000000000000E-001
怎么回事啊 展开
var a,b:integer;
c:real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
c:=a/b;
writeln('c=',c);
readln;
我输入a=1,b=2,按理来说c应该要输出位0.5
可是程序输出的却是c=5.00000000000000E-001
怎么回事啊 展开
5个回答
展开全部
pascal 默认用科学技术法表示得数,当存在为小数输出时,为查看方便需加上保留小数位
下面是实例 给分
保留一位小数:write('c=',c:0:1)
保留两位小数:
write('c=',c:0:2)
下面是实例 给分
保留一位小数:write('c=',c:0:1)
保留两位小数:
write('c=',c:0:2)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把writeln('c=',c);
改成writeln('c=',c:0:1);
因为pascal输出实数是用科学计数法来输出的,所以确定小数位数时要用双场宽来输出实数。
改成writeln('c=',c:0:1);
因为pascal输出实数是用科学计数法来输出的,所以确定小数位数时要用双场宽来输出实数。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
场宽的问题- -
输出最好是('c=',c:0:2);
输出两位小数。
小数点的位置pascal也分析不出来。
输出最好是('c=',c:0:2);
输出两位小数。
小数点的位置pascal也分析不出来。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
结尾没有保留,最后write要改成:
writeln('c=',c:0:2);
writeln('c=',c:0:2);
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询