Протабулировать функцию и вывести на печать результаты - VB

Формулировка задачи:

Добрый День,дорогие форомучане. Помогите написать код ,пожалуйста. Протабулировать функцию и вывести на печать результаты при изменении x от 1 до 13 с шагом 1.83 и изменении y от 13 до 8 с шагом 0.87 F=SQR((x^2 + 1)/sin(y)) Помогите пожалуйста! Заранее Спасибо,с ув. Александр!

Решение задачи: «Протабулировать функцию и вывести на печать результаты»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Tabl(ax!, bx!, dx!, zx%, ay!, by!, dy!, zy%)
Dim a!
a = ay
If ax * zx < bx * zx Then
  List1.AddItem Round(ax, 2)
    Do
        List1.AddItem vbTab & Round(ay, 2) & vbTab & f(ax, ay)
        ay = ay + dy * zy
    Loop While ay * zy < by * zy
  ax = ax + dx * zx
    Tabl ax, bx, dx, zx, a, by, dy, zy
End If
End Sub
 
Function f(x!, y!)
On Error GoTo er
f = Sqr((x ^ 2 + 1) / Sin(y))
Exit Function
er: f = "Error"
Err.Clear
End Function
 
Private Sub Command1_Click()
Tabl 1, 13, 1.83, 1, 13, 8, 0.87, -1
End Sub

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

5 голосов , оценка 4.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы