1. Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha Fazla Bilgi.

QBasic ile Küpkök alma

'Bilgisayar Programlama ve Kodlama' forumunda Powers tarafından 8 Ocak 2013 tarihinde açılan konu

  1. Powers

    Powers Administrator Site Yetkilisi

    '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
     
    Tags:

Bu Sayfayı Paylaş

  1. Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha Fazla Bilgi.
  1. Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha Fazla Bilgi.
Yükleniyor...