------------------------ ----------------------------------- PACKAGE TForm2 * Form2;
// ---------------------------------------- -----------------------------------
# endif
Вміст файлу Unit2.cpp
// ФайлUnit2.cpp
// ---------------------------------------- -----------------------------------
# include "Unit2.h"
# include "Unit1.h"
# pragma package (smart_init)
# pragma resource "*. dfm" * Form2;
// ---------------------------------------- -----------------------------------
__fastcall TForm2 :: TForm2 (TComponent * Owner)
: TForm (Owner)
{
}
Додаток А
Структура програми виглядає так:
В
Загальний вигляд
Рішення диф. рівняння
В
апроксимация диф. рівняння
В
І розрахунок похибки
В
Графік рішення
В
Графік апроксимації
В
Графік похибки
В
Додаток Б Блок-схеми
Рішення диференціального рівняння на проміжку [x0; xk] при початковому умови y0 методом Рунге-Кутта 4 порядку
Рішення диференціального рівняння на проміжку [x0; xk] при початковому умови y0 методом Рунге-Кутта 4 порядку з півкроком
Обчислення похибок апроксимації методом Рунге-Ромберга