|
program sh_teilor;
var x,stx,sh,e: real;
i,fakt: integer;
Begin
Write('Введите x: ');
Readln(x);
Write('Введите точность e: ');
Readln(e);
stx:=x; {x в степени}
fakt:=1; {значение факториала в знаменателе}
sh:=0; {первый элемент в разложении}
i:=1; {счётчик}
while stx/fakt>=e do begin {до тех пор, пока элемент в разложении не меньше точности}
sh:=sh+stx/fakt;
inc(i,2); {увеличение i на 2}
stx:=stx*x*x;
fakt:=fakt*(i-1)*i;
end;
Writeln('Количество элементов в разложении = ',i div 2);
Writeln('Значение sh(',x:6:6,')= ',sh:6:6);
Readln;
End.
|
|