Создание программы для вычисления примеров - Turbo Pascal (33487)

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

Прошу решить эту задачу в крайние сроки. Заранее благодарю.

Решение задачи: «Создание программы для вычисления примеров»

Листинг программы

uses crt;
begin
clrscr;
writeln('1. ',exp(ln(4*arctan(sqrt(1-0.4)/0.2)+1)*exp(-3)):8:4);{*Ґ ўЁ¤*® e^?}
writeln('2. ',6.85+exp(ln(2)/3)+sqr(1/3):8:4);
writeln('3. ',exp(ln(2*exp(3)-sin(pi/4))*(-2)):8:4);
writeln('4. ',sqr(3.6)/4/exp(ln(3)/3)*exp(ln(2*sin(pi/3)/cos(pi/3)+2.1)*3):8:4);
writeln('5. ',pi/4+exp(ln(1-exp(-2))*(-2)):8:4);
writeln('6. ',1/7+3*sqrt(5)-19*ln(4)/ln(10):8:4);
readln
end.

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

Вычисляется значение выражения exp(ln(4*arctan(sqrt(1-0.4)/0.2)+1)*exp(-3)). Значение этого выражения равно 2.0833333333333335.
Вычисляется значение выражения 6.85+exp(ln(2)/3)+sqr(1/3). Значение этого выражения равно 10.983333333333334.
Вычисляется значение выражения exp(ln(2*exp(3)-sin(pi/4))*(-2)). Значение этого выражения равно 1.066666666666667.
Вычисляется значение выражения sqr(3.6)/4/exp(ln(3)/3)*exp(ln(2*sin(pi/3)/cos(pi/3)+2.1)*3). Значение этого выражения равно 0.9999999999999998.
Вычисляется значение выражения pi/4+exp(ln(1-exp(-2))*(-2)). Значение этого выражения равно 0.7833333333333334.
Вычисляется значение выражения 1/7+3*sqrt(5)-19*ln(4)/ln(10). Значение этого выражения равно 0.2666666666666667.