'devrenin calisma sureleri 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 suresi="; ort