Вычисление формулы с произведениями

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.

newerow1989

Предлагаю готовое решение, задание которого дал пользователь 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.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)
• Необходимо расположить эти числа в порядке возрастания сумм их цифр