Tengo un codigo en PSeInt que estoy calculado el area y el perimetro de un circulo. A esto le agrego 2 subrutinas para realizar las funciones y que me retorne un valor para asi mostrarlo. Razonando, puedo entender que mi problema o inconveniente estaria en las variables de retorno, podria ser ese el caso. Pero no puede ser el inconveniente porque la sintaxis esta correcta. O podria ser que no esta sincronizada, por decirlo asi, la funcion cuando la llamo para realizar dicha operacion.
Funcion A <- radio_circulo(radio)
Definir A Como real
A = numeroPI * r^2
FinFuncion
Funcion P <- perimetro_circulo(radio)
Definir P Como real
P = 2 * numeroPI * r
FinFuncion
Algoritmo Perimetro_Area
Definir area, perimetro, radio Como Entero
Definir numeroPI Como Real
numeroPI = 3.1416;
radio = 0;
Escribir 'Ingrese el radio del circulo: '
Leer radio;
area = radio_circulo(radio);
perimetro = perimetro_circulo(radio);
Escribir "Su area es: ", area;
Escribir "Su perimetro es: ", perimetro
FinAlgoritmo
Edicion del codigo sugerida en los comentarios: Como se puede Ver el codigo al cambiarlo me da unos que me dice que no se realacionan bien la llamada de cada una de las funciones.