Задано вещественное значение аргумента х,вычислить значение функции у - Free Pascal (752)

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

Решить пример в паскале

Решение задачи: «Задано вещественное значение аргумента х,вычислить значение функции у»

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

function y(const x: Single):Extended;
var
    Result:Extended;
begin
    if (x < -1)
    then
        Result := Sqrt(3) - Exp(2 * x)
    else
        if (x > 1)
        then
            Result := Ln(x)
        else
            Result := Sin(x) / Cos(x) + Sqr(x) * x;
    y := Result;
end;
 
var
    x: Single;
begin
    Write('x='); ReadLn(x);
    WriteLn('y(', x:0:3, ')=', y(x):0:3);
end.

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

В данном коде написана функция y, которая принимает вещественный аргумент типа Single и возвращает значение типа Extended. Внутри функции присутствуют две ветви условного оператора if, которые определяют различные варианты вычисления значения функции в зависимости от значения переменной x.

Если x < -1, то результатом будет Sqrt(3) - Exp(2 * x).
Если x > 1, то результатом будет Ln(x).
В противном случае (x <= -1 или x >= 1), результатом будет Sin(x) / Cos(x) + Sqr(x) * x. В конце кода присутствует блок с переменными, где пользователю предлагается ввести значение переменной x, а затем выводится значение функции y для этого введенного значения. Список элементов кода:
Объявление функции y с аргументом типа Single и возвращаемым типом Extended.
Объявление переменной Result типа Extended для хранения результата вычислений.
Условный оператор if для проверки значения переменной x.
Вычисление значения функции y в случае, если x < -1.
Вычисление значения функции y в случае, если x > 1.
Вычисление значения функции y в противном случае.
Завершение условного оператора if.
Передача значения переменной x в функцию y.
Блок с переменными, где пользователю предлагается ввести значение переменной x.
Вывод значения функции y для введенного пользователем значения переменной x.
Конец программы.