Имитационное моделирование - VB (60714)
Формулировка задачи:
Здравствуйте, не могли бы вы помочь составить простую программу связанную с имитационным моделированием?
Решение задачи: «Имитационное моделирование»
textual
Листинг программы
Public Class Form1 Private Function IsHit(ByVal Num As Long) As Boolean ' процедура определения четности числа ' используем совместно с генератором случайных чисел ' для определения методом Монте-Карло вероянтость попадания выстрела IsHit = Num And 1 End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Bullet As Long ' Патроны Dim Round As Long ' Кол-во повторений эксперемента Dim Hit As Long ' Кол-во удачных попыток Dim Result As Double 'процент удачных попыток Dim i, z As Integer Randomize() ' Кол-во раундов, чем больше, тем точнее вычислим вероятность Round = CLng(TextBox1.Text) ' Кол-во выстрелов в раунде Bullet = CLng(TextBox2.Text) ' Цикл раундов For i = 1 To Round ' Расстреливаем патроны до первого попадания в раунде For z = 1 To Bullet If IsHit(Int(Rnd() * 10)) = True Then ' Попытка удачная, если есть хоть 1 попадание в раунде Hit = Hit + 1 Exit For End If Next Next Result = Hit / Round * 100 ' Вычисляем процент попаданий MsgBox("Вероятность попадания в цель c " & Bullet & " выстрелов равна " & Result & " %.") End Sub End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д