як функція F=2ln2 (x) + 6ln (x) - 5 буде використовуватися в декількох формах, опишемо її глобально.
Підпрограма функції:
{TForm1} TForm1.F (x: real): real;:=2 * sqr (ln (x)) + 6 * ln (x) - 5;
end;
У редакторі вихідного коду в Unit 3 вводимо текст програми для вирішення даного нелінійного рівняння.
procedure TForm3.Button2Click (Sender: TObject); var a, b, c, e: real; У розділі var описуємо змінні; begin a:=StrToFloat (Form2.Edit1.Text); b:=StrToFloat (Form2.Edit2.Text); e:=StrToFloat (Form2.Edit3.Text); Присвоюємо змінним a, b, e значення, введені в другій формі в Edit1, Edit2, Edit3; repeat c:=a - ((Form1.F (a))/(Form1.F (b) -Form1.F (a) )) * (ba); if Form1.F (c)=0 then break else begin if (Form1.F (c)) * (Form1.F (a)) lt; 0 then b:=c else a:=c end; until abs (Form1.F (c)) lt; e; Початок циклу з постусловіем. Обчислення наближеного значення. Form1.F (c)=0-умова для виходу з циклу, знаходження кореня. Перевірка умови, в результаті якого вибирається інший проміжок наближення кореня. Умова виходу з циклу: F (c) по модулю буде більше досить малого числа е.edit1.text:=floattostr (c); end; Отримана відповідь виводимо в Edit1 на третій формі.
Далі, вводимо програму для створення текстового файлу Kharisov.txt і збереження в нього отриманого результату.
procedure TForm3.Button3Click (Sender: TObject); var F: TextFilebegin AssignFile (F, Kharisov.txt ); Назва файлу; Rewrite (F); Команда створює новий файл F і відкриває його; Writeln (F, Edit1.Text); CloseFile (F); end; Запис результату; Закриття файлу.
2.3 Візуалізація
У Unit4 в підрозділі uses підключаємо математичний модуль Math. У підрозділі uses вводимо unit2.
var H, a, b, c, x: real; У розділі var описуємо змінні; begin a:=StrToFloat (Form2.Edit1.Text); b:=StrToFloat (Form2.Edit2.Text); x:=a; H:=strtofloat (form4.edit1.text); chart1lineSeries1.Clear; chart1lineSeries2.Clear; chart1lineSeries3.Clear; chart1lineSeries4.Clear; Привласнюємо змінним a і b значення, введені в другій формі в Edit1 і Edit2. Для кожної серії вводимо Chart1LineSeries1.Clear., Щоб при введенні подальшого значення h, попередні очищалися, тобто будувався новий графік; while x lt;=b do begin chart1lineseries1.addxy (x, Form1.F (x)); x:=x + H; end; Цикл з передумовою, для побудови графіка функції; chart1lineseries2.addxy (a, Form1.F (a)); chart1lineseries2.addxy (b, Form1.F (b)); c:=a - ((Form1.F (a))/(Form1.F (b) -Form1.F (a))) * (ba); if (Form1.F (a)) * (Form1.F (c)) lt; 0 then b:=c else a:=c; chart1lineseries3.addxy (a, Form1.F (a)); chart1lineseries3.addxy (b, Form1.F (b)); c:=a - ((Form1.F (a))/(Form1.F (b) -Form1.F (a))) * (ba); if (Form1.F (a)) * (Form1.F (c)) lt; 0 then b:=c else a:=c; chart1lineseries4.addxy (a, Form1.F (a)); chart1lineseries4.addxy (b, Form1.F (b)); end; Побудову першої хорди; Обчислення наближеного значення. Перевірка умови для вибору проміжку; Побудова другого хорди для знаходження наближеного значення. Перевірка умови для вибору проміжку; Побудова третього хорди для знаходження наближеного значення.
2.4 Обчислювальний експеримент
Запускаємо створене додаток. На головному вікні клацаємо за пунктом меню Введення даних raquo ;, відкривається відповідна форма.
Рисунок 8 - Головна
На формі Введення даних вводимо значення початку (a) і кінця (b) проміжку, точність (e).
Рисунок 9 - Введення даних
Потім, клацнувши на кнопку ОК ми переходимо на наступну форму Рішення рівняння raquo ;. У формі натискаємо на кнопку Вирішити raquo ;, у вікні з'являється відповідь. При натисканні на кнопку Зберегти raquo ;, дане рішення буде збережено в текстовому документі.
Рисунок 10 - Рішення рівняння
Клацаємо по пункту меню Ілюстрація raquo ;, відкривається потрібне нам вікно. Вводимо певний крок табуляції (H) і натискаємо на кнопку Ілюструвати raquo ;. Виконується побудова графіка і три відповідні хорди.
Малюнок 11 - Ілюстрація
Клацаємо по наступного пункту меню, відкривається вікно Про автора raquo ;, де дана інформація про курсовій роботі.
Рисунок 12 - Про автора
Клацнувши по пункту меню Вихід raquo ;, закривається головне вікно і всі додаток цілком.
2.5 Порівняння результатів
При рішення даного рівняння в математичному пакеті ...
