Помогите решить задачку :) - VB
Формулировка задачи:
Ребята, я ничего не понимаю в этих задачах, а информатик не хочет объяснять :(. Поможете?
Нужно написать программу (Visual Basic, который в MS Office 2003) которая будет находить точку экстремума (минимум) (использовать цикл Do loop) и площадь (цикл For next) этой функции на определенном интервале
Программа по графику.
Нужно написать программу (Visual Basic, который в MS Office 2003) которая будет находить точку экстремума (минимум) (использовать цикл Do loop) и площадь (цикл For next) этой функции на определенном интервале
y = (x^3 + 4)/ x^2.
Программа по графику.
Решение задачи: «Помогите решить задачку :)»
textual
Листинг программы
<font color="blue">Public</font> <font color="blue">Function</font> F(x) <font color="blue">If</font> x <> <font color="darkblue"><b>0</b></font> <font color="blue">Then</font> F = (x ^ <font color="darkblue"><b>3</b></font> + <font color="darkblue"><b>4</b></font>) / x ^ <font color="darkblue"><b>2</b></font> <font color="blue">End</font> <font color="blue">Function</font> <font color="blue">Sub</font> mysub() <font color="blue">Dim</font> x <font color="blue">As</font> <font color="blue">Integer</font>, y <font color="blue">As</font> <font color="blue">Double</font>, x1 <font color="blue">As</font> <font color="blue">Integer</font>, h <font color="blue">As</font> <font color="blue">Double</font>, x2 <font color="blue">As</font> <font color="blue">Double</font>, z <font color="blue">As</font> <font color="blue">Double</font>, extremum <font color="blue">As</font> <font color="blue">Double</font> x1 = InputBox(<font color="teal">"Введите значение х1"</font>, <font color="teal">"ввод х1"</font>, <font color="darkblue"><b>1</b></font>) x2 = InputBox(<font color="teal">"Введите значение х2"</font>, <font color="teal">"ввод х1"</font>, <font color="darkblue"><b>3</b></font>) h = InputBox(<font color="teal">"Введите значение h"</font>, <font color="teal">"ввод х1"</font>, <font color="darkblue"><b>0</b></font>.<font color="darkblue"><b>2</b></font>) y = x1 extremum = <font color="darkblue"><b>0</b></font> <font color="blue">Do</font> <font color="blue">While</font> y < x2 <font color="blue">If</font> F(y) < extremum <font color="blue">Then</font> extremum = F(y) y = y + h <font color="blue">Loop</font> Debug.<font color="blue">Print</font> extremum <font color="blue">End</font> <font color="blue">Sub</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д