имувати
TButton * CalcDy ;//Кнопка розрахувати похибка
TButton * Draw ;//Кнопка побудувати графік
TGroupBox * Draws; * Solution ;//Кнопки вибору типу графіка * AppFunc; * Mistake; * Operation; * Clear ;//Кнопка відчистити * Timer1 ;//Таймер__fastcall FormCreate (TObject * Sender); __fastcall SolveClick (TObject * Sender); __fastcall approxClick (TObject * Sender); __fastcall ClearClick (TObject * Sender); __fastcall CalcDyClick (TObject * Sender); __fastcall SolutionClick (TObject * Sender); __fastcall AppFuncClick (TObject * Sender); __fastcall MistakeClick (TObject * Sender); __fastcall FormShow (TObject * Sender); __fastcall Timer1Timer (TObject * Sender); __fastcall DrawClick (TObject * Sender);: // User declarations: // User declarations
__fastcall TForm1 (TComponent * Owner);
};
// ---------------------------------------- ----------------------------------- PACKAGE TForm1 * Form1;
// ---------------------------------------- -----------------------------------
# endif
Вміст файлу Unit1.cpp
// ФайлUnit1.cpp
// ---------------------------------------- -----------------------------------
# include
# pragma hdrstop
# include "Unit1.h"
# include "Unit2.cpp"
# include
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)
# pragma resource "*. dfm" 1 * Form1;
// ---------------------------------------- -----------------------------------
// Опис глобальних змінних
# defineNONE 0// Не потрібно побудови графіка
# defineSOL 1// Графік рішення
# defineAPR 2// Графік апроксимуючої функції
# defineMIS 3// Графік похибки
intx_c = 30, y_c = 170;// Початок координат
double x0 = 0.5;// Інтервалxk = 1.5; y0 = 0.6;// Початкова умова
double h = 0.1;// Крок
double h_half = h/2.0;// півкроку
intn = 2 + (xk-x0)/h;// Кількість вузлів сітки
intg_type = NONE;// Вид графіка для побудови
double * knots;// Вузли сітки * knots_half;// Вузли сітки * solutions;// Значення рішень * solutions_half;// Значення рішень c півкроком * approxim;// Значення апроксимується. функції * correct;// Уточнене рішення * errors;// Значення поправок * a...