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

QBasic ile Pi işlemleri

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

  1. Powers

    Powers Administrator Site Yetkilisi

    'pi sayi￾si￾ni￾n noktadan sonraki basamaklar￾inda yer alan
    ' ikili rakamlar￾n say￾isi￾ni￾n hesaplanmas￾i ve dagi￾li￾mi￾ni￾n bulunmasi￾
    CLS
    OPEN "I", #1, "pie.txt"
    OPEN "o", #2, "bas2.txt"
    DIM bsay2(99)
    FOR i = 1 TO 1000
    INPUT #1, a1
    INPUT #1, a2
    pi = 10 * a1 + a2
    LOCATE 10, 10: PRINT pi
    bsay2(pi) = bsay2(pi) + 1
    NEXT i
    PRINT "basamak say￾ilari￾"
    FOR j = 0 TO 99
    PRINT j; bsay2(j)
    PRINT #2, bsay2(j)
    NEXT j
    CLOSE #1
    CLOSE #2
     
    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...