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