QBasic ile devrenin çalışma süreleri

'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