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

@Tonilo · Регистрация: 24.09.2017

Студворк — интернет-сервис помощи студентам

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

$https://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.

@bormant · 24.09.2017, 15:04

На каких данных зависает?

Добавлено через 3 минуты
Кстати, а с чего вы взяли, что она зависает?
Сперва ждет ввода числа, потом считает сумму, потом выводит
Частичная сумма ряда S=
Затем ждет нажатия Enter.

@Tonilo · 24.09.2017, 15:05 **[ТС]**

Уже не зависает, наверно проблема была на http://wde.pascalabc.net. Но программа не работает вводишь числа (и почему то их два, хотя мне нужно только одно ввести), и результат она не выдает.

@bormant · 24.09.2017, 15:48

Сообщение от Tonilo

вводишь числа (и почему то их два, хотя мне нужно только одно ввести)

вводится только первое число, вместо второго достаточно нажать Enter ничего не вводя.

Сообщение от Tonilo

результат она не выдает

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

Добавлено через 1 минуту
Можно исправить так:

Pascal
13
  Writeln('Частичная сумма ряда S=',s);

@Tonilo · 24.09.2017, 15:54 **[ТС]**

Нашел такую программу

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?

@bormant · 24.09.2017, 18:03

Сообщение от Tonilo

Что значат в 3-ей с конца строке в "sum:6:5" цифры 6 и 5?

5 -- знаков после запятой, 6 -- ширина поля вывода (на самом деле будет больше -- 1 поз. на десятичную точку, 1 поз. на знак, на целую часть по количеству знакомест).

@Tonilo · 24.09.2017, 18:28 **[ТС]**

А я и смотрю, и без этих цифр все работает. Спасибо за помощь.

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,158 Записей в блоге: 1
	24.09.2017, 15:04
	На каких данных зависает? Добавлено через 3 минуты Кстати, а с чего вы взяли, что она зависает? Сперва ждет ввода числа, потом считает сумму, потом выводит Частичная сумма ряда S= Затем ждет нажатия Enter. 0

@Tonilo 0 / 0 / 0 Регистрация: 24.09.2017 Сообщений: 46
	24.09.2017, 15:05 [ТС]
	Уже не зависает, наверно проблема была на http://wde.pascalabc.net. Но программа не работает вводишь числа (и почему то их два, хотя мне нужно только одно ввести), и результат она не выдает. 0

@Tonilo 0 / 0 / 0 Регистрация: 24.09.2017 Сообщений: 46
	24.09.2017, 18:28 [ТС]
	А я и смотрю, и без этих цифр все работает. Спасибо за помощь. 0