и властивостями дивіться на рис. 2.3.
. Для створення програмного коду в провіднику проекту або в меню View вибрати команду Code.
У вікні Project1 - Form1 (Code) вибрати в списку General назва кнопки +1 і клацнути по ній. У результаті з'явиться заготовка записи програмного коду для Command1 з ініціюванням для неї події Click. Значення A, B, E користувач повинен ввести в вікна Text1, Text2, Text3. Але в текстовому вікні дані виходять також текстові, типу Single. Тому використовуємо функцію Val () для перекладу в числовий тип Single, що оголошений для змінних A, B, E на початку програми в операторі Dim. Для виведення значень xn, yn використовується функція Round (), яка округлює кількість знаків після коми до чотирьох.
. Аналогічні дії виконуємо відносно кнопки 2. Для Command2 буде виконуватися одна дія - закрити програму. Це виконує команда End.
Рис. 2.3. Заготівля форми для прикладу 1-1 зі зміненими властивостями.
Програмний код для прикладу знаходження коренів рівняння методом ділення відрізка навпіл буде мати вигляд:
Private Sub Command1_Click ()
Rem Лабораторна робота 1-1, варіант 13
A=0, B=1, E=0.001A, B, E, YA, YB, xn, yn As Single
A=Val (Text1.Text)=Val (Text2.Text)=Val (Text3.Text)=fnf (A/1): YB=fnf (B/1) YA * YB gt ; 0 Then GoTo 1 xn raquo ;, yn
xn=(A + B)/2: yn=fnf (xn/1) xn, ynYA * yn lt; 0 Then B=xn Else A=xn (B - A) gt; E Then GoTo 2.Text=Round (xn, 4) .Text=Round (vn, 4) SubSub Command2_Click ()
End Sub
. Для збереження проекту треба виконати команду меню File (файл)? Save Project As (Зберегти проект як). У діалоговому вікні Save File As (Зберегти файл як) вибрати назву диска, на якому повинна бути створена папка для зберігання файлів нового проекту. Далі для збереження форми, слід набрати ім'я файлу в полі введення File Name (Ім'я файлу), наприклад Primer1-1, і натиснути клавішу «Enter». Форма Form1 буде збережена у файлі з розширенням Primer1-1.frm.
. Після збереження форми слід зберегти проект. У VISUAL BASIC це відбувається автоматично, після чого має з'явитися діалогове вікно Save Project As -Зберегти проект. Слід набрати те ж ім'я Primer1-2 і натиснути клавішу «Enter». Файл проекту буде збережений з розширенням Primer1-1.vbp.
. Тепер запустити проект на виконання. Вибираємо команду Run? Start або Shift + F5. У полі Text1 потрібно ввести значення A, в поле Text2 - значення B, в поле Text3 - значення E - після чого натиснути кнопку «Старт». У вікнах Text4, Text5 з'явилися значення xn, yn. Для завершення роботи програми слід натиснути кнопку «Фініш».
1.2 Метод Ньютона (метод дотичних)
чисельний метод лінійний програмування
Приклад: Вирішити рівняння F (x)=x3 + x - 1=0 на відрізку [0; 1] методом Ньютона c точністю e=0.01.
Рішення:
На рис. 1.5 наведена програма вирішення даного рівняння методом Ньютона.
CLSLR - 1-2, m=13, n=5FNF (X)=X ^ 3 + X - 1FNP (X)=3 * X + 1X, E
X=X- FNF (X)/FNP (X) X, FNF (X) ABS (FNF (X)/FNP (X)) gt; E THEN 1
END
Рис. 1.5. Програма знаходження коренів методом Ньютона.
1.3 Метод простої ітерації
Приклад: Вирішити рівняння F (x)=x3 + x - 1=0 на відрізку [0; 1] методом простої ітерації c точністю e=0.01.
Рішення:
LR - 1-3, m=13, n=5FNF (X)=X ^ 3 + X - 1X, E, M
X=X - FNF (X)/MX, FNF (X) ABS (FNF (X)/M) gt; E THEN 1
END
Ріс.1.7. Програма вирішення рівняння методом простої ітерації.
2. Методи рішення систем лінійних алгебраїчних рівнянь
. 1 Метод Гаусса
Приклад: Вирішити систему рівнянь методом Гаусса:
+ 4x2 + 3x3=10
x1 + x2 - x3=- 1
x1 - x2 + x3=11
Рішення:
2.2 Метод прогонки
Приклад: Вирішити систему рівнянь методом прогонки:
10x1 + x2=m + 5
x1 + 9x2 + x3=n + 9 m - 1
, 1x2 + 4x3 -x4=4 n + 0,1 m - 5
- x3 + 8x4 - x5=40 -n - L
x5=L,
де значення m - номер варіанта, n - номер групи, L - номе...
