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 süreleri

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

  1. Powers

    Powers Administrator Site Yetkilisi

    'devrenin calisma s￾ureleri
    CLS
    INPUT "paralel parca sayisini giriniz=", parsay
    INPUT "seri parca sayisini giriniz=", serisay
    INPUT "Kac tane gozlem almak istiyorsunuz=", deneysay
    DIM devre(parsay, serisay)
    DIM bul(parsay)
    DIM T(deneysay)
    FOR j = 1 TO deneysay
    PRINT "parcalarin dayanma sureleri"
    FOR i = 1 TO parsay
    FOR k = 1 TO serisay
    devre(i, k) = RND
    PRINT devre(i, k);
    NEXT k
    PRINT
    NEXT i
    FOR i = 1 TO parsay
    ek = devre(i, 1)
    FOR k = 1 TO serisay
    IF devre(i, k) < ek THEN ek = devre(i, k)
    NEXT k
    bul(i) = ek
    NEXT i
    eb = bul(1)
    FOR i = 1 TO parsay
    IF bul(i) > eb THEN eb = bul(i)
    NEXT i
    T(j) = eb
    PRINT j; ".gozlem="; T(j)
    NEXT j
    ort = 0
    FOR i = 1 TO deneysay
    ort = ort + T(i)
    NEXT i
    ort = ort / deneysay
    PRINT "ortalama dayanma su￾resi="; ort
     
    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...