Вычислите значения функции - Turbo Pascal

Узнай цену своей работы

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

Вычислите значения функции.

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

textual
Листинг программы
uses crt;
function f(x:real):real;
begin
if x<0 then f:=x*x*x+4
else if x>0 then f:=sin(x)/cos(x)-8;
end;
begin
clrscr;
writeln('При x=0.8 y=',f(0.8):0:3);
writeln('При x=11.36 y=',f(11.36):0:3);
writeln('При x=-5.54 y=',f(-5.54):0:3);
readln
end.

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

  1. В начале кода используется библиотека crt, которая является стандартной для языка Turbo Pascal и используется для работы с функцией вывода чисел с плавающей точкой.
  2. Затем объявляется функция f, которая принимает один аргумент типа real (число с плавающей точкой) и возвращает результат типа real (число с плавающей точкой).
  3. Внутри функции проверяется значение аргумента x. Если x меньше нуля, то вычисляется значение выражения xxx+4. Если x больше нуля, то вычисляется значение выражения sin(x)/cos(x)-8.
  4. В основной части кода очищается экран с помощью функции clrscr.
  5. Затем выводится значение функции f при x=0.8 и x=11.36, а также при x=-5.54.
  6. Конец программы.

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

14   голосов , оценка 3.643 из 5