کشف معجزه ای جدید در قرآن کریم

سیستم خود دفاعی مورچه کشف معجزه ای جدید در قرآن کریم

خداوند در سوره نمل آیه 18 می فرماید:
---------------------------------------------------------------
 حَتَّى إِذَا أَتَوْا عَلَى وَادِ النَّمْلِ قَالَتْ نَمْلَةٌ یَا أَیُّهَا النَّمْلُ ادْخُلُوا مَسَاکِنَکُمْ لَا یَحْطِمَنَّکُمْ سُلَیْمَانُ وَجُنُودُهُ وَهُمْ لَا یَشْعُرُونَ

 "تا چون به دره مورچه ها رسیدند، مورچه ای گفت: ای مورچه ها به لانه هایتان وارد شوید‌، مبادا سلیمان و لشگرش پایمالتان کنند و خود آگاه نباشند."

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

ترانهادی ماتریس (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

ماتریس معکوس (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 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

  

ماتریس الحاقی (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(j, i), NEXT j PRINT : PRINT NEXT i

دعا های قرآنی

بِسْمِ اللهِ الرَّحْمنِ الرَّحِیمِِ

هر کس به نحوی با خالق خود راز و نیاز می کند
خداوند در کلام خود به بندگانش یاد می دهد که او را چگونه یاد کنند
در اینجا 17 دعای قرآنی جماوری شده است با ذکر آیه و شماره سوره .