大家帮我看看这Pascal的程序为什么会输出负数的?program a13;var a,b,c,d:integer;e:real;beginreadln(a,b,c);d:=a;while not((a mod d=0)and(b mod d=0)and(c mod d=0)) do d:=d-1;e:=a*b*c/d/d;writeln(d,' ',e:0:2)readln;end.我输入82 46 98,
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/27 15:05:47
大家帮我看看这Pascal的程序为什么会输出负数的?program a13;var a,b,c,d:integer;e:real;beginreadln(a,b,c);d:=a;while not((a mod d=0)and(b mod d=0)and(c mod d=0)) do d:=d-1;e:=a*b*c/d/d;writeln(d,' ',e:0:2)readln;end.我输入82 46 98,
大家帮我看看这Pascal的程序为什么会输出负数的?
program a13;
var a,b,c,d:integer;
e:real;
begin
readln(a,b,c);
d:=a;
while not((a mod d=0)and(b mod d=0)and(c mod d=0)) do d:=d-1;
e:=a*b*c/d/d;
writeln(d,' ',e:0:2)
readln;
end.
我输入82 46 98,输出2 -5890.00我想知道为什么不是92414呢.大家帮我看看,
那个分号是刚刚写漏了,可我的电脑显示的是负数啊,我输入4 6 8 就输出2 96.00,但这就输出负数了.还有一些会输出负数的如:146 680 460输出2 -2448.00为什么会这样呢,为什么有的是正数有的是负数呢?
大家帮我看看这Pascal的程序为什么会输出负数的?program a13;var a,b,c,d:integer;e:real;beginreadln(a,b,c);d:=a;while not((a mod d=0)and(b mod d=0)and(c mod d=0)) do d:=d-1;e:=a*b*c/d/d;writeln(d,' ',e:0:2)readln;end.我输入82 46 98,
因为您是在16位编译器下,Integer是两个字节的,最大能表示的数是32767:)