Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.69/16: Рейтинг темы: голосов - 16, средняя оценка - 4.69
Bl0ndinka
20 / 20 / 0
Регистрация: 25.04.2010
Сообщений: 86
#1

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

05.05.2011, 21:27. Просмотров 2791. Ответов 16
Метки нет (Все метки)

Вычислить значение суммы членов бесконечного ряда с заданной точностью. На печать вывести значение суммы и число членов ряда, вошедших в сумму.
точность вычисления: 0.0001

S=4*(1-1/3+1/5-1/7+1/9-...+(-1)^n*1/(2*n-1)+...)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program p62;
uses crt;
const EXP=0.0001;
var N:integer;
S,a:real;
begin
clrscr;
S:=0;
N:=1;
while ABS(A) >EPS do
begin
S:=S+a;
N:=N+1;
A:=4*(-1)*1/(2*n-1);
end;
writeln ('summa ryda ravna',S:8:4);
writeln('chislo chlenov ryda ravno',N:4);
end.
Подскажите пожалуйста как исправить чтобы работало?

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.05.2011, 21:27
Ответы с готовыми решениями:

Вычислить значение суммы членов бесконечного ряда с заданной точностью
Помогите составить программу! 3адание к работе: Составить программу,...

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

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

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

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

16
ValeryLaptev
Эксперт С++
1050 / 829 / 60
Регистрация: 30.04.2011
Сообщений: 1,659
05.05.2011, 21:43 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program p62;
uses crt;
const EXP=0.0001;
var N:integer;
S,a:real;
begin
clrscr;
S:=0;
N:=1;
while ABS(A) >EPS do
begin
S:=S+a;                         -- чему равно а - ????
N:=N+1;
A:=4*(-1)*1/(2*n-1);      -- на 4 умножать надо ОДИН РАЗ ПОСЛЕ ЦИКЛА --
end;
writeln ('summa ryda ravna',S:8:4);
writeln('chislo chlenov ryda ravno',N:4);
end.
1
Bl0ndinka
20 / 20 / 0
Регистрация: 25.04.2010
Сообщений: 86
05.05.2011, 21:52  [ТС] #3
А я незнаю чему равно а! Может можно как то без а?
0
ValeryLaptev
Эксперт С++
1050 / 829 / 60
Регистрация: 30.04.2011
Сообщений: 1,659
05.05.2011, 22:13 #4
Цитата Сообщение от Bl0ndinka Посмотреть сообщение
А я незнаю чему равно а! Может можно как то без а?
Не... Надо составить ПЛАН!
1. Сначала вычисляем а;
2. Потом прибавляем а к S
3. Потом увеличили N.
И это все в цикле. Но надо еще эпсилон прикрутить.
А это прикручивается в условии цикла:
если разница между предыдущим значением S и только что вычисленным больше эпсилон, то цикл продолжается. А если меньше, то цикл заканчивается
1
Bl0ndinka
20 / 20 / 0
Регистрация: 25.04.2010
Сообщений: 86
05.05.2011, 22:25  [ТС] #5
Вы так все подробно обьяснили, но я как то не поняла почему низя без а. Но вот я попробовала удалить все строки с а и вычислилось в ответе! Только я незнаю как проверить правильно или нет....
0
ValeryLaptev
Эксперт С++
1050 / 829 / 60
Регистрация: 30.04.2011
Сообщений: 1,659
05.05.2011, 22:44 #6
Цитата Сообщение от Bl0ndinka Посмотреть сообщение
Вы так все подробно обьяснили, но я как то не поняла почему низя без а. Но вот я попробовала удалить все строки с а и вычислилось в ответе! Только я незнаю как проверить правильно или нет....
Текст - в студию!
1
Bl0ndinka
20 / 20 / 0
Регистрация: 25.04.2010
Сообщений: 86
05.05.2011, 22:49  [ТС] #7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program pr;
uses crt;
const EPS=0.0001;
var n:integer;
s:real;
begin
clrscr;
s:=0;
n:=1;
 
begin
n:=n+1;
s:=4*(-1)*1/(2*n-1);
end;
writeln('symma ryada ravna',s:8:4);
writeln('chislo chlenov ryada ravno',n:4);
readkey
end.
Вот так от!
0
ValeryLaptev
Эксперт С++
1050 / 829 / 60
Регистрация: 30.04.2011
Сообщений: 1,659
05.05.2011, 23:29 #8
Программа работает, но неправильно!
Она ОДИН РАЗ вычисляет s - и заканчивает работу. Никакой суммы не вычисляется...
1
Bl0ndinka
20 / 20 / 0
Регистрация: 25.04.2010
Сообщений: 86
05.05.2011, 23:36  [ТС] #9
А как тогда? Я уже вообще запуталася!
0
Hidalgo08
Идеи становятся силой...
121 / 120 / 64
Регистрация: 08.12.2009
Сообщений: 445
06.05.2011, 00:08 #10
как я понимаю, не знаю правильно или нет, у тебя в условии ошибка, потому что формула твоя похожа на Ряд Тейлора, по арктангесу :
вот решение ее:
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
uses 
  crt;
var 
  x, e, s, t, y : real;
  i : integer;
begin
clrscr;
  repeat
    write('|x| < 1  x = ');
    readln(x);
  until abs(x)<1;
  
  e := 0.0001;
  s := x;
  t := x;
  i := 0;
  while abs(t) > e do
   begin
     i := i + 1;
     t := -t * x * x;
     s := s + t / (2 * i + 1);
   end;
   
  writeln('S = ', s:0:6,'  i = ',i);
  y := arctan(x);
  write('Arcctg(',x:0:2,')= ', y:0:6);
readln
end.
1
Bl0ndinka
20 / 20 / 0
Регистрация: 25.04.2010
Сообщений: 86
07.05.2011, 18:00  [ТС] #11
НЕ работает все равно! Как ее сделать!
0
Hidalgo08
Идеи становятся силой...
121 / 120 / 64
Регистрация: 08.12.2009
Сообщений: 445
07.05.2011, 18:02 #12
Цитата Сообщение от Bl0ndinka Посмотреть сообщение
НЕ работает все равно! Как ее сделать!
как и что не работает то? вводила значение Х и потом все считает, пробуй еще раз
1
Bl0ndinka
20 / 20 / 0
Регистрация: 25.04.2010
Сообщений: 86
07.05.2011, 18:15  [ТС] #13
Не считает оно! Просто все время идет ввести х ввести х ввести х ввести х.....
0
Hidalgo08
Идеи становятся силой...
121 / 120 / 64
Регистрация: 08.12.2009
Сообщений: 445
07.05.2011, 18:16 #14
Цитата Сообщение от Bl0ndinka Посмотреть сообщение
Не считает оно! Просто все время идет ввести х ввести х ввести х ввести х.....
ну так тебе и надо ввести Х что бы был результат, и вести надо как там написано меньше 1 , введи 0.025 и увидишь что будет у тебя
1
Bl0ndinka
20 / 20 / 0
Регистрация: 25.04.2010
Сообщений: 86
07.05.2011, 18:21  [ТС] #15
Теперь работает! Извиняюсь за мою глупость!
0
Hidalgo08
Идеи становятся силой...
121 / 120 / 64
Регистрация: 08.12.2009
Сообщений: 445
07.05.2011, 18:23 #16
Цитата Сообщение от Bl0ndinka Посмотреть сообщение
Теперь работает! Извиняюсь за мою глупость!
да ладно! это не глупость
1
JanaK
0 / 0 / 0
Регистрация: 03.02.2016
Сообщений: 1
03.02.2016, 17:59 #17
Подскажите, пожалуйста, что означает "y:0:6" в конце? Зачем ставить 0 и 6?
0
03.02.2016, 17:59
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.02.2016, 17:59

Вычислить значение суммы бесконечного ряда
program lub33; var f,e,c,s,k,r,q:real; i,t,l,j,n,m:integer; begin e:=1e-4;...

Вычислить значение суммы бесконечного ряда с заданной точностью
Народ! Помогите плиз с программой: Задание:Вычислить значение суммы...

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


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

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

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