Численное решение модельного уравнения
Категория реферата: Рефераты по математике
Теги реферата: права человека реферат, контрольные работы 8 класс
Добавил(а) на сайт: Ясавеев.
Предыдущая страница реферата | 4 5 6 7 8 9 10 11 12 13 14 | Следующая страница реферата
Betta_2*h*(SQR(X)*SQR(time)*time+10*X*time+SQR(SQR(time))*X)
+Bet*Alfa_2)/(Alfa_2-Alf*Alfa_2+h*Betta_2);
If SelectFunction=3 then U_End:=(Alfa_2*h*(SIN(X*time)+X*time*COS(X*time)-8*X*COS(time))+
Betta_2*h*(X*SIN(X*time)-4*SQR(X)*COS(time))+Bet*Alfa_2)/(Alfa_2-Alf*Alfa_2+h*Betta_2);
If SelectFunction=4 then U_End:=(Alfa_2*h*(time*EXP(X))+Betta_2*h*(time*EXP(X))+Bet*Alfa_2)/
(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
Рекомендуем скачать другие рефераты по теме: контрольные 7 класс, заказать дипломную работу.
Предыдущая страница реферата | 4 5 6 7 8 9 10 11 12 13 14 | Следующая страница реферата