大家帮我看看这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/07/02 02:58:15
![大家帮我看看这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,](/uploads/image/z/6840340-52-0.jpg?t=%E5%A4%A7%E5%AE%B6%E5%B8%AE%E6%88%91%E7%9C%8B%E7%9C%8B%E8%BF%99Pascal%E7%9A%84%E7%A8%8B%E5%BA%8F%E4%B8%BA%E4%BB%80%E4%B9%88%E4%BC%9A%E8%BE%93%E5%87%BA%E8%B4%9F%E6%95%B0%E7%9A%84%3Fprogram+a13%3Bvar+a%2Cb%2Cc%2Cd%3Ainteger%3Be%3Areal%3Bbeginreadln%28a%2Cb%2Cc%29%3Bd%3A%3Da%3Bwhile+not%28%28a+mod+d%3D0%29and%28b+mod+d%3D0%29and%28c+mod+d%3D0%29%29+do+d%3A%3Dd-1%3Be%3A%3Da%2Ab%2Ac%2Fd%2Fd%3Bwriteln%28d%2C%27+%27%2Ce%3A0%3A2%29readln%3Bend.%E6%88%91%E8%BE%93%E5%85%A582+46+98%2C)
大家帮我看看这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:)