Вычислить значение выражения - Turbo Pascal (29402)

Узнай цену своей работы

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

Листинг программы
  1. Program zad29;
  2. uses crt;
  3. var x,y:real;
  4. begin
  5. writeln('vvedite x');
  6. read(x);
  7. y:=exp(ln(exp(ln(arctan(x))*2))*(1/3))*(x-Pi)/x-3.5;
  8. writeln(y);
  9. end.
Что тут не так? X1=3.1∙1010; Y1=4.882∙10-11

Решение задачи: «Вычислить значение выражения»

textual
Листинг программы
  1. Program zad29;
  2. uses crt;
  3. var x,y:real;
  4. begin
  5. x:=3.1e10;
  6. y:=exp(ln(1+sqr(arctan(x-pi)))/3)/(x-3.5);
  7. writeln(' ');
  8. writeln(y);
  9. readln
  10. end.

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

  1. Создается программа с именем zad29.
  2. В программе используется библиотека crt.
  3. Объявляются две переменные типа real: x и y.
  4. Значение переменной x устанавливается равным 3.1e10.
  5. Значение переменной y вычисляется как результат экспоненты от натурального логарифма от суммы квадрата арктинуса от разности x и pi, деленного на 3 и приведенного к целому числу, деленного на разность x и 3.5.
  6. Выводится значение переменной y.
  7. Программа завершается, ожидая ввода пользователя.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

11   голосов , оценка 4.182 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут