Несложная прогрессия - Форум «Всё о Паскале»

Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++

Сайт «Всё о Паскале» > Форум > Pascal, Object Pascal > Задачи

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

Несложная прогрессия, S=1/3+5/7+9/11+..21/23

Опции

Михаил	13.11.2005 3:21 Сообщение #1
Гость	помоите решить S:=1/3+5/7+9/11+...21/23 чето не допру, какой алгоритм

volvo	13.11.2005 3:46 Сообщение #2
Гость	для чисел X от 1 до 21 с шагом 4 суммировать S := S + X/(X+2)...

Altair	13.11.2005 3:52 Сообщение #3
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45	i:=1; s:=0; repeat s=s+i/(i+2); inc(i,4) until i=21; -------------------- Помогая друг другу, мы справимся с любыми трудностями! "Не опускать крылья!" (С)

Михаил	13.11.2005 4:24 Сообщение #4
Гость	спасиб ребят! +)

klem4	13.11.2005 10:15 Сообщение #5
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	i:=1; s:=0; repeat s=s+i/(i+2); inc(i,4) until i=21; until i=25 или inc поставить до суммирования Сообщение отредактировано: klem4 - 13.11.2005 13:46 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

Altair	13.11.2005 14:20 Сообщение #6
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45	Цитата Ну да 25... Цитата или inc поставить до суммирования тогда начнется подсчет с 5... ;) -------------------- Помогая друг другу, мы справимся с любыми трудностями! "Не опускать крылья!" (С)

klem4	13.11.2005 14:51 Сообщение #7
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Ну да ... тогда придется еще начальное значение i изменить ... -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

Altair	13.11.2005 14:57 Сообщение #8
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45	думаю обсуждать здесь нечего, флейм разводим. закрыто. -------------------- Помогая друг другу, мы справимся с любыми трудностями! "Не опускать крылья!" (С)

« Предыдущая тема · Задачи · Следующая тема »

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

Текстовая версия

1.09.2025 20:24

500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают

Связь с администрацией: bu_gen в домене octagram.name