- 注册时间
- 2005-2-4
- 最后登录
- 1970-1-1
|
以下是一个高手用BAS的计算器,但是我没看懂
0 GOTO 30
10 S=FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
20 GRAPHRINT N$;"=";S:INKEY$
30 CLEAR:TEXT:INPUT "请输入计算式:";N$
40 W=8207
50 FOR I=1 TO LEN(N$)
60 K$=MID$(N$,I,1):O=ASC(K$)
70 IF NOT(O>64 AND O<91)THEN 130
80 K$=MID$(N$,I,3):I=I+2
90 P=(K$="SIN")*220+(K$="COS")*202+(K$="SQR")*215+(K$="ABS")*213
100 P=P+(K$="ATN")*220+(K$="INT")*212+(K$="LOG")*217+(K$="SGN")*211
110 P=P+(K$="TAN")*221+(K$="EXP")*218+(K$="")*0+(K$="")*0
120 IF P=0 THEN PRINT "ERROR":INKEY$:0 ELSE 150
130 P=(K$="+")*201+(K$="-")*202+(K$="*")*203+(K$="/")*204+(K$="^")*205
140 P=P+O*(P=0)
150 REM IF W>THEN P=0:120
160 POKE W,P:W=W+1
170 NEXT
180 POKE W,58:W=W+1OKE W,147:GOTO 10
谁能解释一下第10行是什么意思...
|
|