gvbasic 与rfo basic不同解题过程
gvbasic吧
全部回复
仅看楼主
level 5
xuehuagao168 楼主
求(k*10+3)*6528=(3*10+k)*8256
gvbasic过程
10 k=1
20 if (k*10+3)*6528=(3*10+k)*8256 then 50
30 k=k+1
40 goto 20
50 PRINT "k=";k
END
RFO-BASIC过程
k=1
loop:
if (k*10+3)*6528=(3*10+k)*8256 then print k
k=k+1
goto loop
PRINT "k=";k
END
2015年08月19日 11点08分 1
level 5
xuehuagao168 楼主
打印从1到10,5不打印
gvbasic过程
10 for a=1 to 10
20 if a=4 then goto 40
30 print a
40 next a
50 end
rfobasic过程
for a=1 to 10
if a=5 then gosub aa
print a
next a
goto done
aa:
next a
return
done:
end
2015年08月19日 11点08分 2
level 5
xuehuagao168 楼主
gvbasic步骤更少,思路更清晰,rfobasic去了行号但多了标签反而臃肿起来
2015年08月19日 11点08分 3
1