Составить алгоритм и программу вычисления функции - Pascal (80526)

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

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

Составить алгоритм и программу вычисления функции, x, y – вводится с клавиатуры

Решение задачи: «Составить алгоритм и программу вычисления функции»

textual
Листинг программы
const
    EPS = 0.0001;
function Y(const x: Real): Real;
var
    temp, Result: Real;
begin
    temp := x - Sin(x - 3);
    if (Abs(temp - 5) < EPS)
    then
        Result := 1
    else
        if (temp < 5)
        then
            Result := Sqrt(x - Sin(Sqr(x)) - 10)
        else
            Result := 3 * Cos(x);
    Y := Result;
end;

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

  1. Объявление константы EPS и присвоение ей значения: '0.0001'.
  2. Объявление функции Y, принимающей аргумент x типа Real и возвращающей значение типа Real.
  3. Объявление переменных temp и Result типа Real.
  4. Присвоение переменной temp значения выражения x - Sin(x - 3).
  5. Проверка условия: если абсолютная величина разности temp - 5 менее чем EPS, то
  6. Присвоить переменной Result значение 1, иначе
  7. Если temp меньше 5, то присвоить переменной Result значение Sqrt(x - Sin(Sqr(x)) - 10), иначе
  8. Присвоить переменной Result значение 3 * Cos(x).
  9. Возвратить значение переменной Result в качестве результата функции Y.

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

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