Найти ошибку

@Anna96 · Регистрация: 13.12.2015

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

При некоторых заданных x, N, E, определяемых вводом, вычислите сумму N слагаемых заданного вида,
затем сумму тех слагаемых, которые по абсолютной величине больше E.
Для второго случая выполните суммирование для двух значений E, отличающихся на порядок,
и при этом определите количество слагаемых, включенных в сумму.
Сравните результаты с точным значением функции, для которой данная сумма определяет приближенное значение при x, лежащем в интервале(-R,R) ln((1+x)/( 1-x))=2(x+ x^3/3 + x^5/5 + x^7/7) R=1

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
var 
a, b, x, e, s: real; 
n, i, j: integer; 
 
begin 
 
write('n='); 
readln(n); 
write('x='); 
readln(x); 
writeln('Точное значение=', (ln((1+x)/(1-x)))); 
S := 0; 
i := 1; 
a := sqr(x); 
b := 1; 
while i <= n do 
begin 
b := b*x*a/(2*i-1); 
S := S + 2*b; 
i := i + 1; 
end; 
Writeln('Сумма n слагаемых=', S); 
Writeln('Введите e'); 
readln(e); 
for := 1 to 2 do 
begin 
S := 1; 
i := 1; 
b := 1; 
while abs(b) > e do 
begin 
b := b * a / (2 * i+ 1);; 
S := S + 2*b; 
i := i + 1; 
end; 
Writeln('Кол-во слагаемых=', i); 
Writeln('S=', S); 
e := e * 0.1; 
end; 
end.

@Azazel-San · 14.12.2015, 19:53

Что у вас не получается?

@Anna96 · 14.12.2015, 20:10 **[ТС]**

видимо в формуле ошибка , суммы от точного значения сильно отличаются

@Puporev · 14.12.2015, 20:41

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
var a, b, x, e, s: real;
    n, i, j: integer;
begin
write('n=');
readln(n);
repeat
write('|x|<1 x=');
readln(x);
until abs(x)<1;
writeln('Точное значение=', (ln((1+x)/(1-x))):0:5);
S := 0;
i := 1;
a:=sqr(x);
b := x;
while i <= n do
 begin
  S := S + 2*b/(2*i-1);
  b := b*a;
  i := i + 1;
 end;
Writeln('Сумма ',n,' слагаемых=', S:0:5);
e:=0.0001;
for j:= 1 to 2 do
  begin
   S := 0;
   i := 1;
   b := x;
   while abs(b)/(2*i-1)> e do
    begin
     S := S + 2*b/(2*i-1);
     b := b * a;
     i := i + 1;
    end;
   Writeln('e=',e:0:5);
   Writeln('Кол-во слагаемых=', i);
   Writeln('S=', S:0:5);
   e := e * 0.1;
 end;
end.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Azazel-San Mental handicap 1246 / 624 / 171 Регистрация: 24.11.2015 Сообщений: 2,429
	14.12.2015, 19:53
	Что у вас не получается? 0

@Anna96 0 / 0 / 0 Регистрация: 13.12.2015 Сообщений: 12
	14.12.2015, 20:10 [ТС]
	видимо в формуле ошибка , суммы от точного значения сильно отличаются 0