Вычисление значения с использованием сумм - Free Pascal

Формулировка задачи:

исправьте пожалуйста ошибки,

var i, n, x:integer; 
z, y:real; 
begin 
x:=8;
n:=1;
z := 0; 
for i:=1 to n do z := z + exp(ln(-1)*(i+1))*exp(ln(x/(x+5))*i); 
y := (-5)*x+6*z; 
writeln(y); 
readln(); 
end.

Решение задачи: «Вычисление значения с использованием сумм»

Листинг программы

var
  i, n, x: integer; 
  y: real;
 
begin
  x := 8;
  n := 30;
  for i := 1 to n do 
    y := y + (-5 * x + 6 * (Power(-1, i + 1) * Power(x / (x + 5), i)));
  writeln('y = ', y); 
end.

Объяснение кода листинга программы

Объявлены переменные: i, n, x, y.
Присвоены значения переменным: x = 8, n = 30.
Задано выражение для вычисления значения y.
Используется цикл for для вычисления значения y по формуле.
Выводится значение y.

Оцени полезность:

9 голосов , оценка 4 из 5

Похожие ответы