تبليغاتX
فضلي
کامپیوتر - برنامه بیسیک
آزاد

شما به ورودي اين برنامه جمله اي درجه اول وارد مي کنيد که داخل آن فقط عبارت هاي جمع و تفريق وجود دارد پس از اجراي برنامه مقدار متغير ها از شما خواسته می شود و در انتها جواب نوشته خواهد شد
 !!!! لطفا عبارت هاي خود را با حرف کوچک وارد کنيد !!!!
مثال :

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 

+ نوشته شده در  دوشنبه بیست و چهارم اردیبهشت 1386ساعت 14:9  توسط رسول فضلی  |