НАПИСАТЬ СЛОВЕСНЫЕ АЛГОРИТМЫ К ДАННЫМ ПРОГРАММАМ, ПОМОГИТЕ!!! Private Sub...

0 голосов
82 просмотров

НАПИСАТЬ СЛОВЕСНЫЕ АЛГОРИТМЫ К ДАННЫМ ПРОГРАММАМ, ПОМОГИТЕ!!! 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

Информатика (47 баллов) | 82 просмотров
Дан 1 ответ
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 столбца и приравнивается к пустой строке ("")
(5.6k баллов)
Похожие задачи