Вычислить значения функций. - Turbo Pascal

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

Вычислить значение функций

Спойлер

Решение задачи: «Вычислить значения функций.»

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

const a=0.83;
      x=1.2;
var t,y:real;
begin
t:=2*sqr(sin(x));
t:=ln(t)/ln(10);
t:=exp(ln(t)/3);
y:=sqrt(a*x*x+t)-arctan((a-x)/4.5);
write('x=',x:0:3);
readln;
end.

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

Объявляются константы и переменные:
- a = 0.83 (константа)
- x = 1.2 (переменная)
- t, y = real (тип переменной)
Вычисляются значения функций:
- t = 2 * sqr(sin(x)) (функция sqr вычисляет квадрат числа, sin - синус, x - переменная)
- t = ln(t) / ln(10) (функция ln - натуральный логарифм, 10 - константа)
- t = exp(ln(t) / 3) (функция exp - экспонента, ln - натуральный логарифм, 3 - константа)
- y = sqrt(a x x + t) - atan((a - x) / 4.5) (функция sqrt - квадратный корень, x - переменная, atan - обратный тангенс)
Выводится значение переменной x:
- write('x=', x:0:3) (функция write выводит текст на экран, x - переменная, 0:3 - формат вывода с точностью до трех знаков после запятой)
Программа ожидает ввода данных с помощью функции readln:
- readln (программа ожидает ввода данных с помощью функции readln)