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

 

تاریخ ارسال: سه‌شنبه 16 مرداد‌ماه سال 1386 ساعت 08:29 ب.ظ | نویسنده: مهندس | چاپ مطلب 0 نظر