1. No category

PROGRAMA QUE PERMITE CALCULAR VOLUMEN DE FIGURAS GEOMETRICAS TALES COMO: 1)
Tetaedro 2)Exaedro 3) Octaedro 4)Dodecaedro 5)Icosaedro 6)Prisma 7)Prisma recto 8)
Paralelepipedo Rectangulo 9) Piramide Rectangular 10) Volumen de un Cilindro .
ESTE PROGRAMA FUE REALIZADO A TRAVES DE LA ESTRUCTURA DE SELECCIÓN MULTIPLE.
Program Calculos de volúmenes // Identifica la cabecera del programa.
INTEGER volumen // Declaración de las variables. Identifica el tipo de datos de cada una.
WRITE(*,*) 'Existen 10 opciones 1) Tetaedro 2)Exaedro'
WRITE(*,*)'3) Octaedro 4)Dodecaedro 5)Icosaedro'
WRITE(*,*) '6)Prisma 7)Prisma recto 8) Paralelepipedo Rectangulo'
WRITE(*,*)'9) Piramide Rectangular 10) Volumen de un Cilindro '
Escribe por pantalla y sin
formato las opciones que
existen. Es un comentario
personalizado de cada
programador.
WRITE(*,*) 'Introduzca la opción deseada:'
READ(*,*)volume // Lee por pantalla y sin formato la variable volumen
SELECT CASE (volumen) // Selecciona la opción escogida por el usuario.
CASE (1) // describe el caso 1 de la opción
WRITE(*,*) 'Calcular el Volumen de un Tetraedro'
Escribe por pantalla y sin
formato las del caso 1
WRITE(*,*) 'Introduzca el Valor del Area='
READ(*,*) A // Lee por pantalla y sin formato la variable que se utilizara para el calculo
V=0.1178*A**3 // Se procesa la operación del calculo del volumen.
CASE (2)
WRITE(*,*) 'Calcular el Volumen de un Exaedro'
WRITE(*,*) 'Introduzca el Valor del Area='
READ(*,*) A
V=A**3
CASE (3)
WRITE(*,*) 'Calcular el Volumen de un Octaedro'
WRITE(*,*) 'Introduzca el Valor del Area='
READ(*,*) A
V=0.4714*A**3
CASE (4)
WRITE(*,*) 'Calcular el Volumen de un Dodecaedro'
WRITE(*,*) 'Introduzca el Valor del Area='
READ(*,*) A
V=7.6631*A**3
CASE (5)
WRITE(*,*) 'Calcular el Volumen de un Icosaedro'
WRITE(*,*) 'Introduzca el Valor del Area='
READ(*,*) A
V=2.1817*A**3
CASE( 6)
WRITE(*,*) 'Calcular el Volumen de un Prisma Cualquiera'
WRITE(*,*) 'Introduzca el valor de la Altura ='
READ(*,*) H
WRITE(*,*) 'Introduzca el valor del Area='
READ(*,*) H
V=1/3*A*H
CASE (7)
WRITE(*,*) 'Calcular el Volumen de un Prisma Recto'
WRITE(*,*) 'Introduzca el valor de la Altura ='
READ(*,*) H
WRITE(*,*) 'Introduzca el valor del Area='
READ(*,*) H
V=A*H
CASE( 8)
WRITE(*,*) 'Calcular el Volumen de un Paralelepipedo Rectangulo'
WRITE(*,*) 'Introduzca el valor de A='
READ(*,*) A
WRITE(*,*) 'Introduzca el valor de B='
READ(*,*) B
WRITE(*,*) 'Introduzca el valor de C='
READ(*,*) C
V=A*B*C
CASE (9)
WRITE(*,*) 'Calcular el Volumen de una Piramide Rectangular'
WRITE(*,*) 'Introduzca los Valores de la Altura y el Area'
READ(*,*) H,A
V=1/3*A*H
CASE( 10)
WRITE(*,*) 'Calcular el Volumen de un Cilindro Cualquiera'
WRITE(*,*) 'Introduzca el valor de la Altura ='
READ(*,*) H
WRITE(*,*) 'Introduzca el valor del Radio='
READ(*,*) R
V=3.141516*H*R**2
CASE DEFAULT // Esta instrucción se utiliza para que se pueda visualizar que no existen otras
opciones
WRITE(*,*) 'Caso no Planteado'
ENDSELECT // Final de la selección
WRITE(*,*)'El Volumen de la figura geométrica es=',V // Se escribe por pantalla y sin formato el
resultado obtenido del volumen seleccionado.
Stop //Detiene lógicamente el programa
END // Detiene físicamente el programa