Нужно написать программу ** языке Турбо Паскаль, которая бы вычисляла значение выражения...

Question

Нужно написать программу на языке Турбо Паскаль, которая бы вычисляла значение выражения по формуле


e^(x+y) - степень!

Заранее спасибо

Comments

е - это переменная или "число е" - основание натурального логарифма?

---

переменная)

Answer 1

Var
  a, b, c, d, e, x, y, z: real;

begin
  Write('Введите через пробел a,b,c,d,e,x,y: ');
  Readln(a, b, c, d, e, x, y);
  if e > 0 then
    Writeln((a / c) * (b / d) - ((a * b - c) / (c * d)) * exp((x + y) * ln(e)))
  else if e = 0 then Writeln((a / c) * (b / d) - ((a * b - c) / (c * d)))
  else Writeln('e<0 недопустимо!')<br>end.