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 sayısını rasgele sayılar kullanarak tahmin etme

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

  1. Powers

    Powers Administrator Site Yetkilisi

    'pi sayisini rasgele sayi kullanarak tahmin ediyoruz
    CLS
    SCREEN 12
    INPUT "deney say=", n
    CLS
    dusen = 0
    FOR i = 1 TO n
    x = 1 * RND
    y = 1 * RND
    PSET (100 + x * 200, 450 - y * 200)
    IF x ^ 2 + y ^ 2 <= 1 THEN
    dusen = dusen + 1
    PSET (100 + x * 200, 450 - y * 200), 5
    END IF
    olas = 4 * dusen / n
    LOCATE 1, 1: PRINT "s￾m bul.olas="; olas;
    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...