Найти значение функции - Pascal ABC (13081)

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

Найти значение функции

Решение задачи: «Найти значение функции»

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

const a=0.5;
      b=2.5;
function y(x:real):real;
begin
y:=power(x+a,3)*(arctan(a*x)-sqrt(sqr(x-a))+sqr(ln(a*x*x+1)))
end;
function f(x:real):real;
begin
f:=sin(a*x)-exp(-x)+ln(abs(x-a)+2)
end;
begin
writeln('При х=2.5');
writeln('y=',y(2.5):0:4,'  f=',f(2.5):0:4);
writeln('При х=0.5');
writeln('y=',y(0.5):0:4,'  f=',f(0.5):0:4);
end.

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

const a=0.5; - объявляется константа a и присваивается ей значение 0.5
const b=2.5; - объявляется константа b и присваивается ей значение 2.5
function y(x:real):real; - объявляется функция y, которая принимает аргумент x типа real и возвращает значение типа real внутри функции y определяется выражение y:=power(x+a,3)(arctan(ax)-sqrt(sqr(x-a))+sqr(ln(axx+1)))
function f(x:real):real; - объявляется функция f, которая принимает аргумент x типа real и возвращает значение типа real внутри функции f определяется выражение f:=sin(a*x)-exp(-x)+ln(abs(x-a)+2)
begin - начинается блок кода
writeln('При х=2.5'); - выводится текст При х=2.5
writeln('y=',y(2.5):0:4,' f=',f(2.5):0:4); - выводятся значения функций y и f для аргумента 2.5
writeln('При х=0.5'); - выводится текст При х=0.5
writeln('y=',y(0.5):0:4,' f=',f(0.5):0:4); - выводятся значения функций y и f для аргумента 0.5
end.; - заканчивается блок кода