Вычислить значение функции - Turbo Pascal (247938)

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

Добрый день. Помогите решить задание. Вычислить значение функции. Очень буду благодарен. где n=0.81; k=1.85.

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

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

uses crt;
const n=0.81;
      k=1.85;
var x,y:real;
begin
clrscr;
write('x=');
readln(x);
if x>3.5 then y:=sin(n*x)+ln(x-k*k)
else y:=sqr(cos(x));
write('y=',y:0:3);
readln
end.

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

Установка начального значения переменной x равной 0.
Запрос на ввод значения переменной x с помощью функции readln.
Проверка условия, если значение переменной x больше 3.5, то присваивается значение переменной y как синус от умножения значения переменной n на значение переменной x, плюс натуральный логарифм от разности значения переменной x и квадрата значения переменной k.
Иначе присваивается значение переменной y как квадрат косинуса от значения переменной x.
Вывод значения переменной y с помощью функции write, с указанием формата вывода числа с 3 знаками после запятой.
Завершение работы программы с помощью функции readln.