گرفتن مشتق
این برنامه یک عبارت رشته ای که متغیر آن عبارت ایکس است را می گیرد و در خروجی برنامه مشتق را به صورت رشته چاپ می کند
توجه داشته باشید که این برنامه قادر به جمع جمله ها با توان برابر نیست
پس در ورودی عبارتتان دقت کنید که دو ایکس توان برابر نداشته باشند
در این برنامه توان منفی تعریف نشده است پس از وارد کردن توان منفی خوداری کنید

مثال
ورودی :
              X^25+45-2*x+6*X^3
خروجی :
              25*X^24-2+18*X^2

CLS i = 1 x$ = "x" INPUT "zomleye ba zareb X : ", all$ PRINT : PRINT "moshtgh abart : ": PRINT all$ = "e" + LCASE$(all$) + "e" DO n = INSTR(i, all$, x$) IF n = 0 THEN EXIT DO IF MID$(all$, n + 1, 1) = "^" THEN k = n + 1 t$ = "": a1$ = "" DO k = k + 1 t$ = t$ + a1$ a1$ = MID$(all$, k, 1) LOOP UNTIL a1$ = "+" OR a1$ = "-" OR a1$ = "e" c = c + 1 t(c) = VAL(t$) ELSE c = c + 1 t(c) = 1 END IF IF MID$(all$, n - 1, 1) = "*" THEN k = n - 1: b = .1: z = 0: a2$ = "" DO k = k - 1 z = z + VAL(a2$) * b a2$ = MID$(all$, k, 1) b = b * 10 LOOP UNTIL a2$ = "+" OR a2$ = "-" OR a2$ = "e" IF a2$ = "-" THEN z(c) = z * (-1) ELSE z(c) = z END IF ELSE IF MID$(all$, n - 1, 1) = "-" THEN z(c) = -1 ELSE z(c) = 1 END IF END IF i = n + 1 IF t(c) = 1 THEN IF z(c) > 0 AND c > 1 THEN PRINT "+"; z(c); ELSE PRINT z(c); END IF ELSE IF z(c) > 0 AND c > 1 THEN IF t(c) = 2 THEN PRINT "+"; z(c) * t(c); "* X"; ELSE PRINT "+"; z(c) * t(c); "* X ^"; t(c) - 1; END IF ELSE IF t(c) = 2 THEN PRINT z(c) * t(c); "* X"; ELSE PRINT z(c) * t(c); "* X ^"; t(c) - 1; END IF END IF END IF LOOP UNTIL n = 0 IF i = 1 THEN PRINT "0" end

نویسنده : فضلی