Diapositiva 1

1
Brazos Bloque IF Permite que se ejecuten una
serie de tareas si y sólo si una expresión lógica
es verdadera. IF(logical_exp) then
sentencia1 sentencia2
Bloque1 END IF Si la expresión lógica
es verdad entonces se ejecuta el Bloque1. Si la
expresión lógica es falsa se saltea todo el
Bloque1 y ejecuta la sentencia posterior al END IF
Exp. logica
falso
verdad
Sentencia 1 Sentencia 2 ..
2
EJ Dado un numero A calcular su raíz cuadrada e
imprimirlo
Diagrama de flujo
comienzo
Leo A
Imprimo No tiene solución
no
Agt 0
si
Bsqrt(A)
Imprimo la raíz es B
fin
3
Las clausulas ELSE y ELSE IF Permiten sumar
otros Bloques de tareas
4
IF(logical_exp 1) THEN sentencia1
sentencia2 Bloque1 ELSE
IF(logical_exp2) THEN sentencia3
sentencia4 Bloque2 ELSE
sentencia5 sentencia6
Bloque3 END IF
Ej PROGRAM raices_de_la_ecuacion_cuadratica !
Proposito calcular las raíces de la ecuación
cuadrática y clasificar el !resultado según sea
con 2 soluciones reales distintas , 2 soluciones
reales !iguales o 2 soluciones complejas. ! IMPLIC
IT NONE
5
REAL a !coef de x2 REAL b !coef
de x REAL c !coef indep REAL discrim
!discriminante REAL part_real !parte real de
la solucion REAL part_ima !parte imaginaria
de la solucion REAL x1 !sol. Real 1 REAL
x2 !sol. Real 2 ! WRITE(,) Este programa
resuelve la ec. a x2 b x c 0 WRITE(,)
Entre los coeficientes a, b y c READ(,) a, b,
c WRITE(,) los coeficientes a, b y c son,
a, b, c ! Calculo el discriminante Discrimb2
4.ac !clasifico la raiz según el
discriminante IF(discrimgt0) then
x1(-bsqrt(discrim))/(2.a)
x2(-b-sqrt(discrim))/(2.a) WRITE(,) esta
ecuación tiene 2 raíces reales WRITE(,)
x1, x1 WRITE(,) x2, x2
6
ELSE IF(discrimlt0) then part_real(-b)/(2.a)
part_imasqrt(abs(discrim))/(2.a) WRITE(,)
esta ecuación tiene 2 raíces complejas
WRITE(,) x1,part_real,i,part_ima
WRITE(,) x2, part_real,-i,part_ima ELSE
IF(discrim0) then x1(-b)/(2.a)
WRITE(,) esta ecuación tiene 2 raíces reales
iguales WRITE(,) x1x2, x1 END IF END
PROGRAM raices_de_la_ecuacion_cuadratica
Verificación (prueba de escritorio) x2 5x 6
0 x1 -2 y x2 -3 x2 4x 4 0
x2 x2 2x 5 0 x -1
i2 Realizar 3 ejecuciones para verificar los 3
casos
7
Es posible poner un nombre al bloque
IF nombre IF(logical_exp 1) THEN
sentencia1 sentencia2
Bloque1 ELSE IF(logical_exp2) THEN
nombre sentencia3 sentencia4
Bloque2 ELSE nombre
sentencia5 sentencia6
Bloque3 END IF nombre El nombre
puede tener 31 caracteres de longitud y debe
empezar con una letra. Si un nombre se le asigna
al IF en el END IF también debe figurar ese
nombre. En los ELSE el nombre es opcional. Este
nombre es de utilidad en programas muy largos.
8
Los IF pueden ser anidados externo IF (x gt
0.) then interno IF(ygt0.) then
. END IF interno END IF
externo
Para solo una linea IF(exp_logica)
sentencia La sentencia debe de ser ejecutable. Se
usa cuando el el bloque tiene una sola sentencia.
9
nombre SELECT CASE(exp_caso) case (caso
seleccionado1) nombre sentencia1
sentencia2 Bloque1 case
(caso seleccionado2) nombre
sentencia3 sentencia4
Bloque2 case default nombre
sentencian sentencian1
Bloquen END select nombre
10
Ej INTEGER temp_c Temp SELECT CASE
(temp_c) CASE(-1) WRITE(,) Bajo cero
CASE(0) WRITE(,) congelación CASE(120) WRIT
E(,) frio a fresco CASE(2133) WRITE(,)
cálido CASE(34) WRITE(,) bochornoso END
SELECT temp
11
(No Transcript)