Помощь - Поиск - Пользователи - Календарь
Полная версия: Ряд Тейлора
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
ve7er
Не врубаю задачу:

Вычислить и вывести на экран функцию, заданную с по-мощью ряда Тейлора, на интервале от х1 до х2 с шагом dx с точностью e. е=0,0001
натурал логарифм в числ х+1 в знам х-1 = 2 умноженное на сумму
1/(2n+1)*Х( в степени 2n+1) = 2*(1/x+1/3x(3ст)+1/5х(5ст)+....)

|x|>1

Если моно, то текст проги киньте, а то времени совсем нету....
ve7er
Вот, что то получается:

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;

var n:integer;
y,z,e,x1,x2,dx:real;
begin
writeln('vvedite x1,x2, dx');
readln(x1,x2,dx);
if abs(x1)<=1 then writeln('Error') else
e:=0.0001;
repeat
n:=0;
z:=0;
y:=ln((x1+1)/(x1-1));
while abs(y-z)>e do begin
z:=z+1/((2*n+1)*exp((2*n-1)*ln(x1)));
n:=n+1;
end;
z:=z*2;
writeln;
writeln('pri x=',x1:2:3,'y=',y:2:3,'z=',z:2:3);
x1:=x1+dx;
until


x1>=x2;
readln;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.