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

(Alfa_2-Alf*Alfa_2+h*Betta_2);

If SelectFunction=5 then U_End:=(Alfa_2*h*(COS(X))+Betta_2*h*(SIN(X)+EXP(time))+Bet*Alfa_2)/

(Alfa_2-Alf*Alfa_2+h*Betta_2);

end;

Procedure PrintArray; { Процедурапечатимассива U }

begin

WriteLn; For m:=0 to Kol_voX do begin Write(U_m[m]:15:4); Write(U,U_m[m]:15:4); end;

WriteLn; WriteLn(U);

end;

{ Основная программа }

Begin

Assign(U,'u'); { Файл для записи значений функции }

Rewrite(U); { Открытие файла для записи }

TextBackGround(0); { Выбор функции для работы }

ClrScr; TextColor(10); GoToXY(20,8); Write('Введите номер выбранной функции (1-5):');

Metka1: ch:=ReadKey;

If ch='1' then SelectFunction:=1

else If ch='2' then SelectFunction:=2

else If ch='3' then SelectFunction:=3

else If ch='4' then SelectFunction:=4

else If ch='5' then SelectFunction:=5

else

begin

Sound(400); Delay(100); NoSound; GoTo Metka1;

end;

GoToXY(59,8);TextColor(12);WriteLn(SelectFunction); TextColor(11); GoToXY(11,12);

Write('Вы будете работать со стандартными параметрами (цифра ~1~)');

GoToXY(22,13); Write('или введете свои данные (цифра ~2~) ?');

Metka2: ch:=ReadKey;