Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Turbo Pascal / Stud_1_1 / Metlab / LABOR2 / LABOR2

.PAS
Скачиваний:
91
Добавлен:
03.03.2016
Размер:
1.79 Кб
Скачать
Program Lab2;
Uses Crt;
Const eps = 0.001;
Var
i, { Ї а ¬Ґва жЁЄ«  }
m : byte; { Є®«-ў® ўлЇ®«­Ґ­Ё© ў­Ґи­ҐЈ® жЁЄ«  }
x, {  аЈг¬Ґ­в дг­ЄжЁЁ }
xn,xk, { ­ з «м­®Ґ Ё Є®­Ґз­®Ґ §­ зҐ­Ёп x }
hx, { и Ј Ё§¬Ґ­Ґ­Ёп  аЈг¬Ґ­в  x }
max, { max(y,S) }
n, { Є®«ЁзҐбвў® ЁвҐа жЁ© }
a, { н«Ґ¬Ґ­в ап¤  }
S, { з бвЁз­ п б㬬  ап¤  }
y, { §­ зҐ­ЁҐ дг­ЄжЁЁ }
dy : real; { Ї®ЈаҐи­®бвм ўлзЁб«Ґ­Ёп, % }
ch : char; { бЁ¬ў®« ­ ¦ в®© Є« ўЁиЁ }
Begin
ClrScr;
Writeln('‚ўҐ¤ЁвҐ §­ зҐ­Ёп xn,xk,hx');
Read(xn,xk,hx);
Writeln(' xn= ',xn:5:2,' xk= ',xk:5:2,
' hx= ',hx:5:2);
Writeln(' ЪДДДДДДДДДВДДДДДДДДВДДДДДДДДДДДДДВДДДДДДДДДДДДДВ',
'ДДДДДДДДДДДДДДДї');
Writeln(' і x і n і S і y і',
' dy, % і');
Writeln(' ГДДДДДДДДДЕДДДДДДДДЕДДДДДДДДДДДДДЕДДДДДДДДДДДДДЕ',
'ДДДДДДДДДДДДДДДґ');
m:=Round((xk-xn)/hx)+1;
x:=xn;
For i:=1 to m do
Begin
a:=x; S:=x; n:=1;
While abs(a)>eps do
Begin
a:=-sqr(x)*a/((2*n)*(2*n+1));
S:=S+a;
n:=n+1;
End;
y:=sin(x);
If abs(y)>abs(S) then
max:=y
Else
max:=S;
If (abs(y)>1E-10) or (abs(S)>1E-10) then
dy:=100*abs((y-S)/max)
Else
dy:=0;
Writeln(' і ',x:6:2,' і ',n:3:0,' і ',S:9:6,' і ',
y:9:6,' і ',dy:10,' і');
x:=x+hx;
End;
Writeln(' АДДДДДДДДДБДДДДДДДДБДДДДДДДДДДДДДБДДДДДДДДДДДДДБД',
'ДДДДДДДДДДДДДДЩ');
Repeat
ch:=ReadKey;
Until ord(ch)=27;
End.

Соседние файлы в папке LABOR2