Найти корни уравнения - Turbo Pascal (33974)

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

Уравнение 2

Решение задачи: «Найти корни уравнения»

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

var x,a,y:real;
begin
write('a='); readln(a);
write('x='); readln(x);
if x<-10 then y:=cos(sqr(sqr(x))) else if x<10 then y:=ln(x) else y:=exp(x);
write('y=',y:5:2);
readln
end.

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

В данном коде происходит чтение двух чисел с помощью функции readln, после чего выполняется проверка условия на значение переменной x. Если x меньше 10, то вычисляется натуральный логарифм x, иначе вычисляется экспонента x. Результат вычисления сохраняется в переменной y. Затем значение y выводится на экран с помощью функции write.