pascal 帮我看看这个程序有没有错
发布网友
发布时间：2024-10-24 07:33
共3个回答
热心网友
时间：2024-10-27 22:01
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-10-27 21:58
还有，应该是z：=j-y,
主程序打.
热心网友
时间：2024-10-27 21:58
