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

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

1) 3/2 * arcsin 0.6 + 3.12 + lg4 2) {e^arctg 7,58 - 1/√2 * 1,5^2} 3) (17*e^-2 - 1/3 * PI)^4 4) |12*PI+cos40°/2*e^-3|+10 5) [3/12*(5*ln2+7*ln5)^2] 6) (3,8*PI-5)^e^2 Вот ссылка

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

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

uses crt;
begin
clrscr;
writeln('1. ',3/2*arctan(0.6/sqrt(1-0.36))+3.12+ln(4)/ln(10):12:4);
writeln('2. ',exp(arctan(7.58))-1/sqrt(2)*sqr(1.5):12:4);
writeln('3. ',sqr(sqr(17*exp(-2)-pi/3)):12:4);
writeln('4. ',(12*pi+cos(40*pi/180))/2/exp(-3)+10:12:4);
writeln('5. ',3*sqr(5*ln(2)+7*ln(5))/12:12:4);
writeln('6. ',exp(ln(3.8*pi-5)*exp(2)):12:4);
readln
end.

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

Вычисляется арктангенс от 0.6/sqrt(1-0.36), затем к полученному значению прибавляются 3.12 и логарифм 4/10 по основанию 10. Результат выводится на экран.
Вычисляется экспонента от арктангенса 7.58, затем от этого значения вычитается 1/sqrt(2)*sqr(1.5). Результат выводится на экран.
Вычисляется квадрат от (17*exp(-2)-pi/3), затем полученное значение выводится на экран.
Вычисляется косинус от 40pi/180, затем от этого значения вычитается 12pi и результат умножается на cos(40*pi/180). Полученное значение делится на 2/exp(-3) и к результату прибавляется 10. Результат выводится на экран.
Вычисляется квадрат от (5ln(2)+7ln(5)), затем полученное значение выводится на экран.
Вычисляется экспонента от ln(3.8pi-5)exp(2), затем полученное значение выводится на экран.