Предмет: Информатика, автор: 2001DANILKA2001

НАПИСАТЬ СЛОВЕСНЫЕ АЛГОРИТМЫ К ДАННЫМ ПРОГРАММАМ, ПОМОГИТЕ!!!
Private Sub CommandButton1_Click()
'Объявление переменных
Dim A As Integer, S As Integer
'Ввод исходных данных
A = Val(Cells(2, 2).Value)
S = 0
i = 0
'Рассчет
While S < A
S = S + 1
i = i + 1
'Вывод результатов
Cells(i + 1, 1).Value = Str(S)
Wend

End Sub
-------------------------------------------------

Private Sub CommandButton1_Click()
'Объявление переменных
Dim R2 As Single, R3 As Single
Dim R1beg As Single, R1End As Single, dR1 As Single
Dim R12 As Single, R13 As Single, R23 As Single
'Ввод исходных данных
R2 = Val(Cells(3, 1).Value)
R3 = Val(Cells(3, 2).Value)
R1beg = Val(Cells(3, 3).Value)
R1End = Val(Cells(3, 4).Value)
dR1 = Val(Cells(3, 5).Value)
'Расчет
NumRow = 6
For R1 = R1beg To R1End Step dR1
R12 = R1 + R2 + (R1 * R2 / R3)
R13 = R1 + R3 + (R1 * R3 / R2)
R23 = R2 + R3 + (R2 * R3 / R1)
Cells(NumRow, 1).Value = Str(R1)
Cells(NumRow, 2).Value = Str(R12)
Cells(NumRow, 3).Value = Str(R13)
Cells(NumRow, 4).Value = Str(R23)

NumRow = NumRow + 1
Next R1
End Sub


Private Sub CommandButton2_Click()
For i = 1 To 5
Cells(3, i).Value = ""
Next i
For j = 6 To 16
Cells(j, 1).Value = ""
Next j
For k = 6 To 16
Cells(k, 2).Value = ""
Next k
For A = 6 To 16
Cells(A, 3).Value = ""
Next A
For b = 6 To 16
Cells(b, 4).Value = ""
Next b
End Sub

Ответы

Автор ответа: csharp
0

Программа 1

  1. Создаётся обработка нажатия кнопки
  2. Объявляется переменная A и S типа int
  3. A присваивается значение 2 строки 2 столбца из таблицы Excel
  4. S и  i приравниваются к нулю
  5. Цикл до тех пор, пока S не будет больше A, в котором выполняется прибавление единицы к S и i
  6. Также в цикле происходит заполнение i + 1 строки 1 столбца.

Программа 2

  1. Создаётся обработка нажатия кнопки
  2. Объявляется R2, R3, R1beg, R2End, dR1, R12, R13, R23 типа float
  3. R2 парсит значение из ячейки 3 строки 1 столбца (Val(), скорее всего, примерная аналогия к TryParse())
  4. R3 парсит значение 3 строки 2 столбца
  5. R1beg 3 строки 3 столбца
  6. R1End 3 строки 4 столбца
  7. dR1 3 строки 5 столбца
  8. Значению NumRow присваивается 6
  9. Создаётся цикл: R1 = R1beg с условием, пока R1 не будет меньше или равен R1End, при этом каждую итерацию происходит добавление dR1 к R1
  10. В этом цикле R12 присваивается значение R1 + R2 + (R1 * R2 / (double)R3), причём R3 явно приводится к типу double
  11. Так же происходит и с R13, которому присваивается R1 + R3 + (R1 * R3 / (double)R2)
  12. Так же происходит и с R23, которому присваивается R2 + R3 + (R2 * R3 / (double)R1)
  13. Поочередно в ячейки NumRow строки 1-4 (с первого по четвёртый) столбца заносятся приведённые к строке значения R1, R12, R13, R23, после чего к NumRow добавляется единица.

Программа 3

  1. Создаётся цикл, где i = 1 с условием i меньше или равно 5, i с каждой итерацией прибавляет к себе единицу
  2. Берётся значение ячейки 3 строки i столбца и приравнивается к пустой строке ("")
  3. Создаётся цикл, где j = 6 с условием j меньше или равно 16, j с каждой итерацией прибавляет к себе единицу
  4. Берётся значение ячейки j строки 1 столбца и приравнивается к пустой строке ("")
  5. Создаётся цикл, где k = 6 с условием k меньше или равно 16, k с каждой итерацией прибавляет к себе единицу
  6. Берётся значение ячейки k строки 2 столбца и приравнивается к пустой строке ("")
  7. Создаётся цикл, где A = 6 с условием A меньше или равно 16, A с каждой итерацией прибавляет к себе единицу
  8. Берётся значение ячейки A строки 3 столбца и приравнивается к пустой строке ("")
  9. Создаётся цикл, где b = 6 с условием b меньше или равно 16, b с каждой итерацией прибавляет к себе единицу
  10. Берётся значение ячейки b строки 4 столбца и приравнивается к пустой строке ("")
Похожие вопросы
Предмет: Математика, автор: ksirotina13
Предмет: Математика, автор: Верони4каклубни4ка
Предмет: Математика, автор: stepan54g