Вывести таблицу значений функций g(x) для х от -20 до 20 с шагом при b= -0.2 - VB
Формулировка задачи:
Здравствуйте !!!
помогите очень надо сделать лабораторную..
вот какое задание:
Вывести таблицу значений функций g(x) для х от -20 до 20 с шагом при b= -0.2
exp(f(x)-abs(b)), 0.5<x*b<10
g= sqr(abs(f(x)+b)), 0.5<x*b<0.5
2*f(x)^2, иначе else f(x)=cos(x)
Решение задачи: «Вывести таблицу значений функций g(x) для х от -20 до 20 с шагом при b= -0.2»
textual
Листинг программы
Private Sub Command1_Click()
Dim x#, b#, h#, o%
List1.Clear
b = -0.2
h = 0.2
For x = -20 To 20 Step h
If x * b > 0.5 And x * b < 10 Then
g = Exp(f(x) - Abs(b)): o = 1
Else
If Abs(x * b) < 0.5 Then
g = Sqr(Abs(f(x) + b)): o = 21
Else
g = 2 * f(x) ^ 2: o = 41
End If
End If
List1.AddItem String(o, " ") & "g(" & Format(x, "0.0") & ")=" & Format(g, "0.000")
Next x
End Sub
Function f#(x#)
f = Cos(x)
End Function