一道编程题,用c++ vb c 皆可
来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/06/17 18:30:06
一道编程题,用c++ vb c 皆可
利用在区间【0,1】中取值的均匀分布的随机数r模拟一天是否下雨,如果r=3,表示出现了连续3天下雨时间,用变量y=1表示一周内出现连续3天下雨事件,否则y=0
模拟n周,累加每周模拟结果y,得到n周内出现连续3天下雨时间的次数s,于是s/n就是出现连续3天下雨事件的频数,当n充分大时,可以用频数近似概率
利用在区间【0,1】中取值的均匀分布的随机数r模拟一天是否下雨,如果r=3,表示出现了连续3天下雨时间,用变量y=1表示一周内出现连续3天下雨事件,否则y=0
模拟n周,累加每周模拟结果y,得到n周内出现连续3天下雨时间的次数s,于是s/n就是出现连续3天下雨事件的频数,当n充分大时,可以用频数近似概率
![一道编程题,用c++ vb c 皆可](/uploads/image/z/18883994-50-4.jpg?t=%E4%B8%80%E9%81%93%E7%BC%96%E7%A8%8B%E9%A2%98%2C%E7%94%A8c%2B%2B+vb+c+%E7%9A%86%E5%8F%AF)
Private Sub Command1_Click()
Dim c, y, s, n, i, i1, r As Long
Dim a As String
s = 0
n = Val(Text1.Text)
For i = 1 To n
c = 0
y = 0
For i1 = 1 To 7
Randomize
r = Rnd
If r < 0.3 Then
c = c + 1
End If
If c >= 3 Then y = 1
Next i1
If y = 1 Then s = s + 1
Next i
Label3.Caption = s
a = Str(s / n * 100)Label5.Caption = a & "%"
End Su
Dim c, y, s, n, i, i1, r As Long
Dim a As String
s = 0
n = Val(Text1.Text)
For i = 1 To n
c = 0
y = 0
For i1 = 1 To 7
Randomize
r = Rnd
If r < 0.3 Then
c = c + 1
End If
If c >= 3 Then y = 1
Next i1
If y = 1 Then s = s + 1
Next i
Label3.Caption = s
a = Str(s / n * 100)Label5.Caption = a & "%"
End Su