Fortran

Solo disponible en BuenasTareas
  • Páginas : 3 (651 palabras )
  • Descarga(s) : 0
  • Publicado : 21 de noviembre de 2010
Leer documento completo
Vista previa del texto
3.11 Escriba y corra un programa FORTRAN para calcular la superficie total y el volumen de de un rectángulo cuyo ancho es 5.5, la profundidad es de 7.25 y la altura es 3.75. Prepare un diagrama deflujo y utilice encabezados de columna apropiados.
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...
tracking img