Запрограммировать функцию и вычислить сумму ее значений в точках интервала с заданным шагом

[Федор Емельяненко]

1. Запрограммировать функцию и вычислить сумму ее значений в точках интервала с заданным шагом, а также произведение значений функции, попавших в промежуток (1;2].
Z=(tgx)^2+y^2, где y=2.5, 0<=x<=1.6, h=0.2

[motorway]

Если нет наработок, вам в раздел Фриланс

[Федор Емельяненко]

Сообщение от motorway

Если нет наработок, вам в раздел Фриланс

а как же:

PHP код:

Sub
Dim xn As Single, xk As Single, h As Single, S As Single, P As Single, Y As Single
xn = Val(InputBox("Введите начальное значение x"))
xk = Val(InputBox("Введите конечное значение x"))
h = Val(InputBox("Введите шаг изменения x"))
Y = 2.5: S = 0: P = 1: i = 2
For X = xn To xk Step h
    Z = (Tan(X) ^ 2) + (Y) ^ 2
    If Z > 1 Or Z <= 2 Then P = P * Z
S = S + Z
    Next X
MsgBox (" Сумма=") + Str(S) + "Произведение=" + Str(P)
End Sub 


[motorway]

Это уже готовая программа? Тогда в чём вопрос?