Написание алгоритма - 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

Оцени полезность:

9   голосов , оценка 3.556 из 5
Похожие ответы