Введите значение Х, затем введите номер тригонометрической функции, которую надо вычислить: 1 – sin(x), 2 – cos(x), 3 – tg(x), 4 – ctg(x). Выведите результат вычисления соответствующей функции, используя разные цвета для разных функций.
код на программе Pascal

Предыдущий
вопрос Следующий
вопрос

program TrigonometryFunctions;

va
x: real
func: integer;

begi
writeln('Введите значение x: ')
readln(x);

writeln('Выберите номер тригонометрической функции:')
writeln('1 – sin(x), 2 – cos(x), 3 – tg(x), 4 – ctg(x)')
readln(func);

case func o
1: begi
writeln('Результат вычисления sin(x): ', sin(x))
end
2: begi
writeln('Результат вычисления cos(x): ', cos(x))
end
3: begi
writeln('Результат вычисления tg(x): ', tan(x))
end
4: begi
writeln('Результат вычисления ctg(x): ', 1 / tan(x))
end
els
writeln('Неверно выбран номер функции.')
end;

readln
end.