Programa

! Last change: K 2 Jun 2010 2:48 am
PROGRAM EXAMEN
IMPLICIT NONE
REAL r,s,c,D,semia,semib,h1,h2,h,RES
INTEGER n,OPCION
!SECCION DE ENTRADA DE DATOS
PRINT *,"SI OPCION=1 USAR AREAPOLIGONO"
PRINT *,"SI OPCION=2 USAR AREA CIRCULO"
PRINT *,"SI OPCION=3 USAR AREA ELIPSE"
PRINT *,"SN OPCION=4 USAR VOLUMEN CILINDRO"
PRINT *,"SI OPCION=5 USAR VOLUMEN ESFERA"
PRINT *,"SI OPCION=6USAR VOLUMEN CONO"
PRINT *,"SI OPCION=7 USAR NINGUNA"
PRINT *,"DAME LA OPCION SELECCIONADA:"
READ *,OPCION
SELECT CASE (OPCION)
CASE (1)
PRINT *,"USAR POLIGONO"
CALLPOLIGONO(n,r,RES)
CASE (2)
PRINT *,"USAR CIRCULO"
CALL CIRCULO(D,RES)
CASE (3)
PRINT *,"USAR ECLIPSE"
CALL ECLIPSE(semia,semib,RES)
CASE (4)
PRINT *,"USAR CILINDRO"
CALLCILINDRO(r,h1,h2,RES)
CASE (5)
PRINT *,"USAR ESFERA"
CALL ESFERA(r,RES)
CASE (6)
PRINT *,"USAR CONO"
CALL CONO(r,h,RES)
CASE (7)
PRINT *,"NINGUN AREA NINGUNVOLUMEN"
END SELECT
PRINT*,"AREA O VOLUMEN ES:,",RES
STOP
END PROGRAM EXAMEN
SUBROUTINE POLIGONO(n,r,RES)
IMPLICIT NONE
REAL r,RES
INTEGER n
!ENTRADA DE DATOS
PRINT *,"DAME EL NUMERO DELADOS:"
READ *,n
PRINT *,"DAME EL RADIO r:"
READ *,r
!PROCESO
RES=(n*r**2)/2*(0/n)
RETURN
END SUBROUTINE POLIGONO
SUBROUTINE CIRCULO(D,RES)
IMPLICIT NONE
REAL D,RES
PRINT *,"DAME EL DIAMETRO D:"READ *,D
RES=(0.25)*(3.141592654*D**2)
RETURN
END SUBROUTINE CIRCULO
SUBROUTINE ECLIPSE(semia,semib,RES)
IMPLICIT NONE
REAL semia,semib,RES
PRINT *,"DAME EL SEMIEJE A:"
READ *,semia
PRINT*,"DAME EL SEMIEJE B:"
READ *,semib
RES=(3.141592654)*(semia*semib)
RETURN
END SUBROUTINE ECLIPSE
SUBROUTINE CILINDRO(r,h1,h2,RES)
IMPLICIT NONE
REAL r,h1,h2,RES
PRINT *,"DAME EL RADIO:"
READ*,r
PRINT *,"DAME LA ALTURA h1:"
READ *,h1
PRINT *,"DAME LA ALTURA h2:"
READ *,h2
RES=(3.141592654*r**2)*(h1+h2/2)
RETURN
END SUBROUTINE CILINDRO
SUBROUTINE ESFERA(r,RES)
IMPLICIT NONE
REAL...