گرفتن جذر بدون استفاده از تابع sqr

برنامه ای بنویسید که بدون استفاده از تابع SQR جذر یک عدد سی رقمی را محاسبه کند
توجه داشته باشید که خروجی به صورت نماد علمی نباشد و نیازی به محاسبه اعشار نیست.

 

CLS k = -1 INPUT "SQR : ", a$ PRINT SQR(VAL(a$)) l = LEN(a$) IF l MOD 2 <> 0 THEN a$ = "0" + a$: l = l + 1 DIM b$(l / 2) FOR i = 1 TO l STEP 2 j = j + 1 b$(j) = MID$(a$, i, 2) NEXT DO k = k + 1 d = k ^ 2 LOOP WHILE d <= VAL(b$(1)) IF d > VAL(b$(1)) THEN k = k - 1 x$ = STR$(k) e$ = STR$(VAL(b$(1)) - (k ^ 2)) FOR i = 1 TO j - 1 e$ = e$ + b$(i + 1) f = 10 DO f = f - 1 g = (k * 20 + f) * f LOOP WHILE g > VAL(e$) e$ = STR$(VAL(e$) - g) x$ = x$ + LTRIM$(STR$(f)) k = k * 10 + f NEXT PRINT x$ END

محاسبه ریشه n ام یک عدد
این برنامه بدون استفاده از توابعی مانند SQR که جذر عدد را محاسبه می کند می تواند نه تنها جذر با فرجه دو را محاسبه کند بلکه توانایی محاسبه با فرجه  n را نیز دارد
این برنامه با استفاده از قاعده ی دیفرانسیل نوشته شده است و عدد خروجی دارای کمی خطا است .

 

CLS INPUT "n,a : ", n, a DO k = i ^ n i = i + 1 LOOP WHILE k < a i = i - 1 b = a - i ^ n IF i = 0 THEN PRINT "0": END PRINT i + b / (n * i ^ (n - 1)) END

نویسنده برنامه رسول فضلی

ابتدا ضرایب معادله درجه دوم را وارد می کنیم سپس مختصات نقطه ی مورد نظر را وارد می کنیم در نهایت برنامه معادله های مماس از نقطه به سهمی را چاپ خواهد کرد

CLS INPUT "a,b,c : ", a, b, c INPUT " x,y : ", x, y PRINT IF a = 0 THEN PRINT "nemodar daregha dovom ra vared coned !!": END d = a * x ^ 2 + b * x + c IF d = y THEN PRINT "noghteh ros khat ast": END e = 1 / a * (d - y) IF e < 0 THEN PRINT "gher momken": END FOR i = -1 TO 1 STEP 2 f = x + (SQR(e) * i) g = 2 * a * f + b h = -a * (f ^ 2) + c IF h > 0 THEN h$ = "+" + STR$(h) ELSE h$ = STR$(h) END IF SELECT CASE g CASE 0 PRINT "y="; h CASE 1 IF h = 0 THEN PRINT "y=x" ELSE PRINT "y=x "; h$ END IF CASE -1 IF h = 0 THEN PRINT "y=x" ELSE PRINT "y=-x "; h$ END IF CASE ELSE IF h = 0 THEN PRINT "y="; g; "* X" ELSE PRINT "y="; g; "* X "; h$ END IF END SELECT PRINT NEXT i END

نویسنده برنامه رسول فضلی

ضرب دو ماتریس بدون استفاده از آرایه
در این برنامه بدون استفاده از آرایه دو ماتریس را می گیرد و در هم ضرب می کند و خروجی را چاپ می کند

CLS r$ = "[" INPUT "m*n , n*p (m,n,p) : ", m, n, p PRINT "Matrix I : " FOR i = 1 TO m FOR j = 1 TO n INPUT b$ a1$ = a1$ + "[" + STR$(i) + "," + STR$(j) + "]" + b$ NEXT j, i a1$ = a1$ + "[" PRINT "Matrix II : " FOR i = 1 TO n FOR j = 1 TO p INPUT b$ a2$ = a2$ + "[" + STR$(i) + "," + STR$(j) + "]" + b$ NEXT j, i a2$ = a2$ + "[" FOR i = 1 TO m FOR j = 1 TO p s = 0 FOR k = 1 TO n C1$ = "[" + STR$(i) + "," + STR$(k) + "]" C2$ = "[" + STR$(k) + "," + STR$(j) + "]" l1 = LEN(C1$) l2 = LEN(C2$) n11 = INSTR(1, a1$, C1$) n12 = INSTR(n11 + l1 - 1, a1$, r$) m1 = VAL(MID$(a1$, n11 + l1, n12 - n11 - l1)) n21 = INSTR(1, a2$, C2$) n22 = INSTR(n21 + l2 - 1, a2$, r$) m2 = VAL(MID$(a2$, n21 + l2, n22 - n21 - l2)) s = s + m1 * m2 NEXT PRINT s; NEXT PRINT NEXT

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

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

مثال
ورودی :
              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

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

برعکس و معکوس مثلث خیام پاسکال
مثلا با وارد کردن عدد پنج خروجی روبرو را چاپ می کند
یعنی 5 خط مثلث خیام پاسکال را به صورت وارون و معکوس چاپ می کند

1
    1
4       1
    3         1
6       2           1
    3         1
4       1
    1
1

 

DECLARE FUNCTION fact! (n!) CLS INPUT L L = L - 1 v = L FOR k = 2 * L TO 0 STEP -1 m = m + 1 IF m MOD 2 = 0 THEN v = v - 1 b = v a = a + 1 s = 0 FOR i = L TO ABS(k - L) STEP -2 IF a MOD 2 = 0 AND s = 0 THEN i = i - 1 PRINT " "; s = 1 END IF PRINT USING "##"; fact(i) / (fact(b) * fact(i - b)); PRINT " "; b = b - 1 NEXT i PRINT : PRINT NEXT k END FUNCTION fact (n) s = 1 FOR r = 1 TO n s = s * r NEXT fact = s END FUNCTION

نویسنده برنامه رسول فضلی

ضرب دو ماتریکس بدون حلقه تو در تو

شما می توانید در گرفتن و چاپ داده ها از حلقه تودر تو استفاده کنید فقط در مرحله ضرب دو ماتریس اجازه استفاده از حلقه تودر تو را ندارید

این جواب سوال هشتمین مرحله مسابقات رایانه در سطح کشوری است

CLS INPUT "n,m,p : ", n, m, p DIM m1(n, m), m2(m, p), m3(n, p) PRINT PRINT "Enter"; n * m; "number in araye one :" FOR i = 1 TO n FOR j = 1 TO m INPUT m1(i, j) NEXT j, i PRINT PRINT "Enter"; p * m; "number in araye two :" FOR i = 1 TO m FOR j = 1 TO p INPUT m2(i, j) NEXT j, i i = 1: j = 1 FOR g = 1 TO n * p * m k = k + 1 sum = sum + m1(i, k) * m2(k, j) IF k = m THEN k = 0 m3(i, j) = sum sum = 0 j = j + 1 IF j > p THEN j = 1 i = i + 1 END IF END IF NEXT PRINT FOR i = 1 TO n FOR j = 1 TO p PRINT USING "####"; m3(i, j); NEXT PRINT PRINT PRINT NEXT END

نویسنده برنامه رسول فضلی

ترانهادی ماتریس (3*3)

 با این برنامه ی بیسیک می توانید ترانهادی یک ماتریس را محاسبه کنید برای بدست آوردن اطلاعات بیشتر در مورد ماتریس ترانهادی می توانید به کتاب هندسه تحلیلی دوره ی پیش دانشگاهی مراجعه کنید

 

CLS FOR i = 1 TO 3 FOR j = 1 TO 3 INPUT c(i, j) NEXT j, i FOR w = 1 TO 3 FOR z = 1 TO 3 FOR i = 1 TO 3 FOR j = 1 TO 3 IF i <> w AND j <> z THEN k = k + 1 d(k) = c(i, j) END IF NEXT j, i e(w, z) = ((-1) ^ (w + z)) * (d(1) * d(4) - d(2) * d(3)) k = 0 NEXT z, w FOR i = 1 TO 3 FOR j = 1 TO 3 PRINT e(i, j), NEXT j PRINT : PRINT NEXT i

نویسنده برنامه رسول فضلی

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

CLS PRINT TAB(30); "in the name of God" PRINT "input Matrex zrayeb : " FOR i = 1 TO 3 FOR j = 1 TO 3 INPUT c(i, j) NEXT j, i PRINT PRINT "input Matrex javab : " FOR i = 1 TO 3 INPUT b(i) NEXT PRINT FOR w = 1 TO 3 FOR z = 1 TO 3 FOR i = 1 TO 3 FOR j = 1 TO 3 IF i <> w AND j <> z THEN k = k + 1 d(k) = c(i, j) END IF NEXT j, i e(w, z) = ((-1) ^ (w + z)) * (d(1) * d(4) - d(2) * d(3)) k = 0 NEXT z, w FOR i = 1 TO 3 m = m + c(1, i) * e(1, i) NEXT IF m = 0 THEN PRINT "bedon javab": END FOR i = 1 TO 3 s = 0 FOR j = 1 TO 3 s = (e(j, i) / m) * b(j) + s NEXT j PRINT "x("; i; ")="; s NEXT END

نویسنده برنامه رسول فضلی

حل سه معادله سه مجهولی
این برنامه با استفاده از دستور کرامر معادله ی شما را حل می کند
شما باید به ورودی برنامه به ترتیب ضرایب معادله را وارد کنید
برای بدست آوردن اطلاعات بیشتر در مورد دستور کرامر می توانید به کتاب هندسه تحلیلی دوره ی پیش دانشگاهی مراجعه کنید

مثال
 ax(1)+bx(2)+cx(3)=d
شما باید به برنامه به ترتیب اعداد a و b و c و d را وارد کنید
معادله های بعدی نیز به این گونه صورت می گیرد

CLS PRINT TAB(30); "in the name of God" PRINT PRINT " (( this program solve 3 moadelh 3 X ))" FOR i = 1 TO 3 PRINT "input zareb moadelh"; i; ":" FOR j = 1 TO 4 INPUT a(i, j) NEXT j, i FOR i = 1 TO 4 b = a(1, 1) * ((a(2, 2) * a(3, 3)) - (a(2, 3) * a(3, 2))) c = a(1, 2) * ((a(2, 1) * a(3, 3)) - (a(2, 3) * a(3, 1))) d = a(1, 3) * ((a(2, 1) * a(3, 2)) - (a(2, 2) * a(3, 1))) m(i) = b - c + d IF i = 4 THEN EXIT FOR IF i > 1 THEN FOR k = 1 TO 3 SWAP a(k, i - 1), a(k, 4) NEXT END IF FOR j = 1 TO 3 SWAP a(j, i), a(j, 4) NEXT NEXT PRINT IF m(1) = 0 THEN PRINT "bedon javab": END FOR i = 1 TO 3 PRINT "X("; i; ")="; m(i + 1) / m(1) NEXT END

نویسنده برنامه رسول فضلی

با این برنامه ی بیسیک می توانید معکوس یک ماتریس را محاسبه کنید
برای بدست آوردن اطلاعات بیشتر در مورد ماتریس معکوس می توانید به کتاب هندسه تحلیلی دوره ی پیش دانشگاهی مراجعه کنید

CLS FOR i = 1 TO 3 FOR j = 1 TO 3 INPUT c(i, j) NEXT j, i FOR w = 1 TO 3 FOR z = 1 TO 3 FOR i = 1 TO 3 FOR j = 1 TO 3 IF i <> w AND j <> z THEN k = k + 1 d(k) = c(i, j) END IF NEXT j, i e(w, z) = ((-1) ^ (w + z)) * (d(1) * d(4) - d(2) * d(3)) k = 0 NEXT z, w FOR i = 1 TO 3 m = m + c(1, i) * e(1, i) NEXT i IF m = 0 THEN PRINT "no makos pazer" FOR i = 1 TO 3 FOR j = 1 TO 3 PRINT e(j, i) / m, NEXT PRINT : PRINT NEXT END

نویسنده برنامه رسول فضلی