Вычислить значение бесконечной суммы

@Gazovik771 · Регистрация: 28.12.2012

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

Нужно сделать в паскале.

Задание состоит из двух частей:
1) Ввести ОДНО значение х (например, х=1) и вычислить значение бесконечной суммы S(x) по формуле из первого столбца с точностью $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon$ =0.001 (т.е., вычислять сумму до тех пор, пока очередное СЛАГАЕМОЕ НЕ БУДЕТ по модулю меньше точности $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon$ =0.001. Затем, используя стандартные функции Паскаля, вычислить соответствующее значение функции из столбца y(x) и оба результата вывести на экран.
2*) Для x, изменяющегося в интервале от x0 до xk с шагом h, вычислить значения бесконечной суммы S(x) с точностью $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon$ =0.00001 и функции y(x). (например x0=0.1, xk=1, h=0.1) При этом вычисление суммы S(x) оформить процедурой (функцией).

@CodeR · 29.12.2012, 08:54

1)

Pascal

Const e=0.001;
Var x,a,s,pr,f,i:real;
Begin
    write('X = ');readln(x);
    pr:=1;f:=1;i:=0;
    Repeat
     a:=pr/f;
     s:=s+a;
     i:=i+1;
     pr:=pr*x;
     f:=f*i;
    Until abs(a)<e;
    writeln('S(x) = ',s:0:5);
    writeln('exp(x)  = ',exp(x):0:5);
    readln;
end.

Добавлено через 23 секунды
Читайте уже правила!Одна тема один вопрос!

@Symon · 06.01.2013, 18:40

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

pr:=1;f:=1;i:=0; Repeat a:=pr/f; s:=s+a; i:=i+1; pr:=pr*x; f:=f*i; Until abs(a)<e;

Приведенный кусок не без греха. 1. Значение s первоначально не определено.
2. Вычисление факториала (а) нецелесообразно: при больших значениях i все это вылетит за пределы максимального машинного числа. Нужно найти и использовать зависимость следующего слагаемого от предыдущего.

@Gazovik771 0 / 0 / 0 Регистрация: 28.12.2012 Сообщений: 2
		1
	Вычислить значение бесконечной суммы 28.12.2012, 18:06. Показов 2769. Ответов 2 Метки нет (Все метки) Нужно сделать в паскале. Задание состоит из двух частей: 1) Ввести ОДНО значение х (например, х=1) и вычислить значение бесконечной суммы S(x) по формуле из первого столбца с точностью $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon$ =0.001 (т.е., вычислять сумму до тех пор, пока очередное СЛАГАЕМОЕ НЕ БУДЕТ по модулю меньше точности $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon$ =0.001. Затем, используя стандартные функции Паскаля, вычислить соответствующее значение функции из столбца y(x) и оба результата вывести на экран. 2*) Для x, изменяющегося в интервале от x0 до xk с шагом h, вычислить значения бесконечной суммы S(x) с точностью $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon$ =0.00001 и функции y(x). (например x0=0.1, xk=1, h=0.1) При этом вычисление суммы S(x) оформить процедурой (функцией). Миниатюры 0

@Symon $Эксперт по математике/физике$ 2615 / 2229 / 684 Регистрация: 29.09.2012 Сообщений: 4,578 Записей в блоге: 13
	06.01.2013, 18:40	3
	Сообщение от CodeR pr:=1;f:=1;i:=0; Repeat a:=pr/f; s:=s+a; i:=i+1; pr:=prx; f:=fi; Until abs(a)<e; Приведенный кусок не без греха. 1. Значение s первоначально не определено. 2. Вычисление факториала (а) нецелесообразно: при больших значениях i все это вылетит за пределы максимального машинного числа. Нужно найти и использовать зависимость следующего слагаемого от предыдущего. 0

Опции темы

Вычислить значение бесконечной суммы

Решение