Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Taras_lebdyk
1 / 1 / 0
Регистрация: 17.09.2013
Сообщений: 263
#1

Выполнить суммирование членов бесконечного ряда - Pascal ABC

06.10.2013, 13:04. Просмотров 317. Ответов 2
Метки нет (Все метки)

1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний
член ряда по абсолютной величине не будет меньше абсолютной точности
Δ=10-4...10-10 или пока не будет просуммировано заранее заданное число членов
бесконечного ряда.
2. Сравнить вычисленную сумму членов бесконечного ряда с образцовым
значением, полученным в виде константы или вычисленным по формуле.
0
Миниатюры
Выполнить суммирование членов бесконечного ряда  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2013, 13:04
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Выполнить суммирование членов бесконечного ряда (Pascal ABC):

Выполнить суммирование членов бесконечного ряда - Pascal ABC
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной...

Выполнить суммирование членов бесконечного ряда - Pascal ABC
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной...

Выполнить суммирование членов бесконечного ряда - Pascal ABC
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной...

Выполнить суммирование членов бесконечного ряда - Pascal ABC
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной...

Выполнить суммирование членов бесконечного ряда - Pascal ABC
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной...

Выполнить суммирование членов бесконечного ряда - Pascal ABC
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной...

2
Samhain
689 / 564 / 186
Регистрация: 31.03.2013
Сообщений: 1,029
06.10.2013, 14:07 #2
Taras_lebdyk,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const e=1E-10;
var s,si,x:real;
    i,n:integer;
begin
  write('n = ');readln(n);
  repeat
    write('|x|<1, x = ');readln(x);
  until abs(x)<1;
  s:=1;si:=x/2;i:=1;
  repeat
    s:=s+si;
    si:=-si*x*(2*i-1)/(2*i+2);
    inc(i);
  until (abs(si)<e)or(i=n);
  write('s = ',s:0:10,', sqrt(1+x) = ',sqrt(1+x):0:10);
  readln
end.
1
Puporev
Модератор
52824 / 40635 / 13884
Регистрация: 18.05.2008
Сообщений: 94,253
06.10.2013, 14:12 #3
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
uses crt;
var x,e,t,s:real;
    n,i:integer;
begin
repeat
write('|x|<1 x=');
read(x);
until abs(x)<1;
repeat
write('e=[10^-10..10^4] e=');
read(e);
until (e>=10e-10)and(e<=10e-4);
write('Максиальное число итераций n=');
read(n);
i:=1;
t:=x/2;
s:=1+x/2;
repeat
  i:=i+1;
  t:=-t*(2*i-3)*x/(2*i);
  s:=s+t;
until (abs(t)<e)or(i=n);
writeln('Выч.сумма=',s:0:10);
writeln('Достигнутая точность=',abs(t):0:10);
writeln('Число итераций=',i);
write('sqrt(1+x))=',sqrt(1+x):0:10);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2013, 14:12
Привет! Вот еще темы с ответами:

Выполнить суммирование членов бесконечного ряда - Pascal ABC
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной...

Выполнить суммирование членов бесконечного ряда - Pascal ABC
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной...

Выполнить суммирование членов бесконечного ряда - Pascal ABC
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной...

Выполнить суммирование членов бесконечного ряда - Pascal ABC
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной...


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

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

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