Ejemplos de ejercicios en Fortran
Enviado por osvaldogallegos • 8 de Noviembre de 2015 • Tareas • 561 Palabras (3 Páginas) • 260 Visitas
- Realizar un programa que resuelve ecuaciones de segundo grado (Aplicar formula general).
program ecuaciones_segundo_grado
REAL dent, ra, rb, sers2, res1, a, b, c, x1
PRINT*, 'dame el valor de a'
READ(*,*) a
PRINT*, 'dame el valor de b'
READ(*,*) b
PRINT*, ' dame el valor de c'
READ(*,*) c
dent = (b*b)-(4*a*c)
IF (disc .GT. 0.0) THEN
ra = (-b + (sqrt(dent)))/(2*a)
rb = (-b - (sqrt(dent)))/(2*a)
PRINT*, 'resultado 1 = ',ra
PRINT*, 'resultado 2 = ',rb
ELSEIF (dent .EQ. 0) THEN
x1 = (-b) / (2.0 * a);
PRINT*, 'La ecuacion solo tiene una raiz = ',x1
ELSE
result1 = (-b/(2.0*a));
result2 = (sqrt(-dent)/(2.0*a));
PRINT*, 'el primer resultado es',res1
PRINT*, 'segundo resultado',res2
ENDIF
END program
- Realizar un programa que solicite un número y muestre el día de la semana correspondiente.
PROGRAM dia
INTEGER :: res, num, day
WRITE (*,*) "dame un numero"
READ (*,*) num
res=MOD(num,7)
IF(num==1) THEN
Print *, num, "es lunes"
ELSEIF (num==2)THEN
Print *, num, "es martes"
ELSEIF (num==3) THEN
Print *, num, "es miercoles"
ELSEIF (num==4) THEN
Print *, num, "es jueves"
ELSEIF (num==5) THEN
Print *, num, "es vieres"
ELSEIF (num==6) THEN
Print *, num, "es sabado"
ELSEIF (num==7) THEN
Print *, num, "es domingo"
ENDIF
END PROGRAm
- Realizar un programa que solicite un año y determine si se trata de un año bisiesto o no.
PROGRAM anio
INTEGER :: num, res
WRITE (*,*) "dame un anio"
READ (*,*) num
res= MOD (num,4)
IF (res==0) THEN
Print *, num, "si es bisiesto"
ELSE
Print *, num, "no es bisiesto"
END IF
END PROGRAm
- Realizar un programa que convierta calificaciones numéricas a letras (contrario al que se le asigno en clase)
PROGRAM calificacion
INTEGER :: cal
WRITE(*,*)"dame tu calificacion"
READ (*,*) cal
SELECT CASE (cal)
CASE (17:20)
WRITE (*,*) "tu calificacion es 10"
CASE (13:16)
WRITE (*,*) "tu calificacion es B"
...