神马品牌网小学数学微型课题案例:救命!!!!S~O~S!!!!!!!
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 12:56:30
label 10,20;
var a,b,c:integer;
begin
readln(a,b);
write(a,'/',b,'=');
repeat
c:= (b div a) + 1;
a:= a * c - b; b:= b * c;
write('1/', c);
IF (b/a)=(b div a) THEN
begin
writeln('+1/',b / a);
goto 10;
end;
IF (a>1) THEN write('+');
until a>1;
10:
end.
我哪里错了?为什么系统说无效数字格式? 我都晕了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
var a,b,c:integer;
begin
readln(a,b);
write(a,'/',b,'=');
repeat
c:= (b div a) + 1;
a:= a * c - b; b:= b * c;
write('1/', c);
IF (b/a)=(b div a) THEN
begin
writeln('+1/',b / a);
goto 10;
end;
IF (a>1) THEN write('+');
until a>1;
10:
end.
我哪里错了?为什么系统说无效数字格式? 我都晕了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
晕
编程我虽然只懂皮毛
但楼上的也太~~~~~~~~~~