有一句话不得不说 英文:BASIC(QB)完善程序题

来源:百度文库 编辑:神马品牌网 时间:2024/04/28 07:25:01
再一个长方形中画一个最大的正方型直到都是正方形
10 A=2255
20 B=660
30 ?A,B
40 C=(1)
50 IF C>B THEN (2):?A,B:GOTO (3)
60 IF C<B THEN (4):?A,B:GOTO 40
70 IF (5) THEN ?"C=";C,"S=";C*C
注:?为 PRINT
求(1)(2)(3)(4)(5)
最好有运行结果
10 A=2255
20 B=660
30 ?A,B
40 C=A
50 IF C>B THEN A=A-1:?A,B:GOTO 40
60 IF C<B THEN A=A+1:?A,B:GOTO 40
70 IF C=B THEN ?"C=":C,"S=";C*C
回答者:高侠出平湖 - 举人 四级 8-28 10:59

NONONONO!甭答了,偶知道了~~~~~~~~~~
^-^

10 A=2255
20 B=660
30 ?A,B
40 C=A
50 IF C>B THEN A=A-1:?A,B:GOTO 40
60 IF C<B THEN A=A+1:?A,B:GOTO 40
70 IF C=B THEN ?"C=":C,"S=";C*C