Написать программу с рядом Тейлора

@stinfrai · Регистрация: 06.10.2013

Составить и отладить программу вычисления значения функции с помощью бесконечного ряда Тейлора с точностью заданного ε по формуле:

Новичок · 06.10.2013, 22:35

Pascal

var i:Integer;
s,p,f,e,x,a:Real;
begin
Write('e=');
Readln(e);
Write('x=');
Readln(x);
i:=0;
a:=0;
s:=0;
f:=1;
p:=-1/x;
i:=0;
repeat
p:=-p*x;
if i<>0 then
f:=f*i;
a:=p/f;
s:=s+a;
until abs(a)<e;
Writeln('s=',s:0:2);
Readln;
end.

Что у меня не так?Подскажите пожалуйста я с вычислением ряда с заданной точностью не дружу.

Добавлено через 12 секунд
Выдает Runtime Error.

@Samhain · 06.10.2013, 23:11

Новичок, Вы i нигде не увеличиваете. Следовательно f не изменяется, a всегда равно 1. Вот моё решение

@stinfrai · 06.10.2013, 23:26 **[ТС]**

Samhain, простите ,а можно решение под мою задачу о.о . Заранее благодарен

@Samhain · 06.10.2013, 23:32

stinfrai,

Pascal

var s,si,x,e:real;
    i:integer;
begin
  write('x = ');readln(x);
  write('e = ');readln(e);
  s:=1;si:=1;i:=1;
  repeat
    si:=-x*si/i;
    inc(i);
    s:=s+si;
  until (abs(si)<e);
  write('s = ',s:0:10,', проверка e = ',exp(-x):0:10);
  readln
end.

@stinfrai · 07.10.2013, 00:26 **[ТС]**

Samhain, СПасибо!

Новичок · 07.10.2013, 00:29

Samhain, ваш вариант и короче и правильней.Еще раз спасибо.

@stinfrai 0 / 0 / 0 Регистрация: 06.10.2013 Сообщений: 38
		1
	Написать программу с рядом Тейлора 06.10.2013, 21:31. Просмотров 751. Ответов 6 Метки нет (Все метки) Составить и отладить программу вычисления значения функции с помощью бесконечного ряда Тейлора с точностью заданного ε по формуле: 0 Миниатюры

@Samhain 693 / 567 / 414 Регистрация: 31.03.2013 Сообщений: 1,029
	06.10.2013, 23:11	3
	Новичок, Вы i нигде не увеличиваете. Следовательно f не изменяется, a всегда равно 1. Вот моё решение 1

@stinfrai 0 / 0 / 0 Регистрация: 06.10.2013 Сообщений: 38
	06.10.2013, 23:26 [ТС]	4
	Samhain, простите ,а можно решение под мою задачу о.о . Заранее благодарен 0

@stinfrai 0 / 0 / 0 Регистрация: 06.10.2013 Сообщений: 38
	07.10.2013, 00:26 [ТС]	6
	Samhain, СПасибо! 0

Новичок Модератор 1600 / 1060 / 480 Регистрация: 17.07.2012 Сообщений: 5,245
	07.10.2013, 00:29	7
	Samhain, ваш вариант и короче и правильней.Еще раз спасибо. 0

Опции темы