Fortran
INICIO
A,B,C
ST = (2*A*C)+(2*A*B)+(2*B*C)
V = A*B*C
A,B,C,ST,V
FIN
PROGRAM rectangulo
C NOMBRE: CÁLCULO DE SUPERFICIE TOTAL YVOLUMEN
C PROGRAMADOR: ALMENDRA LÓPEZ, CANO CHAN, FUERTE SOLÍS, JIMÉNEZ OLEA
C FECHA: 6 DE OCTUBRE DE 2010
C PROPÓSITO: CALCULAR LA SUPERFICIE TOTAL Y EL VOLUMEN DE UN RECTÁNGULO
C ENTRADAS: TRESVALORES REALES DESDE UN ARCHIVO DE DATOS. LOS VALORES REPRESENTAN LAS DIMENSIONES DEL RECTÁNGULO (ANCHO, PROFUNDIDAD Y ALTURA).
C SALIDAS: LAS DIMENSIONES, SUPERFICIES Y VOLUMEN DEL RECTÁNGULO
CESTRATEGIA: LEER LAS DIMENSIONES, LUEGO CALCULAR E IMPRIMIR LOS RESULTADOS
C VARIABLES QUE SE UTILIZAN:
C ANCHO PRIMER VALOR EN LOS DATOS
C PROFUNDIDAD SEGUNDO VALOREN LOS DATOS
C ALTURA TERCER VALOR EN LOS DATOS
C V VOLUMEN QUE SE CALCULA
C ST SUPERFICIE TOTALQUE SE CALCULA
C INICIALIZAR CONSTANTES
OPEN(5,FILE='Medidas.DAT')
OPEN(10,FILE='Superficie y Volumen.RES')
C LEER LOS VALORES Y CALCULAR
READ(5,*) A,B,C
ST =(2*A*C)+(2*A*B)+(2*B*C)
V = A*B*C
C MOSTRAR LOS RESULTADOS
write (10,*) A,B,C,ST,V
end
3.12 Escriba un programa FORTRAN para calcular el área superficial y el volumen de una esfera cuyodiámetro es 7.75. Inserte encabezados de columna apropiados.
PROGRAM Esfera
C NOMBRE: CÁLCULO DE ÁREA Y VOLUMEN
C PROGRAMADOR: ALMENDRA LÓPEZ, CANO CHAN, FUERTE SOLÍS, JIMÉNEZ OLEA
C FECHA: 6DE OCTUBRE DE 2010
C PROPÓSITO: CALCULAR EL ÁREA Y EL VOLUMEN DE UNA ESFERA
C ENTRADAS: UN VALOR REAL DESDE UN ARCHIVO DE DATOS. EL VALOR REPRESENTA EL DIAÁMETRO DE LA ESFERA.
C SALIDAS: EL...
Regístrate para leer el documento completo.