Используя разложение в ряд Тейлора найти значение sin(x) с заданной точностью e

@trinitrotoluene · Регистрация: 08.01.2016

Студворк — интернет-сервис помощи студентам

Всем привет!)
Нашёл на этом форуме решение, но данная программа не работает. ( к коду, данному на сайте добавил только перевод в градусы)
Заранее спасибо за помощь.

Pascal

program teilor;
function PER(gradus : real) : real;
var rad : real;
begin
rad := gradus*Pi/180;
Per:=rad;
end;
var x,stx,sint,e,Grad: real;
    i,fakt,z: integer;
Begin
Write('Введите x: ');
Readln(Grad);
Write('Введите точность e: ');
Readln(e);
x:=Per(Grad);
stx:= x; 
fakt:= 1; 
sint:= 0; 
i:= 1; 
z:= 1; 
while stx/fakt>=e do begin 
    sint:=sint+z*stx/fakt;
    inc(i,2);
    stx:=stx*x*x;
    fakt:=fakt*(i-1)*i;
    z:=z*(-1); 
    end;
Writeln('Количество элементов в разложении = ',i div 2);
Writeln('Значение sin(',x:3:3,')= ',sint:6:6);
Writeln('Значение компьютера: ',sin(x):6:6);
Readln;
End.

@Puporev · 09.01.2016, 09:02

Сообщение от trinitrotoluene

Нашёл на этом форуме решение,

Да не все что нашел можно есть. Нужно и зачатки своего мозга иметь.

Pascal

program teilor;
var x,stx,sint,e: real;
    i: integer;
begin
write('Введите x в градусах: ');
readln(x);
x:=x*pi/180;
write('Введите точность e: ');
readln(e);
if e>=abs(x) then sint:=x
else
 begin
  i:=1;
  stx:=x;
  sint:=stx;
  while abs(stx)>e do
   begin
    inc(i);
    stx:=-stx*x*x/(2*i-2)/(2*i-1);
    sint:=sint+stx;
   end;
 end;
writeln('Количество элементов в разложении = ',i);
writeln('Значение sin(',x:3:3,')= ',sint:0:6);
writeln('Значение компьютера: ',sin(x):0:6);
end.

Опции темы