Задано вещественное значение аргумента х,вычислить значение функции у - Free Pascal (752)
Формулировка задачи:
Решить пример в паскале
Решение задачи: «Задано вещественное значение аргумента х,вычислить значение функции у»
textual
Листинг программы
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.
- Конец программы.