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

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

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

پیدا کردن معادله خطی که از سه نقطه می گذرد
ابتدا مختصات این سه نقطه را وارد می کنید
در نهایت خروجی برنامه معادله سهمی که از این سه نقطه می گذرد می باشد
 (( برنامه دارای یک نقص کوچک می باشد که در آینده اصلاح خواهد شد ))

CLS PRINT TAB(30); "in the name of God" FOR i = 1 TO 3 INPUT "x,y : ", x(i), b(i) NEXT FOR i = 1 TO 3 r = 2 FOR j = 1 TO 3 c(i, j) = x(i) ^ r r = r - 1 NEXT 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 h(i) = s NEXT IF h(2) >= 0 THEN z1$ = "+" + STR$(h(2)) ELSE z1$ = STR$(h(2)) IF h(3) >= 0 THEN z2$ = "+" + STR$(h(2)) ELSE z2$ = STR$(h(3)) PRINT "y = "; h(1); " * X ^ 2 " + z1$ + " * X " + z2$ END

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

این برنامه جواب سوال مسابقات کامپیوتر کشوری مرحله هفتم می باشد
این زوج ها اعدادی هستند که مجموع مقسوم علیه یکی ( غیر از خودش ) با دیگری برابر است
مثلا مجموع مقسوم علیه های 220 برابر 284 است و مجموع مقسوم علیه های 284 برابر 220 می باشد.
این برنامه تحت بیسیک باشد

DECLARE FUNCTION m! (n!) t = TIMER CLS FOR i = 4 TO 1000000 p = m(i) IF p > i AND p < 1000000 THEN IF m(p) = i THEN PRINT p, i END IF NEXT i PRINT "all time : "; INT(TIMER - t); "S" FUNCTION m (n) FOR i = 2 TO n / 2 r = n MOD i IF r = 0 THEN IF i < (n / i) THEN s = s + (n / i) ELSE EXIT FOR END IF s = s + i END IF NEXT m = s + 1 END FUNCTION

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

ابتدا شما باید دامنه ی عددی را که می خواهید رایانه برای شما حدس بزند وارد کنید
مثلا با وارد کردن عدد 5 کامپیوتر از شما می خواهد که ما بین یک و هفت عددی در ذهنتان اختیار کنید
سپس برنامه 4 عدد برای شما نمایش می دهد و از شما می خواهد که بگویید عدد مورد نظر در داخل این چهار عدد وجود دارد یا خیر با وارد کردن عبارت های n و y می توانید به سوال پاسخ دهید
در انتها کامپیوتر عددی را که انتخاب کرده بودید چاپ خواهد کرد

CLS RANDOMIZE TIMER DO INPUT " Enter a number (n <= 10) : ", n LOOP UNTIL 10 > n PRINT "choose one number betwen 1 and"; 2 ^ n - 1 PRINT "Are you found gest number in list ?" PRINT DIM a(2 ^ (n - 1)), n(n * (2 ^ n - 1)) FOR f = 1 TO n FOR i = 1 TO 2 ^ (n - 1) DO a(i) = INT((RND * (2 ^ n - 1)) + 1) FOR j = 1 TO i IF a(i) = a(j) AND i <> j THEN v = 1: EXIT FOR NEXT IF j = i + 1 THEN v = 0 LOOP UNTIL v = 0 PRINT a(i); NEXT PRINT "", "( Y , N ) : "; DO b$ = INPUT$(1): PRINT b$ LOOP UNTIL b$ = "y" OR b$ = "Y" OR b$ = "n" OR b$ = "N" IF b$ = "y" OR b$ = "Y" THEN FOR i = 1 TO 2 ^ n - 1 FOR j = 1 TO 2 ^ (n - 1) IF a(j) = i THEN z = 1 EXIT FOR END IF z = 0 NEXT j IF z = 0 THEN m = m + 1 n(m) = i END IF NEXT i ELSE FOR i = 1 TO 2 ^ (n - 1) m = m + 1 n(m) = a(i) NEXT END IF NEXT f PRINT FOR i = 1 TO 2 ^ n - 1 FOR j = 1 TO m IF i = n(j) THEN c = 1: EXIT FOR c = 0 NEXT IF c = 0 THEN PRINT i: fals = 1 NEXT IF fals = 0 THEN PRINT "you answer fals me !!" 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 FOR j = 1 TO 3 PRINT e(j, i), NEXT j PRINT : PRINT NEXT i

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

چاپ اعداد اول تا چند میلیون
(برنامه به زبان بیسیک می باشد)
این برنامه تمام اعداد اول را تا عدد ورودی چاپ ‍‍‍می کند با این تفاوت که کمی پیشرفته تر است .
این برنامه درای سرعت بسیار زیادی می باشد و توانایی این را دارد که اعداد اول را در عرض چند ثانیه چاپ کند مثلا در عرض 13 ثانیه می تواند تعداد تمام اعداد اول تا یک میلیون را چاپ کند من برای 10 میلیون آزمایش کردم در عرض 200 ثانیه جواب گرفتم پس فرق بزرگ این برنامه در سرعت آن است .
با استفاده از خروجی این برنامه این نمودار کشیده شده است
این نمودار بر حسب افزایش عدد و در ستون بر حسب افزایش تعداد عدد اول تنظیم شده است
این نمودار به صورت بسیار دقیق اندازه گیری شده است و تعداد اعداد اول از یک تا 10 میلیون می باشد

با استفاده از این نمودار می توان به این نتیجه رسید که تعداد اعداد اول به صورت ثابت افزایش می یابد و این یک نتیجه ی تجربی است و نمی توان با استفاده از نمودار به یک استدلال قطعی رسید .
ما می توانیم با استفاده از این نمودار و بدست آوردن شیب آن معادله ای برای تعداد اعداد اول بنوسیم .
به طور مثال می توانیم تعداد اعداد اول تا 100 میلیارد را بدون کامپیوتر محاسبه کنیم که برای محاسبه با کامپیوتر کار بسیار مشکل و وقت گیر است

 

مغلوب 
کلمه ای را دریافت سپس مغلوب آن را چاپ کند
مثال
ورودی       Rfazli
خروجی      ilzafR

 q  را در آخر هر خط پاک کنید

   cls                                q
input n$                        q
a=len(n$)                     q
for i=a to 1 step -1        q
print mid$ (n$,i,1)         q
next i                           q
end                              q

 

خرد کردن  
تعداد دفعات ممکن خرد کردن اسکناس 2000 ریالی بکمک سکه های 50 ؛ 100 و 250 ریالی به شرط اینکه از هر سکه حداقل یکی باشد .

Cls

K = 0

For P = 1 To 33

For S = 1 To 17

For D = 1 To 7

Let sum = P * 50 + S * 100 + d * 250

If Sum = 2000 Then k = k + 1

Next D , s , p

Print K

End