Вывести таблицу значений функций 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
