ADA - Ayuda a principiante

   
Vista:

Ayuda a principiante

Publicado por Alberto (1 intervención) el 29/10/2008 19:13:18
estoy aprendiendo a programar, y en un ejercicio al compilar no me da error, pero luego al ejecutarlo no funciona, me puede decir alguien por que? El problema creo que esta en la raiz cuadrada de la segunda funcion. Gracias

function Diagonal_Piramide (
Altura,
Pendiente : Float )
return Float is
-- PRE: cierto
--POST: resultado la diagonal de la base de una piramide a partir de
-- su "altura" y su "pendiente"
begin
return 2.0*(Altura/Tan (Pendiente));
end Diagonal_Piramide;


function Lado_Base_Piramide (
Altura,
Pendiente : Float )
return Float is
-- PRE: cierto
-- POST: resultado es el lado de la base de una piramide a partir de la
-- "altura" y la "pendiente"
begin
return Sqrt (Diagonal_Piramide (Altura , Pendiente) /2.0);
end Lado_Base_Piramide;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder