Написать словесные алгоритмы к данным программам, ! 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

Программа 1 создаётся обработка нажатия кнопки объявляется переменная a и s типа int a присваивается значение 2 строки 2 столбца из таблицы excel s и   i приравниваются к нулю цикл до тех пор, пока s не будет больше a, в котором выполняется прибавление единицы к s и i также в цикле происходит заполнение i + 1 строки 1 столбца. программа 2 создаётся обработка нажатия кнопки объявляется r2, r3, r1beg, r2end, dr1, r12, r13, r23 типа float r2 парсит значение из ячейки 3 строки 1 столбца ( скорее всего, примерная аналогия к r3 парсит значение 3 строки 2 столбца r1beg 3 строки 3 столбца r1end 3 строки 4 столбца dr1 3 строки 5 столбца значению numrow присваивается 6 создаётся цикл: r1 = r1beg с условием, пока r1 не будет меньше или равен r1end, при этом каждую итерацию происходит добавление dr1 к r1 в этом цикле r12 присваивается значение r1 + r2 + (r1 * r2 / (double)r3), причём r3 явно приводится к типу double так же происходит и с r13, которому присваивается r1 + r3 + (r1 * r3 / (double)r2) так же происходит и с r23, которому присваивается r2 + r3 + (r2 * r3 / (double)r1) поочередно в ячейки numrow строки 1-4 (с первого по четвёртый) столбца заносятся к строке значения r1, r12, r13, r23, после чего к numrow добавляется единица. программа 3 создаётся цикл, где i = 1 с условием i меньше или равно 5, i с каждой итерацией прибавляет к себе единицу берётся значение ячейки 3 строки i столбца и приравнивается к пустой строке ("") создаётся цикл, где j = 6 с условием j меньше или равно 16, j с каждой итерацией прибавляет к себе единицу берётся значение ячейки j строки 1 столбца и приравнивается к пустой строке ("") создаётся цикл, где k = 6 с условием k меньше или равно 16, k с каждой итерацией прибавляет к себе единицу берётся значение ячейки k строки 2 столбца и приравнивается к пустой строке ("") создаётся цикл, где a = 6 с условием a меньше или равно 16, a с каждой итерацией прибавляет к себе единицу берётся значение ячейки a строки 3 столбца и приравнивается к пустой строке ("") создаётся цикл, где b = 6 с условием b меньше или равно 16, b с каждой итерацией прибавляет к себе единицу берётся значение ячейки b строки 4 столбца и приравнивается к пустой строке ("")

Унас тоже по инф. такая тетрадь я написала так: игрушка для ребёнка не  должна быть безполезной. она должна быть познавательной, безопасной, интересной и удобной для игры