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

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

19.10.2017, 19:07. Просмотров 168. Ответов 4
Метки нет (Все метки)

Вычислить приближенное значение суммы бесконечного ряда , до тех пор , пока очередное слагаемое не станет <E (наименьшее число).Для решения данной задачи воспользуйтесь операторами Repeat или While , найти формулу i-члена ряда (последовательности), проверить его на условие <E

вот пример
1-(1/3)+(1/5)-(1/7)+...
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.10.2017, 19:07
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Алгоритм. Вычислить приближенное значение суммы бесконечного ряда (Free Pascal):

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

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

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

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

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

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

4
Puporev
Модератор
54136 / 41769 / 28880
Регистрация: 18.05.2008
Сообщений: 98,311
19.10.2017, 19:12 #2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

А здесь что еще не так?
http://www.cyberforum.ru/pascal/thread2106940.html

Добавлено через 2 минуты
Трудно убрать 1 цифру и дописать 1 слово?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var i:integer;
    e,s:real;
begin
clrscr;
i:=1;
s:=1;
e:=0.0001;
while abs(1/(2*i-1))>e do
 begin
  i:=i+1;
  if odd(i) then  s:=s+1/(2*i-1)
  else s:=s-1/(2*i-1)
 end;
write('s=',s:0:5);
readln
end.
0
pascal9812
0 / 0 / 0
Регистрация: 11.10.2017
Сообщений: 18
19.10.2017, 19:32  [ТС] #3
спасибо большое!

Добавлено через 1 минуту
просто в первом вы не указали же во первых: clrscr после begin, и сверху перед var , uses crt;
0
Puporev
Модератор
54136 / 41769 / 28880
Регистрация: 18.05.2008
Сообщений: 98,311
19.10.2017, 19:37 #4
А это совсем не обязательно, так для красоты.
0
pascal9812
19.10.2017, 19:49  [ТС]     Алгоритм. Вычислить приближенное значение суммы бесконечного ряда
  #5

Не по теме:

http://www.cyberforum.ru/pascal/thread2106939.html, мне скинули тему а там вообще с ошибками. можете посмотреть как это сделать?

0
19.10.2017, 19:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.10.2017, 19:49
Привет! Вот еще темы с ответами:

Вычислить приближенное значение бесконечной суммы с точностю до е=0.0001
Задание Помогите, пожалуйста. С коментами если можно. Второй день мучаюсь!

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

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

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


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

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

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