El condicional IF ELSE - Capítulo 9

Curso de COBOL desde cero


En este capítulo aprenderás a utilizar el condicional IF, el cual dotará a tus programas de cierta "inteligencia" y será capaz de ejecutar trozos de código según unas condiciones que le indiquemos.

Debemos utilizar la palabra reservada IF y a continuación escribes la condición que quieras.
Mira este ejemplo del código de la suma del capítulo anterior:

Código

IDENTIFICATION DIVISION.
PROGRAM-ID. CAPITULO-9.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 NUM1 PIC 9(4).
01 NUM2 PIC 9(4).
01 RESULTADO PIC 9(5).
PROCEDURE DIVISION.
MAIN-PROCEDURE.
	DISPLAY "Introduce el primer número: ".
	ACCEPT NUM1.
	DISPLAY "Introduce el segundo número: ".
	ACCEPT NUM2.
	ADD NUM1 TO NUM2 GIVING RESULTADO.
	IF RESULTADO > 50
	    DISPLAY "El resultado es mayor que 50.".
	STOP RUN.
END PROGRAM CAPITULO-9.

Resultado

Suponiendo que el valor almacenado en la variable RESULTADOes mayor que 50, mostrará el DISPLAY:

El resultado es mayor que 50.

En caso de que el número sea menor que 50, el programa no ejecuta el código del IF.

Podemos añadir un bloque de código alternativo añadiendo un ELSE, el cual se ejecutará en caso de que no se cumpla la condición del IF.

Código

IDENTIFICATION DIVISION.
PROGRAM-ID. CAPITULO-9.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 NUM1 PIC 9(4).
01 NUM2 PIC 9(4).
01 RESULTADO PIC 9(5).
PROCEDURE DIVISION.
MAIN-PROCEDURE.
	DISPLAY "Introduce el primer número: ".
	ACCEPT NUM1.
	DISPLAY "Introduce el segundo número: ".
	ACCEPT NUM2.
	ADD NUM1 TO NUM2 GIVING RESULTADO.
	IF RESULTADO > 50
	    DISPLAY "El resultado es mayor que 50."
	ELSE
	    DISPLAY "El resultado es menor o igual que 50."
	END-IF.
	STOP RUN.
END PROGRAM CAPITULO-9.

Resultado

Suponiendo que el valor almacenado en la variable RESULTADOes menor o igual que 50, mostrará el DISPLAY:

El resultado es es menor o igual que 50.

De ahora en adelante, puedes poner todo el código que quieras dentro de los bloques IF y ELSE, no solo estos simples DISPLAY.

Fíjate que para cerrar correctamente un IF ELSE deberías hacerlo con un END-IF como en el código de ejemplo.


Suscríbete a mi canal de YouTube para apoyarme

Si te ha gustado este curso y crees que el trabajo merece la pena, te agradeceré eternamente que te suscribas a mi canal de YouTube para apoyarme y que pueda seguir haciendo cursos gratuitos.

Además, si te encanta la programación, tienes un montón más de cursos gratuitos para ver.

No solo eso, podrás participar enviándome comentarios con tus sugerencias para temas específicos o cursos completos o incluso las dudas que tengas y las intentaré ir resolviendo en los cursos que estén todavía abiertos.


Comentarios

Si te quedan dudas sobre el temario, sobre COBOL, o cualquier otra cosa relacionada o simplemente quieres agradecer, aquí tienes tu sitio para dejar tu granito de arena. Gracias por tus comentarios y por darle vida a este sitio web.