[Pascal ABC.NET] Тригонометрические функции. Неверно считает

[Язон_динАльт]

Доброго времени суток!
Шлифую программу из дз, где нужно было по номеру функции в списке (не в массиве, а в рукописном) вычислить её значение при аргументе вводимом с клавиатуры.
Собстно, проблему вызывает не сама программа, а её результаты - значения sin x, cos x и тд, не соответствуют табличным значениям.

program P5_2;
uses crt;
label ret;
var X, f: real;
var nmr: integer;

begin
textcolor(15);
writeln('Программа вычисляет значения функций:');
writeln('                    1) sin x');
writeln('                    2) cos x');
writeln('                    3) tg x');
writeln('                    4) ctg x');
writeln();
write('Введите значение аргумента: '); readln(X);
ret: write('Введите номер выбранной вами функции: '); readln(nmr);
case nmr of
  1: 
    begin
      f := sin(x); textcolor(4);
    end;
  2: 
    begin
      f := cos(x); textcolor(15);
    end;
  3: 
    begin
      f := sin(x) / cos(x); textcolor(9);
    end;
  4: 
    begin
      f := cos(x) / sin(x); textcolor(12);
    end;
else
  begin
    writeln();
    writeln('Ошибка, введите целое число из диапазона 1..4.');
    goto ret;
  end;
end;

- это фрагмент кода до конца оператора выбора.

Как доказательство можно привести тест программы при аргументе X:=60 и номером функции nmr:=2: [скрин]
Результат налицо, но должно быть cos60 = 1/2 = 0,5...

Вопрос по Чернышевскому - в чём причина и что делать?

[Вадим Мошев]

Сообщение от Язон_динАльт

Результат налицо, но должно быть cos60 = 1/2 = 0,5...

Вопрос по Чернышевскому - в чём причина и что делать?
Изображения

Тригонометрические функции "думают", что им передали аргумент в радианах, а не градусах. Если вы вычислите косинус от 60 радиан, то вы и получите столько, сколько вы получаете. А вот косинус от 60 градусов равен 1/2.

Переводите градусы в радианы.
_____

когда считаете (ко)тангенсы, учитывайте, что они существуют не везде.
_____

И не используйте никогда goto.

[Язон_динАльт]

Сообщение от Вадим Мошев

Переводите градусы в радианы.
_____

когда считаете (ко)тангенсы, учитывайте, что они существуют не везде.
_____

И не используйте никогда goto.

1) Принято, спасибо!
2) Учту
3) Я бы рад, но пока циклы "не прошли" самодеятельность пресекают на корню...

Ещё раз, спасибо!