[Resolvido] algoritmo

pessoal tenho q

Fazer um algoritmo que leia um ângulo em graus e apresente:

·o seno do ângulo, se o ângulo pertencer a um quadrante par; e

·o co-seno do ângulo, se o ângulo pertencer a um quadrante ímpar.

e tentei de duas formas a pensar q de uma ñ entendi como fazer o coseno olhem ai e me ajudem

primeira tentativa

var
cat_ops, Cat_adj, Hipot : inteiro
seno , coseno : inteiro
aux, y: real
inicio
escreva ("entre com o valor do cateto adjacente: ")
leia (cat_adj)
escreva ("entre com o valor do cateto oposto: ")
leia (cat_ops)
escreva ("entre com o valor do cateto hipotenusa: ")
leia (Hipot)
aux := (cat_ops / hipot)
seno := int(aux)
se (seno mod 2 = 0) entao
escreva ("é par")
fimse
y := (cat_adj / hipot)
coseno := int (y)
se (coseno mod 2 = 1)entao
escreva ("impar")
fimse
fimalgoritmo
[/code

segunda tentativa
[code]
var
angulo : inteiro
inicio
leia (angulo)
se (angulo > 360) entao
repita
angulo := angulo - 360
ate angulo <= 360
fimse
se (angulo mod 2 = 0) entao
escreva ("par")
fimse
fimalgoritmo