GAECHKA
Твоя помощница в решении задач

Вычислить значение выражения

$$P=\prod_{n=1}^{6}({e}^{2}+{cos}^{2}n)$$


Добавлено через 3 часа 21 минуту
Через while Оператор
0
вопрос задан

Источник


4 ответа
Решение
var
  p, e : real;
  n : integer;
begin
  write('введите e: '); readln(e);
  n := 1;
  p := 1;
  while n = 6 do
  begin
    p := p * (sqr(e)+ sqr(cos(n)));
    inc(n)    
  end;
  writeln('P = ', p:6:2);
  readln
end.
ildwine,
у меня стойкое ощущение, что e - это Exp(1).
Да, скорее всего:
var
  p : real;
  n : integer;
begin  
  n := 1; p := 1;
  while n = 6 do
  begin
    p := p * (sqr(exp(1))+ sqr(cos(n)));
    inc(n)    
  end;
  writeln('P = ', p:6:2);
  readln
end.
ildwine,
возможно, лучше так:
var
  e2: Real;
...
  e2:=Sqr(Exp(1));
  ...
    p:=p*(e2+Sqr(Cos(n)));
Но это не точно ;-) Иногда вычисление на лету может быть быстрее хождения в память ;-)