Табулирование функции и Вычисление суммы (произведений) ряда - VB
Формулировка задачи:
Задания на скриншоте
Решение задачи: «Табулирование функции и Вычисление суммы (произведений) ряда»
textual
Листинг программы
Private Sub Command1_Click()
n = InputBox("Нижняя граница аргумента", , 1)
m = InputBox("Верхняя граница аргумента", , 2)
k = InputBox("Шаг аргумента", , 0.1)
For x = n To m Step k
y = Cos(x) - Exp(-x ^ 2 / 2) + x - 1
Picture1.Print Format(y, "0.0000")
Next x
End Sub