II. Хід роботы:

Завдання1: створити форму з кнопкою, натискання на яку приводило би до обчислення в точці х=0 функції: у=

1. Створити папку С:\STUDENT\<Назва групи>\<ПІБ студента>\VB\LR4

2.Завантажити середовище візуального програмування Visual Basic 2008 (VB).

3. Активізувати панель компонентів і вікна VB: вікно форми, вікно властивостей, вікно браузера рішень.

4. На формі Form1 розмістити компоненти, як показано на малюнку 1.

Мал. 1.Исходна форма

5.Для форми (об’єкт типу Form1) установити властивість типу Text рівною “Арифметичні виразі на VB ”.

6. Вставити у форму мітку (об’єкт типу Label) з назвою Label1 і зачистити властивість Text пробелами .

7. Вставити у форму кнопку (об’єкт типу Button) з назвою Button1 і установити властивість Text рівною “Виконати

8. Запрограмувати кнопку «Виконати». Для цього два рази клацнути по ній лівою кнопкою миші. У результаті активізується вікно редактору коду з заготівкою:

Public Class Form1

Private Sub Button1_Click( byVal sender as System.Object, byVal c as System.EventArgs) Handles Button1.Click

End Sub

End Class

У цю процедуру вставити наступний текст:

Dim X as Single, Y as Single

X=0

Y=(Math.sin(x^2)^3- Math.cos(x^5)+ Math.sqrt(3* Math.abs(x))) / (3-x)

Label1.text=Y

9.Получим програму виду:

Public Class Form1

Private Sub Button1_Click( byVal sender as System.Object, byVal c as System.EventArgs) Handles Button1.Click

Dim X as Single, Y as Single

X=0

Y=(Math.sin(x^2)^3- Math.cos(x^5)+ Math.sqrt(3* Math.abs(x))) / (3-x)

Label1.Text=Y

End Sub

End Class

10.Зберегти проект у своїй папці.

11. Запустити проект на виконання, натиснувши клавішу F5.

12. Так як sin(0)=0, cos(0)=1, то відповідь повинна бути: y= -1/3=-0.33333

Примітка

Цю програму можливо записати інакше, значно спростивши запис функції у. Для цього лише потрібно описати поперед усіх операторів програми речення:

Imports System.Math

Тобто і’мя Math вказує на розділ стандартних математичних функцій у системної бібліотеці, в якому програма транслятор буде знаходити тексти програм для відповідних математичних функцій і розміщувати їх у програмі користувача.

Итак нашу програму можливо записати так:

Imports System.Math

Public Class Form1

Private Sub Button1_Click( byVal sender as System.Object, byVal c as System.EventArgs) Handles Button1.Click

Dim X as Single, Y as Single

X=0

Y=(sin(x^2)^3- cos(x^5)+ sqrt(3* abs(x))) / (3-x)

Label1.Text=Y

End Sub

End Class

n	ФУНКЦІЇ fn(x)
1	9,2cos²x3 -|sin x / 1.13|+cos1,2x -5
2	12,4sin |x / 2,1|-8,3cos1,2x+sin3x5+
3	|cosx / 2,7|+ cos5x6-9,1sin(1,2x-1)
4	|sinx / 3,12+cos5x²|-8,3sin3x+
5	Cos|2x3| / 1,12-sin2(3x-2)5+6,15
6	Sinxcos2x²sin(x+1,4)+5,14cos3x
7	|sin(2x-1,5)+2cos3x5/3sinx²|2,38
8	cosx²sin(2x-1)+4,29/ cos3x5
9	cos(x²+1)-|sin2/x-5,76|+sin3x5
10	sinx-cos6x³/sin(x²-4,2)+4,27
11	|sin12xcos |2x| / 3|+sin3x6-4,21-
12	cosx³ / 2,1+cos5x² / 1,1-8,3sin(3x+1)-23,8
13	sinx²cos²x-sinx+5,2 /cos3x5
14	2sin3x5sin(2x-1,5)/cos(2x+1,5)-6
15	|cosx²-0,51|sin(3x-4)+4,44/ - cos3x5

Завдання2 (індивідуальне):

Вибрати з Таблиці1 функцію fn(x), номер n якої співпадає з Вашим порядковим номером по журналу; запрограмувати її на VB і знайти її значення в точці х=0.

Таблиця1

ІІІ Висновок:

• Домашнє завдання: