pascal 帮我看看这个程序有没有错

发布网友 发布时间：2024-10-24 07:33

我来回答

共3个回答

热心网友 时间：2024-11-04 23:44

函数定义位置不对，除号使用不当，应为z：=j div y;exit(j)位置不对，少了分号，问题很多，改过的程序
var a,b,c,d,e,f,g,h:integer;
function gongyue(s1,s2:integer):integer;
var j,y,z:integer;
begin
j:=s1;
y:=s2;
if y<>0 then
begin z:=j div y;
j:=y;
y:=z;
exit(j);
end;
end;

begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=1 to 9 do
for d:=0 to 9 do
begin
e:=a*10+b;
f:=c*10+d;
g:=gongyue(e,f);
if ((e/f=(e*g)/(f*g)) and (b=c)) then
writeln(e,'/',f,'=',e*g,'/',f*g);
end;
end.
语法没有问题，就是不知道是不是有逻辑问题。

热心网友 时间：2024-11-04 23:43

有错

热心网友 时间：2024-11-04 23:49

function要放上面去
还有，应该是z：=j-y,
主程序打.