X
xlewdx
Помогите обьяснить ход решения задачи и команды которые в коде. совсем запутался не могу ниче поделать.
наити три простых числа в интервале 10 до 99 , величины которых образуют стороры треугольника
код в визуал беисике
Private Sub Command1_Click()
Dim p(3)
pn = 0 ======>не понятно
'поиск простых чисел =======> не понятно
5 For i = 10 To 99 ====> не понятно что за цифрв 5
f = 0
For j = 2 To i - 1 ====== не понятно
If i Mod j = 0 Then f = 1
Next
If f = 0 Then
pn = pn + 1
p(pn) = i
If pn = 3 Then GoTo 10 ======> тут все не понятно
End If
Next
10 =====> что это за число 10 ,почему оно тут.
a = p(1)
b = p(2)
c = p(3)
'проверка неравенств треугольника
If a + b <= c Or a + c <= b Or b + c <= a Then p(1) = p(2): p(2) = p(3): pn = 2: GoTo 5 ==== тоже не поиму
Text1.Text = a
Text2.Text = b
Text3.Text = c
Заранее спасибо
наити три простых числа в интервале 10 до 99 , величины которых образуют стороры треугольника
код в визуал беисике
Private Sub Command1_Click()
Dim p(3)
pn = 0 ======>не понятно
'поиск простых чисел =======> не понятно
5 For i = 10 To 99 ====> не понятно что за цифрв 5
f = 0
For j = 2 To i - 1 ====== не понятно
If i Mod j = 0 Then f = 1
Next
If f = 0 Then
pn = pn + 1
p(pn) = i
If pn = 3 Then GoTo 10 ======> тут все не понятно
End If
Next
10 =====> что это за число 10 ,почему оно тут.
a = p(1)
b = p(2)
c = p(3)
'проверка неравенств треугольника
If a + b <= c Or a + c <= b Or b + c <= a Then p(1) = p(2): p(2) = p(3): pn = 2: GoTo 5 ==== тоже не поиму
Text1.Text = a
Text2.Text = b
Text3.Text = c
Заранее спасибо