НАПИСАТЬ СЛОВЕСНЫЙ АЛГОРИТМ К Программке!!!!Private Sub S()Dim A As Integer, S
НАПИСАТЬ СЛОВЕСНЫЙ Метод К Программке!!!!
Private Sub S()
Dim A As Integer, S As Integer
A=Val(Cells(2,2).Value)
S=0
i=0
n=0
While S S=S+1
i=i+S
n=n+1
Cells(n+1, 1).Value=Str(S)
Wend
Cells(3,2).Value=Str(i)
End Sub
Создаётся частная функция типа void с заглавием S, в которой объявляются A, S типа int. A присваивается значение 2 строчки 2 столбца таблицы Excel, после чего S, i и n приравниваются к нулю. Создаётся цикл (с непонятным условием), в котором к S и n прибавляется 1, к i прибавляется S. После этого к ячейке n+1 строчки 1 столбца присваивается значение S, приведённого к строке. После цикла значению ячейки 3 строки 2 столбца присваивается значение i.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.