Автозаполнение порядкового номера,автозаполнение формул
Я думаю здесь ответ на ваш вопрос будет ответ под номером:2
Поскольку язык не указан, отвечающий вправе использовать любой. В данном случае выбран VBA из состава Microsoft Office 2003 (реализация в среде Excel). Некоторые дамы и господа (обычно школьники и студенты), мнят себя великими программистами и считают семейство языков VB/VBA/VBS недостойным упоминания. Теперь у них есть возможность написать что-то аналогичное на С++/Delphi и сравнить полученные коды с приведенным.
<em><u>Собственно, описание класса Class1:</u></em>
Private Const n = 12
Public Sub HowManySucc(ByRef kol As Integer)
Dim i As Integer, m1 As Integer, m As Integer
kol = 0
m1 = GetInt()
For i = 2 To n
m = GetInt()
If m > m1 Then kol = kol + 1
Next i
End Sub
Private Function GetInt() As Integer
Dim n As Integer
GetInt = Int(Val(InputBox("Введите целое число")))
End Function
<em><u>Вызов для тестирования:</u></em>
Sub aa()
Dim oC As New Class1, k As Integer
oC.HowManySucc k
MsgBox "Целых, больше первого: " + Str(k)
End Sub
1-м прыжком можно попасть в 2 различные вершины. 2-м тоже в две вершины и так до 8 прыжка включительно. Но 9-м прыжком мы можем очутиться только в одной вершине (т.к. в конце нужно попасть в начальную вершину).
А значит всего способов: 2*2*2*2*2*2*2*2=256
2мб? Мало как то а так... Теоретически это зависит от модели и производителя, наверное в районе 5к цветов.
