'karekok hesaplama CLS INPUT "k.k.alnacak sayi=", b INPUT "yineleme sayisi=", n INPUT "baslangic degeri=", x0 INPUT "deltay giriniz=", delta FOR i = 1 TO n x = .5 * (x0 + b / x0) PRINT i, x, x ^ 2 IF ABS(x - x0) <= delta THEN EXIT FOR x0 = x NEXT i