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

QBasic ile Fibonacci dizisi ve altın oran

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

  1. Powers

    Powers Administrator Site Yetkilisi

    'fibonacci dizisi ve alti￾n oran
    CLS
    INPUT "N="; N
    X1 = 1
    X2 = 1
    SAYAC = 2
    ISLEM:
    X = X1 + X2
    ORAN = X / X2
    X1 = X2
    X2 = X
    SAYAC = SAYAC + 1
    PRINT , SAYAC, X, ORAN
    IF SAYAC < N THEN
    GOTO ISLEM
    ELSE
    END
    END IF
     
    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...