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