Вычислить значение выражения - Turbo Pascal (29402)
Формулировка задачи:
Листинг программы
- Program zad29;
- uses crt;
- var x,y:real;
- begin
- writeln('vvedite x');
- read(x);
- y:=exp(ln(exp(ln(arctan(x))*2))*(1/3))*(x-Pi)/x-3.5;
- writeln(y);
- end.
Решение задачи: «Вычислить значение выражения»
textual
Листинг программы
- Program zad29;
- uses crt;
- var x,y:real;
- begin
- x:=3.1e10;
- y:=exp(ln(1+sqr(arctan(x-pi)))/3)/(x-3.5);
- writeln(' ');
- writeln(y);
- readln
- end.
Объяснение кода листинга программы
- Создается программа с именем
zad29
. - В программе используется библиотека crt.
- Объявляются две переменные типа real: x и y.
- Значение переменной x устанавливается равным 3.1e10.
- Значение переменной y вычисляется как результат экспоненты от натурального логарифма от суммы квадрата арктинуса от разности x и pi, деленного на 3 и приведенного к целому числу, деленного на разность x и 3.5.
- Выводится значение переменной y.
- Программа завершается, ожидая ввода пользователя.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д