Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Puporev
Модератор
54732 / 42133 / 29091
Регистрация: 18.05.2008
Сообщений: 99,455
19.10.2017, 19:12 0

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

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

Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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

Добавлено через 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.10.2017, 19:12
Готовые ответы и решения:

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

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

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

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

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

4
Другие темы раздела
Free Pascal Перевод с C++ на free pacal http://www.cyberforum.ru/free-pascal/thread2106951.html
Не могли бы ли вы перевести программу на free pascal))) Очень нужно #include <cstdio> #include <algorithm> using namespace std; const int MAXN = 8; const int INF = (int)1e+9;
Free Pascal Массив через процедуры Дана квадратная вещественная матрица размерности n. Найти количество отрицательных элементов, стоящих: выше главной диагонали; ниже главной диагонали. (Код прикреплен готовый, рабочий, его надо... http://www.cyberforum.ru/free-pascal/thread2084493.html
Free Pascal Найти значения выражений
Помогите) желательно с подробностями. a=\frac{1+\cos(y-2)+x^2y}{x^4/2+\sin ^2z}\\\\b=\ln\left|x^5-yz^3 \right|-\operatorname{tg}(\cos z)
Free Pascal Нахождение суммы бесконечно убывающего ряда
Нахождение суммы бесконечно убывающего ряда. Написать программу суммирования ряда, приведенного в таблице, при одном и том же значении аргумента и 2-х значениях точности, отличающихся друг от друга...
Free Pascal Найти сумму ряда с заданной точностью http://www.cyberforum.ru/free-pascal/thread2083994.html
Вычислить формулу по заданию №1 с точностью до 0.001, определив количество проходов n. Вот формула из 1 задания \sum_{i=1}^{n}\frac{1+i}{i!} Код программы, который у меня получился...
Free Pascal Составить алгоритм решения задачи в виде программы Помогите) желательно с подробностями. y=\sum_{k=1}^{20}k^3\left(\sum_{n=1}^{15}(k-n)^2 \right) подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru