Найти значение функции - 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.

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

  1. const a=0.5; - объявляется константа a и присваивается ей значение 0.5
  2. const b=2.5; - объявляется константа b и присваивается ей значение 2.5
  3. 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)))
  4. function f(x:real):real; - объявляется функция f, которая принимает аргумент x типа real и возвращает значение типа real внутри функции f определяется выражение f:=sin(a*x)-exp(-x)+ln(abs(x-a)+2)
  5. begin - начинается блок кода
  6. writeln('При х=2.5'); - выводится текст При х=2.5
  7. writeln('y=',y(2.5):0:4,'  f=',f(2.5):0:4); - выводятся значения функций y и f для аргумента 2.5
  8. writeln('При х=0.5'); - выводится текст При х=0.5
  9. writeln('y=',y(0.5):0:4,'  f=',f(0.5):0:4); - выводятся значения функций y и f для аргумента 0.5
  10. end.; - заканчивается блок кода

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.2 из 5
Похожие ответы