заповнених полях у верхній області вікна, ввести значення x в полі В«х =В» і натиснути кнопку В«ЗнайтиВ». Праворуч від кнопки з'явиться значення функції при заданому значенні x. p align="justify"> Так само, незалежно від обраного методу розв'язання, ми можемо вивести на екран всі значення записаної функції в заданому користувачем інтервалі з певною величиною інтервалу.
3. Укрупненная структура програми і опис призначення її компонент
Програма для знаходження коренів нелінійних рівнянь містить 9 модулів (Unit1 - Unit9). Unit4 містить в собі функції для перетворення рівняння, введеного з клавіатури, у вигляд, який буде зрозумілий програмі. У цьому модулі так само прописані діалогові вікна з помилками, які виникають у разі некоректності введеного рівняння. p align="justify"> У рівнянні допускається використання круглих дужок, причому кількість відкриваються і закриваються дужок має бути однаковим, інакше відбудеться помилка при обчисленнях. Арифметичні операції записуються звичайним способом, тобто + (додавання), - (віднімання), * (множення),/(ділення). p align="justify"> Для зведення в ступінь використовується символ ^, наприклад x ^ 3. Допускається введення таких тригонометричних функцій, як синус (sin), косинус (cos), тангенс (tg), а так само десяткового (lg) і натурального (ln) логарифмів. p align="justify"> Решта вісім модулів включають крім функцій і операцій графічні оболонки.
Unit1 - головне вікно програми.
В
Рис. 3.1 - Unit1
Це основна форма, з якої користувач може вибрати варіанти дій залежно від його бажань і потреб.
При створенні модуля використовувалися наступні компоненти:
. TButton;
. TGroupBox;
. TEdit;
. TBitBtn;
. TTabbedNotebook;
. TTimer;
. TLabel;
Для обробки подій в даному модулі використовуються наступні методи:
procedure Button1Click (Sender: TObject); Button2Click (Sender: TObject); GetFunc (const x: real; Sender: TObject): real; BitBtn1Click (Sender: TObject); FormCreate (Sender: TObject) ; TabbedNotebook1Change (Sender: TObject; NewTab: Integer; AllowChange: Boolean); Edit16KeyPress (Sender: TObject; var Key: Char); Edit18KeyPress (Sender: TObject; var Key: Char); BitBtn2Click (Sender: TObject);
Unit2 - рішення методом хорд
В
Рис. 3.2 - Рішення методом хорд
Це форма, в яку користувач ...
