Помогите решить задачку :) - VB

Узнай цену своей работы

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

Ребята, я ничего не понимаю в этих задачах, а информатик не хочет объяснять :(. Поможете?

Нужно написать программу (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>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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