Найти значение функции - Pascal ABC (13081)
Формулировка задачи:
Найти значение функции
Решение задачи: «Найти значение функции»
textual
Листинг программы
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.; - заканчивается блок кода
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д