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

QBasic ile Rasgele sayılar kullanarak Pi sayısının hesaplanması

'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 rasgele sayi￾lar kullani￾larak hesaplanmas￾i
    CLS
    SCREEN 12
    INPUT "deneme sayi￾si￾ni￾ giriniz=", n
    CLS
    FOR i = 1 TO n
    x = RND
    y = RND
    PSET (600 - (100 + x * 5), (100 + y * 5)), 5
    IF x ^ 2 + y ^ 2 <= 1 THEN
    PSET (600 - (100 + x * 5), (100 + y * 5)), 10
    kavustu = kavustu + 1
    END IF
    NEXT i
    PRINT "olasi￾li￾k="; kavustu / n
    PRINT "tahmin edilen pi degeri="; 4 * kavustu / n
     
    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...