нте-Карло, що випадіння монети В«орломВ» або В«решкоюВ» равновероятно. О - кількість точок (В«орелВ»), що потрапили в ліву частину квадрата, координати яких задовольняють умові: -1 <= X And ​​X <Про And -1 <= Y And Y <= 1.
R - кількість точок (В«решкаВ»), що потрапили в праву частину квадрата, координати яких задовольняють умові: Про Y And Y <= 1.
Алгоритм:
1) Помістити на форму графічне поле, в якому буде відображатися процес випадкової генерації точок, в ньому намалювати квадрат зі стороною, рівною 1, і осі координат.
2) Помістити на форму текстове поле txtN для введення числа генеруються точок, поле txtO для виведення числа точок, що потрапили в ліву половину квадрата (В«орелВ»), і поле txtR для виведення числа точок, що потрапили в праву половину квадрата (В«решкаВ»).
) Помістити на форму кнопку і створити для неї подієву процедуру, яка забезпечує введення кількості генеруються точок в змінну IngN, генерацію випадкових точок, підрахунок у змінній IngO кількості точок потрапили в ліву половину квадрата і підрахунок у змінній IngR кількості точок потрапили в праву половину квадрата:
Dim dblX, dblY As Double, I, IngN, IngO, IngR As Long
Private Sub cmdl_Click () = 0 = 0 = txtN.Text.Cls. Scale (-1, 1) - (1, -1) picl. Line (-1, 1) - (1, -1),, В
Генерація точок For I = 1 To IngN dblX = 2 * Rnd - 1 dblY = 2 * Rnd - 1 picl . PSet (dblX, dblY)
If -1 <= dblX And dblX <0 And -1 <= dblY And dblY <= 1 Then IngO = IngO + 1
Else
IngR = IngR + 1 End If Next I . Text = IngO txtR.Text = IngR 'Вісь ...
