Как составить ** языке Паскаль программу вычисления заданной функции y = e ( в степени х...

Question

Как составить на языке Паскаль программу вычисления заданной функции y = e ( в степени х + 1.8) + корень пятой степени из ( а - cosх).

Comments

А в чем проблема? Функцию изобразить?

---

Да! Написать на языке Паскаля. Для контрольной работы. Этот Паскаль мне совсем не знаком!)))

---

целиком программу, со вводом аргумента и выводом результата,

---

По всей видимости - да. В задании написано просто составить программу, а про аргументы и выводы, если они нужны,наверное с ними.)

---

Alviko! "Ведите значение аргумента ..." мне нужно ввести или вот в этом виде переписать в контрольную и готово?

---

До слов "Тестовое решение" - текст программы, после них - то, что на экране будет при её работе.

---

Спасибо огромное!!!!

Answer 1

Var
  x, a, t, y: real;

begin
  Write('Введите значение аргумента x: ');
  Readln(x);
  Write('Введите значение коэффициента a: ');
  Readln(a);
  {боремся с неположительным значением под знаком корня}
  t := a - cos(x);
  if t < 0 then y := exp(x + 1.8) - exp(1 / 5 * ln(-t))
  else if t = 0 then y := exp(x + 1.8)
  else y := exp(x + 1.8) + exp(1 / 5 * ln(t));
  Writeln('Значение функции равно ', y)
end.

Тестовое решение:

Введите значение аргумента x: -4.2
Введите значение коэффициента a: 1.95
Значение функции равно 1.28604638457326