Raketa: Какой формулой нужно решать эту задачу подскажите!!!Дано: Лягушка сидит на коряге посреди болота. Ей надо достать стрелу на другом краю болота. Из воды торчат N камней (N>2), расположенных в один ряд. На последнем камне лежит заветная стрела. Лягушка может прыгать на 2, 3 или 5 камней вперёд и только вперёд. Подсчитайте сколько существует разных вариантов маршрута лягушки до стрелы.
[...]Решение:
ALEXIN: имеется некое количество монет номиналом: 2 коп, 3 коп и 5 коп. Надо… Всё решается обычной программой на перебор.
Пусть требуется:
1-й вариант: 2a+3b+5c=10 — как: 2+3+5 = 10,
2-й вариант: 2a+3b+5c=30 — как: 2*3*5 = 30,
где: a,b,c is integer number
Сама программа пишется за 2-3 минутыOption Explicit
Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long, k As Integer
For a = 0 To 15
For b = 0 To 15
For c = 0 To 15
If 2 * a + 3 * b + 5 * c = 10 Then ' 10 = 2 + 3 + 5
k = k + 1
Text1 = Text1 & k & ") a=" & a & "; b= " & b & "; c= " & c & vbCrLf
End If
Next
Next
Next
End Sub
Ответ:
1) a=0; b= 0; c= 2
2) a=1; b= 1; c= 1
3) a=2; b= 2; c= 0
4) a=5; b= 0; c= 0
Или 2-й вариант:
Option Explicit
Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long, k As Integer
For a = 0 To 15
For b = 0 To 15
For c = 0 To 15
If 2 * a + 3 * b + 5 * c = 30 Then ' 30 = 2 * 3 * 5
k = k + 1
Text1 = Text1 & k & ") a=" & a & "; b= " & b & "; c= " & c & vbCrLf
End If
Next
Next
Next
End Sub
Ответ:
1) a=0; b= 0; c= 6
2) a=0; b= 5; c= 3
3) a=0; b= 10; c= 0
4) a=1; b= 1; c= 5
5) a=1; b= 6; c= 2
6) a=2; b= 2; c= 4
7) a=2; b= 7; c= 1
8) a=3; b= 3; c= 3
9) a=3; b= 8; c= 0
10) a=4; b= 4; c= 2
11) a=5; b= 0; c= 4
12) a=5; b= 5; c= 1
13) a=6; b= 1; c= 3
14) a=6; b= 6; c= 0
15) a=7; b= 2; c= 2
16) a=8; b= 3; c= 1
17) a=9; b= 4; c= 0
18) a=10; b= 0; c= 2
19) a=11; b= 1; c= 1
20) a=12; b= 2; c= 0
21) a=15; b= 0; c= 0