Pascal/Turbo Pascal - necesito ayuda

necesito ayuda con un programa de turbo c++
1.)
diseñar un algoritmo que llame a la funcion signo(X) y calcule : a) el signo de un numero
b) el signo de la funcion coseno
variables de entrada : P(real)
variables de salida : Y -signo del valor P-(entero) Z-signo del coseno de P -(entero);
seudocodigo

algoritmo signos
var entero;y ,z
real :P
inicio(P)
Y=signo(p)
Z=signo(cos(p))
escribir(Y,Z)
fin

entero funcion signo(E real:x)
inicio
si x>0 entonces
devolver( 1)
si_no
si x<0 entonces
devolver( -1)
si_no
devolver( 0)
fin_si
fin_si
fin_funcion

NESECITO QUE ME LO RESUELVAN EN TURBO C++ CON PROGRAMACION MODULAR

! a ver si pueden!

¿Has considerado la posibilidad de preguntar en el foro de C++?