QBASIC آموزش

آموزش کامل بیسیک برای کسانی که می خواهند پایه برنامه نویسی شان را قوی کنند با ارایه مثال برای هر موضوع
برای مطالعه به ادامه مطلب مراجعه کنید

رمز دادن به کنترل حجم صدا

رمز دادن به کنترل حجم صدا

اگر نمی گذارند درس بخوانید یا سرتون درد میگیره یا در کافی نت هستید می خواهید صدای کامپیوتر را بلند نکنند یا بسیاری از موارد  دیگر این نرم افزار به کمک شما می آید
شما می توانید با استفاده از این برنامه ، به قسمت کنترل حجم صدا رمز بدهید تا دیگران نتوانند صدا را بالا یا پایین بیاورند

برای اجرای برنامه شما نیاز  به DirectX دارید
بعد از نصب ، آیکن کنار ساعت را کلیک کنید . رمز اولیه برنامه صفر است . بعد از ورود می توانید رمز را تغییر دهید

دانلود رایگان برنامه

ضرب دو ماتریس بدون استفاده از آرایه

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

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

آموزش کامل ویژوال بیسیک

 آموزش کامل ویژوال بیسیک با مثال در چندین صفحه با توضیحات کامل
برای دیدن متن کامل روی ادامه مطلب کلیک کنید

کلمه الله در هندوانه

کلمه الله در هندوانه
 { و چه بسیار نشانه ها در آسمان ها و زمین است که بر آنها می گذرند در حالی که از آنها روی بر می گردانند . }
سوره یوسف آیه 105

{ اوست آن کسی که نشانه های خود را به شما می نماید }
 سوره غافر آیه 13

یکی دیگر از هزاران هزار اعجاز خداوند ،‌ امروز در سر سفره ی ما نازل شد . این یکی از نشانه های خداوند است برای قومی که تفکر می کنند
امروز یکشنبه سی ام تیر ماه 1387 است
من رفتم که قاشق بیاورم و با قاشق هندوانه را بخورم . بر خلاف میلم و عادت همیشگم که هندوانه را با قاشق می خوردم مادرم گفت که یک قارچ بگیرم و از قاشق استفاده نکنم . من یک قارچ بزرگ از هندوانه بریدم . چند لحظه بعد مادرم چشمش به کلمه الله در لبه ی هندوانه افتاد قسمتی که من بریده بودم
لفظ مبارک الله به طور کامل واضح بود اما عبارتی قبل از آن نوشته شده است که وضوح کاملی ندارد

به نظر من کلمه اول یکی از موارد ( یا ) ، ( لا ) است
اما کلمه ی دوم برای من کاملا نا مفهوم بود . فکر می کنم این کلمه متعلق به زبان دیگری باشد . پیدا کردن این کلمه را به عهده ی شما می سپارم برای دیدن سایز بزرگ عکس اینجا را کلیک کنید
و کلمه ی آخر که کاملا واضح است لفظ ( الله ) را نشان می دهد

سایز بزرگ عکس

.

رمز 14000 نرم افزار

رمز 14000 نرم افزار

دانلود فایل

.

کد های جاوا اسکریپ بخش هشتم

کد های جاوا اسکریپ بخش هشتم