Реферат: Численное решение модельного уравнения

Function Fun_U (Xm,t:real):real;

Вход: значение по X и значение по времени t, а также глобальная переменная выбранной

функции SelectFunction.

Действие: вычисляет точное значение функции U при заданных X и t.

Выход: Fun_U – значение функции.

Function Fun_F (Xm,t,a,b,v:real):real;

Вход: значение по X, по времени t, коэффициенты , , и номер выбранной функции

SelectFunction.

Действие: вычисляет значение функции F при заданных X, t, , , .

Выход: Fun_F – значение функции F.

Function Betta_Zero (time:real): real;

Вход: значение времени t и глобальные коэффициенты , , , номер выбранной

функции SelectFunction.

Действие: вычисляет , используемое в методе скалярной прогонки.

Выход: Betta_Zero – значение .

Function U_End (time,Alf,Bet:real): real;

Вход: значение времени t, , и глобальные коэффициенты , , , номер выбран-

нойфункции SelectFunction.

Действие: вычисляет используемое в методе скалярной прогонки.

Выход: U_End – значение .

Procedure PrintArray;

Вход: использует глобальный массив данных U_m.

Действие: выдает содержимое U_m на экран и в файл.

Выход: вывод U_m.

Приложение 2

ТЕКСТ ПРОГРАММ Ы

Основная часть программы выглядит так:

Program Basis;

Uses Crt; { Подключениебиблиотек }

Label Metka1,Metka2; { Метки }