I'm fportales

Este blog se ha transformado en una especie de ayuda-memoria y no tanto sobre mi. Escribo muy poco.

Promedios

leave a comment »

¡Se acerca el momento de la verdad!, ¡calculen su promedio, este programa en Fortran les dice lo que necesitan saber!

Codigo fuente:

!Este programa queda publicado bajo la Licencia Pública de GNU versión 3.0 (GNU GPL v3.0)
!más información en: http://www.gnu.org/copyleft/gpl.html
!
!Programa escrito por Felipe Portales.
PROGRAM promedios
IMPLICIT NONE

REAL,ALLOCATABLE::A(:)
REAL::suma,prom,recuperacion
INTEGER::cantidad

PRINT*,’Programa para el cálculo de promedios de notas con igual ponderación.’
PRINT*,’Ingrese la cantidad de notas:’
READ*,cantidad

ALLOCATE(A(cantidad))

PRINT*,’Ingrese las notas:’
READ*,A

suma=SUM(A)
prom=suma/cantidad

PRINT*,’Su promedio es:’,prom

IF(prom<3.95)THEN
recuperacion=(4.0-0.6*prom)/0.4
IF(recuperacion>7.0)THEN
PRINT*,’Ha reprobado el ramo definitivamente, prepárese para darlo denuevo el proximo semestre o año.’
ELSE
PRINT*,’Está reprobando la asignatura.’
PRINT*,’Necesita obtener al menos un’,recuperacion,’en el certamen de recuperación para aprobar el ramo.’
END IF
ELSE
PRINT*,’Felicidades, ha aprobado el ramo.’
END IF

END PROGRAM

Anuncios

Written by Felipe Portales

17 junio, 2009 a 8:38 pm

Publicado en Notas de Computación

Tagged with

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: