آموزش نرم افزار نیت کات

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

دانلود کتاب

.

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

گرفتن جذر بدون استفاده از تابع 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

نمونه سوالات رایانه

سوالات هفتمین مرحله ی مسابقات آزمایشگاهی رایانه در مشهد مقدس

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