Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата

If SelectFunction=3 then Betta_Zero:=(h/(Betta_1*h-
Alfa_1))*(Alfa_1*(SIN(x0*time)+ x0*time*COS(x0*time)-8*x0*COS(time))+Betta_1*(x0*SIN(x0*time)-
4*SQR(x0)*COS(time)));

If SelectFunction=4 then Betta_Zero:=(h/(Betta_1*h-
Alfa_1))*(Alfa_1*(time*EXP(x0))+

Betta_1*(time*EXP(x0)));

If SelectFunction=5 then Betta_Zero:=(h/(Betta_1*h-
Alfa_1))*(Alfa_1*(COS(x0))+

Betta_1*(SIN(x0)+EXP(time))); end;
Function U_End (time,Alf,Bet:real): real; { Функция Um для прогонки } begin

If SelectFunction=1 then
U_End:=(Alfa_2*h*3*SQR(X)+Betta_2*h*(SQR(X)*X+SQR(time))

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

If SelectFunction=2 then
U_End:=(Alfa_2*h*(2*X*SQR(time)*time+10*time+SQR(SQR(time)))+

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 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;

If ch='1' then Data:=1 else If ch='2' then Data:=2 else begin

Sound(400); Delay(100); NoSound; GoTo Metka2; end;
TextBackGround(9); TextColor(10); ClrScr;
{ Ввод начальных данных }
WriteLn; WriteLn('-------------------------------- Ввод данных --------
----------------------¬');
For k:=1 do 21 do WriteLn('¦

¦');
WriteLn('L-------------------------------------------------------------
--------------');
TextColor(15); Window(3,3,77,23); Write(' Введите область рассчета по X от: ');
If Data=1 then begin x0:=0; Write(x0:1:0); WriteLn; end else ReadLn(x0);
Write(' до: ');
If Data=1 then begin

X:=1; Write(X:1:0); WriteLn; end else ReadLn(X);
WriteLn; Write(' Введите количество разбиений по направлению X: ');
If Data=1 then begin Kol_voX:=30; Write(Kol_voX:2); WriteLn; end else
ReadLn(Kol_voX);
WriteLn;WriteLn; Write(' Введите область рассчета по времени от: ');
If Data=1 then begin t0:=0; Write(t0:1:0); WriteLn; end else
ReadLn(t0);
Write(' до: ');
If Data=1 then begin T:=1; Write(T:1:0); WriteLn; end else
ReadLn(T);
WriteLn; Write(' Введите количество разбиений по времени: ');
If Data=1 then begin Kol_voT:=30; Write(Kol_voT:2); WriteLn; end else
ReadLn(Kol_voT);
WriteLn;WriteLn; WriteLn(' Введите коэффициенты'); Write(' a=');
If Data=1 then begin a:=1; Write(a:1:0); WriteLn; end else ReadLn(a);
Write(' b=');
If Data=1 then begin b:=1; Write(b:1:0); WriteLn; end else ReadLn(b);
Write(' v=');
If Data=1 then begin v:=0.001; Write(v:1:3); WriteLn; end else
ReadLn(v);
Write(' Alfa-1=');
If Data=1 then begin Alfa_1:=1; Write(Alfa_1:1:0); WriteLn; end else
ReadLn(Alfa_1);
Write(' Betta-1=');
If Data=1 then begin Betta_1:=1; Write(Betta_1:1:0); WriteLn; end else ReadLn(Betta_1);
Write(' Alfa-2=');
If Data=1 then begin Alfa_2:=1; Write(Alfa_2:1:0); WriteLn; end else
ReadLn(Alfa_2);
Write(' Betta-2=');
If Data=1 then begin Betta_2:=1; Write(Betta_2:1:0);
WriteLn;TextColor(14);

Рекомендуем скачать другие рефераты по теме: рефераты, реферат скачать управление.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки