Простейшая функция вычислить tg(x)

[homa371]

Необходимо вывести на экран значение tg(36),tg(45),tg(55);

var

A:array[0..20] of Integer;
i,n,s : integer;
p : longint;

begin
writeln('vvedite razmernost massiva:');
readln(n);

writeln('Vvedite massiv A razmernostu ',n,':');
for i:=1 to n do
read(A[i]);
s:=0;
p:=1;
for i:=1 to n do
begin
if odd (i) then p:=p*A[i]
else s:=s+A[i]
end;
writeln('Summa vseh 4isel massiva = ',s);
writeln('Proizvedenie vseh 4isel masiiva = ',p);
end.

tg(45)=1;
а в моей проге ответ tg(45)=1.61....
Вот такую программку составил,а считает неправильно!Помогите!Что делать?


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[p51x]

радианы - 100500 раз было

[Serge_Bliznykov]

что за код?!!

writeln('Summa vseh 4isel massiva = ',s);
writeln('Proizvedenie vseh 4isel masiiva = ',p);

какое отношение программа обработки массива имеет к вычислению тангенса?!!

[homa371]

var

x,y,z : integer;
x1,y1,z1 : real;

begin
x:=36;y:=45;z:=55;
x1:=Sin(36)/Cos(36);
y1:=Sin(45)/Cos(45);
z1:=Sin(55)/Cos(55);

writeln('tg(',x,')=',x1:4:2);
writeln('tg(',y,')=',y1:4:2);
writeln('tg(',z,')=',z1:4:2);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[homa371]

x:=45
45-это радианы!
как радианы переделать в градусы?!

[homa371]

Turbo Pascal
tg(36)=7.75
tg(45)=1.62
tg(55)=-45.18
Результаты выполнения программы.

[_-Re@l-_]

Перевод градусов в радианы:

Var
     X:Real;
     Y:Real;
Begin
        X:=45; //Это градусы
        Y:=X*Pi/180; //Это радианы
        Writeln('Тангенс 45 = ',X:5:2); //Получаем единицу
        Readln;
End.

[homa371]

Сообщение от _-Re@l-_

Перевод градусов в радианы:

Var
     X:Real;
     Y:Real;
Begin
        X:=45; //Это градусы
        Y:=X*Pi/180; //Это радианы
        Writeln('Тангенс 45 = ',X:5:2); //Получаем единицу
        Readln;
End.

Спсибо большое!!Очень помог!!Все получилось!