Сделать программку вычисления указанной величины. Результат проверить при данных начальных

Создать программу вычисления указанной величины. Результат проверить при заданных начальных значениях.

Задать свой вопрос
1 ответ
//Для FreePascal/Delphi добавить
//uses Math;

var h, x, y, z: real;
begin
  x := 2.444;
  y := 0.869*power(10, -2);
  z := -0.13*power(10, 3);
  h := (((power(x,(y+1))+exp(y-1))/(1+x*абс(y-tan(z))))*(1 + абс(y-x)));
  h := h + (sqr(абс(y-x))/2) - (power(абс(y-x),3)/3);
  writeln('h = ', h:0:5);
  readln;
end.


h = -0.49871
Serous Roma
Спасибо!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт