Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Tonilo
0 / 0 / 0
Регистрация: 24.09.2017
Сообщений: 41
1

Нужна программа поиска частичной суммы рядов

24.09.2017, 14:41. Просмотров 210. Ответов 6
Метки нет (Все метки)

Но программа зависает, подскажите в чем ошибка.

http://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
\sum_{n=1}^{\infty}\frac{1}{n(2n+1)}<br />

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
a, S: real;
i, N:integer;
Begin 
write('Введите число членов суммы N=');
readln(N);
S:= 0;
For i:= 1 to N do
begin 
a := 1/(N*(2*N+1));
S:= S+a
end;
Writeln('Частичная сумма ряда S='); 
ReadLn 
End.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.09.2017, 14:41
Ответы с готовыми решениями:

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

Вычисление частичной суммы ряда (?смысл задания?)
Всем привет! Мне необходимо написать программу по заданию, но я не понимаю её сути... Что...

Вычислить суммы рядов
Прошу помочь с заданием!!! Дано натуральное число n, вычислить: a)\ \ \frac{1}{\sin...

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

Найти приближенно суммы и произведения бесконечных рядов
Найти приближенно суммы и произведения бесконечных рядов. 0,25*10^(-4)-точность...

6
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4148 / 2742 / 2172
Регистрация: 22.11.2013
Сообщений: 7,664
24.09.2017, 15:04 2
На каких данных зависает?

Добавлено через 3 минуты
Кстати, а с чего вы взяли, что она зависает?
Сперва ждет ввода числа, потом считает сумму, потом выводит
Частичная сумма ряда S=
Затем ждет нажатия Enter.
0
Tonilo
0 / 0 / 0
Регистрация: 24.09.2017
Сообщений: 41
24.09.2017, 15:05  [ТС] 3
Уже не зависает, наверно проблема была на http://wde.pascalabc.net. Но программа не работает вводишь числа (и почему то их два, хотя мне нужно только одно ввести), и результат она не выдает.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4148 / 2742 / 2172
Регистрация: 22.11.2013
Сообщений: 7,664
24.09.2017, 15:48 4
Цитата Сообщение от Tonilo Посмотреть сообщение
вводишь числа (и почему то их два, хотя мне нужно только одно ввести)
вводится только первое число, вместо второго достаточно нажать Enter ничего не вводя.
Цитата Сообщение от Tonilo Посмотреть сообщение
результат она не выдает
и не должна. В тексте программы не написано выводить результат.

Добавлено через 1 минуту
Можно исправить так:
Pascal
13
  Writeln('Частичная сумма ряда S=',s);
0
Tonilo
0 / 0 / 0
Регистрация: 24.09.2017
Сообщений: 41
24.09.2017, 15:54  [ТС] 5
Нашел такую программу
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
    n, i: integer;
    sum: real;
begin
    write ('n = '); readln (n);
    sum := 0;
    for i := 1 to n do
        sum := sum + 1/(i*(2*i+1));
    writeln (sum:6:5);
readln
end.
Вроде работает. Что значат в 3-ей с конца строке в "sum:6:5" цифры 6 и 5?
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4148 / 2742 / 2172
Регистрация: 22.11.2013
Сообщений: 7,664
24.09.2017, 18:03 6
Цитата Сообщение от Tonilo Посмотреть сообщение
Что значат в 3-ей с конца строке в "sum:6:5" цифры 6 и 5?
5 -- знаков после запятой, 6 -- ширина поля вывода (на самом деле будет больше -- 1 поз. на десятичную точку, 1 поз. на знак, на целую часть по количеству знакомест).
0
Tonilo
0 / 0 / 0
Регистрация: 24.09.2017
Сообщений: 41
24.09.2017, 18:28  [ТС] 7
А я и смотрю, и без этих цифр все работает. Спасибо за помощь.
0
24.09.2017, 18:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.09.2017, 18:28

Составить программу вычисления суммы некоторых числовых рядов
Здравствуйте! Помогите, пожалуйста, составить программу. Составить программу вычисления суммы...

Процедура поиска модуля суммы отрицательных элементов матрицы и суммы положительных
Написать две процедуры 1) поиск модуля суммы отрицательных элементов матрицы 2) поиск суммы...

Программа подсчета числа неуспевающих и программа поиска владельца автомобиля...
Помогите пожалуйста решить 2 задачи: Составьте программу подсчета числа неуспевающих по...


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

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

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