برنامه بیسیک
شما به ورودی این برنامه جمله ای درجه اول وارد می کنید که داخل آن فقط عبارت های جمع و تفریق وجود دارد پس از اجرای برنامه مقدار متغیر ها از شما خواسته می شود و در انتها جواب نوشته خواهد شد
!!!! لطفا عبارت های خود را با حرف کوچک وارد کنید !!!!
مثال :
X+2-X+Z-20 ورودی برنامه
X = ? 10
Z = ? 4 درخواست های برنامه
?? - خروجی برنامه
CLS
INPUT a
($n = LEN(a
OPTION BASE 0
(DIM a$(n + 1), a(n + 1), t(n
FOR i = 1 TO n
( a$(i) = MID$(a$, i, 1
(( a(i) = ASC(a$(i
NEXT i
FOR i = 1 TO n
IF a(i) > 96 AND a(i) < 123 THEN
(( q = INSTR(sum$, a$(i
( sum$ = sum$ + a$(i
g = g + 1
IF q = 0 THEN
; " = ";( PRINT a$(i
( INPUT t(g
ELSE
( t(g) = t(q
END IF
IF a$(i - 1) = "-" THEN
( sum = sum - t(g
ELSE
( sum = sum + t(g
END IF
END IF
IF a(i) > 47 AND a(i) < 58 THEN
( z = i: s$ = a$(i
DO
z = z + 1
IF a(z) < 48 OR a(z) > 57 THEN EXIT DO
( s$ = s$ + a$(z
LOOP
IF a$(i - 1) = "-" THEN
($ sum = sum - VAL(s
ELSE
($ sum = sum + VAL(s
END IF
i = z - 1
END IF
NEXT i
PRINT sum
END