Написание алгоритма - VB
Формулировка задачи:
Собственно, слезно прошу помочь мне написать алгоритм двух программ, код прилагаю,сам не представляю, как с массивами сделать такую схемку, просто каша в голове. Алгоритм, это такая блок-схемка, там всякие фигурки, кружки, прямоугольники,ну, думаю, знаете... Сдаваться уже на днях, подмогните, будьте так любезны. Заранее спасибо за помощь.
Решение задачи: «Написание алгоритма»
textual
Листинг программы
'Dim i, k As Single 'Dim pr, y, p As Single Private Sub cmd1_Click() Cls s = 0 n = 0 sr = 0 k = Val(InputBox("Введите значение k")) If k = 0 Then MsgBox "Вероятно, вы ввели ноль или пустое значение", vbInformation, "Проверьте правильность ввода" For i = 1.5 To 3.9 Step 0.4 y = 7 * Cos(5 * i + k) - 2 * Sin(6 * i) y = Round(y, 1) l = Sin(Abs(i * y)) If l < 0 Then s = (s + l): n = n + 1 Print "x =" & i, "y =" & y Next i If n <> 0 Then sr = s / n Print "Среднеарифметическое =" & Round(sr, 5) Else MsgBox "n = 0, Невозможно вычислить среднеарифметическое", vbCritical, "Фатальная ошибка программы" End If End Sub Private Sub cmd2_Click() End End Sub Private Sub cmd3_Click() Cls End Sub