Private Sub Command1_Click()
Dim N, R As Long
Dim a, b, c As Single
N = 0
R = 0
While N < 100000000
a = Rnd
b = Rnd
c = Rnd
If b * b > 4 * a * c Then R = R + 1
N = N + 1
Wend
MsgBox CDbl(R) / N
End SubГост написа:... P([tex]U_{1 }^{2}[/tex][tex]\ge[/tex]4[tex]U_{1 }[/tex][tex]U_{3 }[/tex])=...=1-[tex]\int\limits_{0}^{1}[/tex][tex]\int\limits_{0}^{1}[/tex][tex]\int\limits_{0}^{2\sqrt{U1U3}}[/tex]1d[tex]U_{2 }[/tex]d[tex]U_{1 }[/tex]d[tex]U_{3 }[/tex]=....
Назад към Вероятности, статистика
Регистрирани потребители: Google Adsense [Bot], Google [Bot]