Имитационное моделирование - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.2 из 5