Циклы: вычислить сумму ряда n/(n+1)^2

@Jora213 · Регистрация: 05.02.2016

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

Дано натурально число n. Написать программу вычисления значения выражения: $https://www.cyberforum.ru/cgi-bin/latex.cgi?1/{2}^{2}+2/{3}^{2}+...+n/{(n+1)}^{2}$

@RostorLuxor · 05.02.2016, 16:47

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var N:Integer;
var I1:Integer;
var F1:Currency;
 
begin
ReadLn(N);
F1 := 0;
for I1 := 1 to N do
begin
F1 := F1+(I1/((I1+1)*(I1+1)));
end;
WriteLn(FloatToStr(F1));
ReadLn(I1);
end.

@DummyGirl · 05.02.2016, 16:49

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

var F1:Currency;

так что это? Ты так и не ответил

@RostorLuxor · 05.02.2016, 16:52

https://www.yandex.ru/search/?... id=1882610

@DummyGirl · 05.02.2016, 16:53

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

var F1:Currency;

Мы в pascal парень.

@Jora213 · 05.02.2016, 16:56 **[ТС]**

поменял на real и закрыл последний begin, спасибо

@RostorLuxor · 05.02.2016, 16:58

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

Мы в pascal парень.

Одно от другого не сильно отличается, но если ты настаиваешь:
https://www.yandex.ru/yandsear... 54680608.1

Добавлено через 1 минуту

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

закрыл последний begin

Всмысле?

@Jora213 · 05.02.2016, 17:03 **[ТС]**

помогли бы еще эту сделать Циклы: найти среднее значение нечетных положительных чисел, кратных 5

@RostorLuxor · 05.02.2016, 17:11

Попробую.

@APALoff · 05.02.2016, 17:11

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

Одно от другого не сильно отличается, но если ты настаиваешь:
https://www.yandex.ru/yandsear... 54680608.1

Вы в этом уверены, что не сильно отличается?
Вы бы лучше вместо ссылок на поисковики с ключевыми фразами (а это только показывает, что Вам пофиг и Вы откровенно "посылаете" вопрошающего), давали бы выдержку из описания типа данных требуемого компилятора - в данном случае PascalABC!

@RostorLuxor · 05.02.2016, 17:22

APALoff, я занят. Цель этой темы - помочь топикстартеру. Если DummyGirl'у слишком нужно - то найдёт.

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

Вам пофиг

Мне не пофиг, я занят

@APALoff · 05.02.2016, 17:41

Ага, "вот Вам решение и мне не важно, что оно у Вас не будет работать - я занят - разбирайтесь сами".
Если Вы так заняты, то и не надо пытаться оказывать "медвежью услугу".

@RostorLuxor · 05.02.2016, 17:53

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

не будет работать

А оно не работает!?

Не по теме:

Чего-то не любят меня в разделе Pascal'я :(

@APALoff · 05.02.2016, 18:29

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

А оно не работает!?

А Вы сами проверяли? Оно работает в PascalABC?

Добавлено через 29 секунд

Не по теме:

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

Чего-то не любят меня в разделе Pascal'я

Потому что делаете тяп-ляп...

@RostorLuxor · 05.02.2016, 18:55

Если топикстартер доволен - значит всё работает.
Если я мешаю в разделе Pascal'я - могу уйти.

@Cyborg Drone · 05.02.2016, 23:36

Не по теме:

RostorLuxor, рекомендую Вам перечитать правила форума:

3. 3. Не отсылайте других пользователей в поиск и избегайте ссылок на поисковые системы (Google, Yandex и др.). Самостоятельно найдите ответ на вопрос и разместите его на форуме.

5. 22. Запрещено намеренно вводить других пользователей форума в заблуждение.

Я не уверен, конечно, что Вы намеренно ввели пользователя в заблуждение, но - мы в ветке Pascal ABC, поэтому нужно было указать, что программа написана на другом диалекте паскаля. В Pascal ABC нет типа данных currency.

Насчёт того, что ТС доволен. Если доволен - я, конечно, рад за него. Но это не столь важно, Вы помогаете не только ТСу, а вообще всем, кто найдёт Ваш ответ. Может быть, через несколько лет. Поскольку здесь темы не закрываются и не удаляются.

Пока - устное замечание.

@RostorLuxor · 06.02.2016, 07:54

Не по теме:

Cyborg Drone, спасибо, учёл.

Новые блоги и статьи Все статьи Все блоги /
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 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Jora213 0 / 0 / 0 Регистрация: 05.02.2016 Сообщений: 12

	Циклы: вычислить сумму ряда n/(n+1)^2 05.02.2016, 16:46. Показов 1392. Ответов 16 Метки нет (Все метки) Дано натурально число n. Написать программу вычисления значения выражения: $https://www.cyberforum.ru/cgi-bin/latex.cgi?1/{2}^{2}+2/{3}^{2}+...+n/{(n+1)}^{2}$ 0

@RostorLuxor 144 / 129 / 46 Регистрация: 12.08.2015 Сообщений: 1,203 Записей в блоге: 1
	05.02.2016, 16:52
	https://www.yandex.ru/search/?... id=1882610 0

@Jora213 0 / 0 / 0 Регистрация: 05.02.2016 Сообщений: 12
	05.02.2016, 16:56 [ТС]
	поменял на real и закрыл последний begin, спасибо 0

@Jora213 0 / 0 / 0 Регистрация: 05.02.2016 Сообщений: 12
	05.02.2016, 17:03 [ТС]
	помогли бы еще эту сделать Циклы: найти среднее значение нечетных положительных чисел, кратных 5 0

@RostorLuxor 144 / 129 / 46 Регистрация: 12.08.2015 Сообщений: 1,203 Записей в блоге: 1
	05.02.2016, 17:11
	Попробую. 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	05.02.2016, 17:41
	Ага, "вот Вам решение и мне не важно, что оно у Вас не будет работать - я занят - разбирайтесь сами". Если Вы так заняты, то и не надо пытаться оказывать "медвежью услугу". 0

@RostorLuxor 144 / 129 / 46 Регистрация: 12.08.2015 Сообщений: 1,203 Записей в блоге: 1
	05.02.2016, 18:55
	Если топикстартер доволен - значит всё работает. Если я мешаю в разделе Pascal'я - могу уйти. 0

@RostorLuxor
	06.02.2016, 07:54
	Не по теме: Cyborg Drone, спасибо, учёл. 0

Циклы: вычислить сумму ряда n/(n+1)^2

Решение