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

суммирование членов бесконечного ряда - Turbo Pascal

11.02.2014, 15:34. Просмотров 292. Ответов 1
Метки нет (Все метки)

Задание выглядит так:
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний
член ряда по абсолютной величине не будет меньше абсолютной точности
Δ=10-4...10-10 или пока не будет просуммировано заранее заданное число членов
бесконечного ряда.
2. Сравнить вычисленную сумму членов бесконечного ряда с образцовым
значением, полученным в виде константы или вычисленным по формуле.
формула:
http://www.cyberforum.ru/cgi-bin/latex.cgi?1/(1-x)=1+x+{x}^{2}+{x}^{3}+{x}^{4}+...; -1<x<+1
но, мне нужны 2 программы: чтоб первая считала по точности, а вторая по количеству( и с объяснениями, если можно, пожалуйста)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.02.2014, 15:34
Я подобрал для вас темы с готовыми решениями и ответами на вопрос суммирование членов бесконечного ряда (Turbo Pascal):

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

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

Суммирование членов бесконечного ряда
Дан пример: ar...

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

суммирование членов бесконечного ряда
Сделал прогу для случая, когда надо просуммировать заданное число членов ряда,...

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

1
Puporev
Модератор
54136 / 41769 / 28880
Регистрация: 18.05.2008
Сообщений: 98,311
11.02.2014, 15:58 #2
Лучший ответ Сообщение было отмечено 4yDoNaPaCiK как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var x,e,t,s:real;
begin
clrscr;
repeat
write('|x|<1 x=');
readln(x);
until abs(x)<1;
repeat
write('10^-10<=e<=10^-4 e=');
readln(e);
until(e>=10e-10)and(e<=10e-4);
t:=1;
s:=1;
while abs(t)>e do
 begin
  t:=t*x;
  s:=s+t
 end;
writeln('s=',s:0:10);
write('1/(1-x)=',1/(1-x):0:10);
readln
end.
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
uses crt;
var x,t,s:real;
    n,i:integer;
begin
clrscr;
repeat
write('|x|<1 x=');
readln(x);
until abs(x)<1;
repeat
write('n>0 n=');
readln(n);
until n>0;
t:=1;
s:=1;
for i:=1 to n do
 begin
  t:=t*x;
  s:=s+t
 end;
writeln('s=',s:0:10);
write('1/(1-x)=',1/(1-x):0:10);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.02.2014, 15:58
Привет! Вот еще темы с решениями:

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

Выполнить суммирование членов бесконечного ряда.
по скринам посмотрите и помогите кто может а то уже запарился я с етой...

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

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


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

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

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