QBasic ile Küpkök alma

'ku￾pkok alma
CLS
INPUT "kupkoku ali￾nacak say￾i=", b
INPUT "ad￾im sayi￾si￾=", n
INPUT "baslang￾ic degeri=", x0
INPUT "deltay￾ giriniz=", delta
INPUT "epsilonu giriniz=", eps
sayac = 0
islem:
sayac = sayac + 1
x = (2 / 3) * (x0 + b / (2 * x0 * x0))
fonk = x * x * x - b
PRINT sayac, x, fonk
IF ABS(fonk) <= eps THEN
PRINT "eps de durdu"
END
END IF
IF ABS(x - x0) <= delta THEN
PRINT "delta da durdu"
END
END IF
IF sayac >= n THEN END
x0 = x
GOTO islem