Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
СерЕкНик
0 / 0 / 1
Регистрация: 28.09.2017
Сообщений: 15
#1

Вычислить Ln(x+1) разложением в ряд - Pascal ABC

19.03.2018, 19:21. Просмотров 205. Ответов 2
Метки нет (Все метки)

Для ln(x+1)
1) Вычислить значение функции, заданной с помощью ряда Тейлора, для некоторого х с точностью e. Проверить правильность алгоритма, вычислив значение функции по формуле.
2)Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от хнач до хкон с шагом dx с точностью e. Таблицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать значение аргумента, значение функции, вычисленной по формуле и количество просуммированных членов ряда.

Вот
0
Миниатюры
Вычислить Ln(x+1) разложением в ряд  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.03.2018, 19:21
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить Ln(x+1) разложением в ряд (Pascal ABC):

Вычисление функции разложением ее в ряд. Не понимаю алгоритм
Здравствуйте. У меня есть задание, похожее (если не идентичное) на задание из...

Составить программу для вычисления значения функции 1/sqrt(1+x) с разложением функции в степенной ряд
Собственно, доброго времени суток. Задание: Составить программу для...

Вычислить разложением в ряд Cos(x)
Вычислить разложением в ряд Cos(x) вот \cos...

Вычислить функцию разложением в ряд и проверить по формуле
Вычислить функцию разложением в ряд и проверить по формуле....

Вычисление Ln(1+x) разложением в ряд
Составить программу на языке паскаль для вычисления функции Ln(1+x) c...

Десять раз генерировать ряд случайных чисел от 0 до 99 . Каждый ряд также должен иметь произвольную длину . В каждом ряд
Десять раз генерировать ряд случайных чисел от 0 до 99 . Каждый ряд также...

2
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
19.03.2018, 19:58 #2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var x,e,t,s:real;
    n:integer;
begin
repeat
write('-1<x<=1 x=');
readln(x);
until (x>-1)and(x<=1);
e:=0.0001;
n:=1;
t:=x;
s:=t;
while abs(t)/n >e do
 begin
  n:=n+1;
  t:=-t*x;
  s:=s+t/n;
 end;
writeln('s=',s:0:4);
write('ln(',x:0:2,'+1)=',ln(x+1):0:4)
end.
Добавлено через 7 минут
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
const e=0.0001;
function f(x:real;var n:integer):real;
var t,s:real;
begin
n:=1;
t:=x;
s:=t;
while abs(t)/n >e do
 begin
  n:=n+1;
  t:=-t*x;
  s:=s+t/n;
 end;
f:=s;
end;
var xn,xk,x,s,dx:real;
    n:integer;
begin
repeat
write('Введите начало интервала (-1..1) xn=');
readln(xn);
until abs(xn)<1;
repeat
write('Введите конец интервала, больше ',xn:0:1,' <=1 xk=');
readln(xk);
until (xk>xn)and(xk<=1);
repeat
write('Введите шаг табуляции, меньше ',xk-xn:0:1,' dx=');
readln(dx);
until dx<xk-xn;
x:=xn;
writeln('   Табулирование функции F(x)=ln((1+x)');
writeln('представленной разложением в степенной ряд');
writeln('   на интервале ',xn:0:1,'..',xk:0:1,' с шагом ',dx:0:1);
writeln;
writeln('        -------------------------');
writeln('        |   X   |    S    |  n  | ');
writeln('        -------------------------');
while x<=xk+dx/2 do
 begin
  s:=f(x,n);
  writeln('        |',x:6:2,' |',s:8:4,' |',n:5,'|');
  x:=x+dx;
 end;
writeln('        -------------------------');
//проверка последнего члена по аналитической формуле
writeln('x-dx=',x-dx:0:2);
writeln('ln((1+x))=',ln(1+x-dx):0:4);
end.
1
СерЕкНик
0 / 0 / 1
Регистрация: 28.09.2017
Сообщений: 15
20.03.2018, 09:24  [ТС] #3
Огромное спасибо)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.03.2018, 09:24
Привет! Вот еще темы с решениями:

Вычислить ряд
Нужно составить процедуру для вычисления данного ряда S = 2 + (3+5) + (4+7+10)...

Вычислить ряд: а1 +1!, А2 +2!, ., Ах + х!
помогите пожалуста програму написать) Дано натуральное n и действительные а1,...

Вычислить ряд элементов
Вычислить ряд элементов, содержащих значения ряда для n от начального...

Вычислить ряд с вводимой точностью
\sum^{\infty}_{n=0} \frac{(-1)^n}{(2n+1)!} x^{2n+1} пожалуйста очень нужно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru