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

QBasic ile Devrenin çalışma olasılığının simülasyonla bulunması

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

  1. Powers

    Powers Administrator Site Yetkilisi

    CLS
    RANDOMIZE TIMER
    ' devre olasi￾li￾gi￾ni￾n simulasyonla bulunmas￾i
    INPUT "deney say￾is￾i=", deneysay
    INPUT "parcalari￾n calisma olasiligi￾=", p
    INPUT "sati￾r sayi￾si￾=", n
    INPUT "sutun sayi￾si￾=", m
    DIM d(n, m), saten(n)
    basari = 0
    FOR s = 1 TO deneysay
    ' devreden sayi￾ u￾retiliyor
    FOR i = 1 TO n
    FOR j = 1 TO m
    IF RND < p THEN
    d(i, j) = 1
    ELSE
    d(i, j) = 0
    END IF
    NEXT j
    NEXT i
    FOR i = 1 TO n
    FOR j = 1 TO m
    PRINT d(i, j);
    NEXT j
    PRINT
    NEXT i
    PRINT
    FOR k = 1 TO n
    enk = d(k, 1)
    FOR j = 1 TO m
    IF d(k, j) < enk THEN enk = d(k, j)
    NEXT j
    saten(k) = enk
    NEXT k
    FOR k = 1 TO n
    PRINT saten(k)
    NEXT k
    enb = saten(1)
    FOR k = 1 TO n
    IF saten(k) > enb THEN enb = saten(k)
    NEXT k
    IF enb = 1 THEN
    PRINT "devre calisti￾"
    basari = basari + 1
    BEEP
    ELSE
    PRINT "devre calismadi￾"
    END IF
    NEXT s
    PRINT "devrenin calisma olasiligi=", basari / deneysay
     
    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...