Помогите решить задачку :) - 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>