Разработка алгоритма табулирования функции и постройка графика функции

                                         Проект

                     «Табулирование функции Cos√ 1-0,3x³-x.»

                                                        План:

1: Цель проекта

2: Блок-схема проекта

3: Листинг программы

4:Интерфейс

1.  Цель проекта – разработать алгоритм табулирования функции и построить график функции.

2.  Блок-схема приведена на рисунке ниже:

3.  Листинг программы:

Dim x(10) As Single

Dim y(10) As Single

Private Sub Cmd_Start_Click()`при нажатии на кнопку «Старт»

a = 0  ` Переменной а присваивается значение 0

 b = 1  ` Переменной b присваивается значение 9

n = 9  ` Переменной n присваивается значение 9

h = (b - a) / n `Вычисляется переменная h

For i = 0 To n ` Цикл: от i=0 до переменной n

x(i) = a + i * h `Вычисление x(i)

y(i) = Cos((1 - 0.3 * (x(i) ^ 3)) - x(i)) ^ (1 / 2) `Вычисление y(i)

Lst_1.AddItem i + 1  `Первой строке присваивается значение i+1

Lst_2.AddItem x(i)  `Второй строке присваивается значение x(i)

Lst_3.AddItem y(i) `Третьей строке присваивается значение y(i)

Next I  `Конец цикла, выход на начало цикла

ymin = y(1)  `Вычисление значения Y(1)

ymax = ymin  `Вычисление Ymax

For i = 0 To n `Цикл: от i=0 до переменной n

If y(i) > ymax Then ymax = y(i)  ` Проверка условия

Next i  `Конец цикла, выход на начало цикла

lbl_ymin.Caption = ymin  ` Вывод на метку значения ymin

lbl_ymax.Caption = ymax  ` Вывод на метку значения ymax

Xmin.Caption = a ` Вывод на метку значения a

Xmax.Caption = b  ` Вывод на метку значения b

Pic_1.Scale (a, ymax)-(b, ymin)  ` Задание масштаба объекта «Picture»

For i = 1 To n ` Цикл: от i=1 до переменной n

Pic_1.Line (x(i - 1), y(i - 1))-(x(i), y(i))  ` Рисование графика функции

Next i  `Конец цикла, выход на начало цикла

End Sub  ` Конец события «Нажатие на кнопку»

Private Sub Cmd_Rebort_Click()  ` При нажатии на кнопку «Сброс»

Lst_1.Clear  ` Очистка всех строк объекта «List1»

Lst_2.Clear ` Очистка всех строк объекта «List2»

Lst_3.Clear ` Очистка всех строк объекта «List3»

End Sub ` Конец события «Нажатие на кнопку»

Private Sub Cmd_exit_Click()

Unload Form1 ` Выгрузка программы из ОЗУ

End Sub

4.  Интерфейс:

Для реализации проекта была использованa система программирования VisualBasic 6 компании Microsoft.

Заключение:  создание алгоритма и написание программы было выполнено успешно.