
Последние записи
- Печать содержимого окна инструментами Winapi
- Ping из VBA
- Игра Судоку (PascalABC.net)
- Вывод многострочного текста BitMap
- Рисование на картинке мышью
- Progress bar или индикация выполнения макроса в Microsoft Office Excel
- PIC12F629 — питание подал — постоянно горит светодиод №1, светодиод №2 не горит. Кнопку нажал и держишь, светодиод №1 сразу потух, светодиод №2 горит
- Вывод текста с переносами строк в PHP
- Кодировка в INDY 10 (как бороться с «???»)
- Переход по ссылке при клике на кнопку, счётчик кликов по кнопке и число переходов по ссылке на ява скрипт

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
20th
Мар
Вычисление формулы с произведениями
Posted by obzor under Delphi
Составить программу вычисляющую формулу с произведениями:
P = П{i=1..10}(i*(i+a)/(i^2+a^2)) + П{k=2..4}(k^3/(k+a)), при a = 2.
Предлагаю готовое решение, задание которого дал пользователь dashakapl.
const a=2;
var i:integer;
p1,p2:real;
begin
p1:=1;
p2:=1;
For i:=1 to 10 do
p1:=p1*i*(i+a)/(i*i+a*a);
For i:=2 to 4 do
p2:=p2*i*i*i/(i+a);
p1:=p1+p2;
Writeln(p1:5:5);
Readln;
end.
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)