Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 02.11.2012
Сообщений: 12

Вычислить произведение первых N сомножителей

15.10.2013, 01:10. Показов 1999. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Очень нужна ваша помощь, нужно написать программу к этому примеру, спасибо.
Миниатюры
Вычислить произведение первых N сомножителей  
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.10.2013, 01:10
Ответы с готовыми решениями:

Циклы: Вычислить произведение n сомножителей
Вычислить произведение n сомножителей (1+2)(3+4+5)(6+7+8+9)...

Дано натуральное число n. Вычислить произведение первых n
Дано натуральное число n. Вычислить произведение первых n сомножителей и распечатать: \frac{1}{2}*\frac{3}{4}*\frac{5}{6}*... ...

Вычислить произведение N первых четных натуральных чисел
Составьте программу вычисления произведения N первых четных натуральных чисел.

1
908 / 756 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
15.10.2013, 02:20
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Это так называемая формула Валлиса для числа pi/2 (pi = 3.14 ...). То есть, если вычислить это произведение с достаточно большой точностью, а потом результат умножить на 2, то получим приблизительное значение для числа pi. Чем больше номер N, тем точность будет большей. Вот сама программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  i, N: integer;
  D: real;
  
begin
  write(' N = ');
  readln(N);
  D := 1;
  for i := 1 to (N div 2) do
    D := D * 4 * sqr(i) / (2 * i - 1) / (2 * i + 1);
  if odd(N) then D := D * (N + 1) / N;
  writeln;
  writeln('Результат: ', D:0:5);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
15.10.2013, 02:20
Помогаю со студенческими работами здесь

For: дано целое число N(>0). Найти произведение 1.1*1.2*1.3*... (N сомножителей)
дано целое число N(>0). Найти произведение 1.1*1.2*1.3*... (N сомножителей).

Вычислить произведение первых п сомножителей
Дано натуральное число n. Вычислить произведение первых n сомножителей (1/1)*(3/2)*(5/3)*…… program sr4; {$APPTYPE CONSOLE} ...

Вычислить произведение первых N сомножителей
Дано натуральное число N. Вычислить произведение первых N сомножителей:

Вычислить произведение первых N сомножителей
Всем привет! Имеется задачка: Вычислить произведение первых N сомножителей: Есть решение на паскале (если кому-то нужно) Var {*...

Вычислить произведение первых N сомножителей
Помогите пожалуйста Дано натуральное число N. Вычислить произведение первых N сомножителей P=2/3*4/5*6/7*... *2N/2N+1 НА ЯЗЫКЕ паскаль


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru