Курсовая работа: Аналіз теоретичної бази інтерполювання функції

2. Текст програми міститься в одному файлі: файл основної програми з іменем kursach.pas. Для відкриття його необхідно вибрати у меню Файл команду Открыть (Відкрити), що відкриває діалогове вікно з переліком PAS- файлів поточної папки.

3. Вибір необхідного файлу з цього списку і наступне натискання кнопки OK приводить до появи вікна Редактора/Налагодження, який дає змогу не тільки коректувати програму, але і проводити її відладку. Запуск програми здійснюється вибором в меню Программа команди Выполнить, або натисненням клавіші F9.

4. В результаті запуску програми з’явиться командне вікно, в якому необхідно ввести коефіцієнти розширеної матриці. По завершенні введення значень в командному вікні буде виведенне значення функції в заданій точці.

3.2 Опис програми

Текст програми міститься у файлі kursach.pas, де описані всі змінні та присвоєні їм певні значення, необхідні для обчислення значення функції інтерполюванням за формулою Бесселя, а також власний процес обчислення методу. З метою ефективного використання пам’яті для збереження початкових значень системи, вони зберігаються в динамічній пам’яті, що дозволяє відводити під них місце динамічного розміру в залежності від кількості заданих даних.

Всі дані оператори утворюють саму основну програму, правила користування якої непотрібно перераховувати ─ вони звичайні (як і в будь-якій програмі), це дозволяє значно спростити користування даною програмою.

Файл містить описи структури методу та функцій, що використовуються основною програмою: опис змінних, введення початкових даних та обчислення таблиці різниць, визначення порядкового номеру х0 та обчислення q та р, обчислення за основною формулою, виведення результатів.

У програмі використовується оператор циклу for.

Сама програма є проста та зрозуміла у користуванні.

3.3 Лістинг програми

program kursach;

uses crt;

var

A:ARRAY [1..30,1..30] OF REAL;

i,i1,N,j,X0,f:longint;

H,x,P,pp,q,p1:REAL;

begin

clrscr;

write('Vvedit pochatkovui element ');

readln(p);

write('Vvedit k-t elementiv ');

readln(n);

write('Vvedit krock ');

readln(h);

for i:=1 to n do

begin

writeln('Vvedit Y[',i,'] v tochci ',p);

a[1,I]:=p; p:=p+h;

readln(A[2,I]);