Enfermedad de parkinson

Dpto. Qu´mica F´sica Aplicada, UAM
ı
ı

11

´
2. SESION SEGUNDA
2.1.

Decisiones (instrucci´ n IF)
o

En determinadas ocasiones un programa debe determinar por s´ mismo si realiza o noun conjunto de insı
´
trucciones concretas. Para ello el FORTRAN utiliza la instrucci on IF que podemos traducir como el ”si” con´
dicional. Si una determinada condicion es cierta, entonces, ejecutala instruccion (o conjunto de instrucciones).
´
Si no (else) es cierta, entonces hace otra cosa.
En la Fig. 10 se muestran tres formas de
utilizar esta instrucci´ n. La expresi´ n l´ gica o
o
oo
condici´ n es una comparaci´ n de cuyo resulo
o
tado determina, el programa, si realiza o no las
instrucciones correspondientes. En el programa if1.f se utiliza la primera forma de lainstrucci´ n IF para evitar un error al hacer la ra´z
o
ı
cuadrada de un n´ mero negativo, estudie este
u
programa (ver Tabla 2) y despu´ s comp´ relo
e
a
con los programas if2.f e if3.f, que emplean la´
segunda y tercera forma de la instruccion IF,
respectivamente.
´
Figura 10: Tres posibilidades de la instruccion IF.

EDITE, COMPILE y EJECUTE los tres programas. Cuando ejecute losprogramas, el ordenador se

´
quedar´ esperando a que introduzca los valores de A y B para leerlos, ya que es esta la primera instrucci on de
a
los tres programas. Teclee ambos valores separados por unoo varios espacios en blancos (barra espaciadora)
y pulso intro. No use las flechas de los cursores para avanzar y/o retroceder.
C if1.f
17 Oct 97
C Instruccion
IF
C======================
READ *, A, B
C = A - B
IF(C.LE.0.0)
C = -1.0 * C
D = SQRT(C)
PRINT * , A, B, C, D
STOP
END

C if2.f
17 Oct 97
C Instruccion
IF
C =========================
READ * , A, B
C = A - BIF(C.LT.0.0)
THEN
C = -1.0 * C
PRINT * , ’ N. complejo’
ENDIF
D = SQRT(C)
PRINT * , A, B, C, D
STOP
END

C if3.f
17 Oct 97
C Instruccion
IF
C ========================
READ * , A, B
C = A - B...