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

QBasic ile Karekök hesaplama

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

  1. Powers

    Powers Administrator Site Yetkilisi

    'karekok hesaplama
    CLS
    INPUT "k.k.al￾nacak sayi￾=", b
    INPUT "yineleme say￾isi￾=", 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
     
    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...