| Цитата(neutrino @ 4.1.2005, 09:31) | | Вопрос в том, какую модель вы используете, поэтому и то и другое решения верны. |
Да, только одна из моделей в этом случае правильная. 
| Цитата(neutrino @ 4.1.2005, 09:31) | | Давай прогу! |
Даю:
На форму лепятся четыре кнопки:
Command1, Command2, Command3 и Command4.
И так: одна коза и две машины. После выбора, тебе показывают где машина и дают выбрать:
1. меняешь свой выбор или
2. нет
Если поменять свое решение после первого выбора (1), то код Command4 выглядит так:
| Код |
Private Sub Command4_Click()
Dim i As Integer
For i = 1 To 30000
Call Command2_Click
' Call Command2_Click
If Command1.BackColor = &HC0FFC0 Then
Call Command3_Click
Else
Call Command1_Click
End If
Next
MsgBox "машин: " & results & " коз: " & 30000 - results
results = 0
End Sub
|
Если не менять (2), а остаться несмотря ни на что при первом выборе, то так:
| Код |
Private Sub Command4_Click()
Dim i As Integer
For i = 1 To 30000
Call Command2_Click
Call Command2_Click
' If Command1.BackColor = &HC0FFC0 Then
' Call Command3_Click
' Else
' Call Command1_Click
' End If
Next
MsgBox "машин: " & results & " коз: " & 30000 - results
results = 0
End Sub
|
Вот весь код:
| Код |
Option Explicit
Dim X As Integer
Dim x1 As Integer
Dim x2 As Integer
Dim x3 As Integer
Dim x4 As Integer
Dim x5 As Integer
Dim Selected As Integer
Dim results As Integer
Private Sub Command1_Click()
If Selected <> 0 Then
If X <> 2 Then results = results + 1
Selected = 0
Command1.BackColor = &H8000000F
Command2.BackColor = &H8000000F
Command3.BackColor = &H8000000F
' x = RndInInterval(1, 3)
one_more_time1:
X = RndInInterval(1, 5)
If X = 1 Or X = 5 Then GoTo one_more_time1
Exit Sub
End If
Selected = 2
If X = 2 Then
Command2.BackColor = &HC0FFC0
ElseIf X = 3 Then
Command3.BackColor = &HC0FFC0
ElseIf X = 4 Then
Command2.BackColor = &HC0FFC0
End If
End Sub
Private Sub Command2_Click()
If Selected <> 0 Then
If X <> 3 Then results = results + 1
Selected = 0
Command1.BackColor = &H8000000F
Command2.BackColor = &H8000000F
Command3.BackColor = &H8000000F
' x = RndInInterval(1, 3)
one_more_time2:
X = RndInInterval(1, 5)
If X = 1 Or X = 5 Then GoTo one_more_time2
Exit Sub
End If
Selected = 3
If X = 2 Then ' 1
Command3.BackColor = &HC0FFC0
ElseIf X = 3 Then ' 2
Command1.BackColor = &HC0FFC0
ElseIf X = 4 Then ' 3
Command1.BackColor = &HC0FFC0
End If
End Sub
Private Sub Command3_Click()
If Selected <> 0 Then
If X <> 4 Then results = results + 1
Selected = 0
Command1.BackColor = &H8000000F
Command2.BackColor = &H8000000F
Command3.BackColor = &H8000000F
' x = RndInInterval(1, 3)
one_more_time3:
X = RndInInterval(1, 5)
If X = 1 Or X = 5 Then GoTo one_more_time3
Exit Sub
End If
Selected = 4
If X = 2 Then ' 1
Command2.BackColor = &HC0FFC0
ElseIf X = 3 Then ' 2
Command1.BackColor = &HC0FFC0
ElseIf X = 4 Then ' 3
Command1.BackColor = &HC0FFC0
End If
End Sub
Private Sub Command4_Click()
Dim i As Integer
For i = 1 To 30000
Call Command2_Click
Call Command2_Click
' If Command1.BackColor = &HC0FFC0 Then
' Call Command3_Click
' Else
' Call Command1_Click
' End If
Next
MsgBox "машин: " & results & " коз: " & 30000 - results
results = 0
End Sub
Private Sub Form_Load()
Dim d As Integer
Randomize
For d = 0 To 30000
one_more_time:
X = RndInInterval(1, 5)
If X = 1 Or X = 5 Then GoTo one_more_time
If X = 1 Then x1 = x1 + 1
If X = 2 Then x2 = x2 + 1
If X = 3 Then x3 = x3 + 1
If X = 4 Then x4 = x4 + 1
If X = 5 Then x5 = x5 + 1
Next
' MsgBox x1 & " " & x2 & " " & x3 & " " & x4 & " " & x5
Selected = 0
End Sub
Private Function RndInInterval(LeftBorder As Integer, RightBorder As Integer) As Integer
RndInInterval = CInt(Rnd * (RightBorder - LeftBorder) + LeftBorder)
End Function
Function RndEx(Optional ByVal Min As Long = 0, Optional ByVal Max As _
Long = 1, Optional ByVal DoRound As Boolean = False, Optional _
DoRandomize As Boolean) As Single
Dim X As Single
If DoRandomize Then Randomize
X = Rnd * (Max - Min) + Min 'Zufallszahl berechnen
If DoRound Then X = Int(X + 0.5) 'Runden
RndEx = X
End Function
|
Еще раз подчеркиваю, что это программа симуляции процессов, то есть она симулирует кликанье юзера (то есть написана она через ж...  ). Но зато подтвержает правильность логической мысли.  |
. 
. Буду ждать правильного ответа. 
Ведь это верно, когда вы вибираете модель зависимых случаев. А если нет, то как только убирают карту -не туз, вероятности равные (1/2). Вопрос в том, какую модель вы используете, поэтому и то и другое решения верны. 
