Cobol es un lenguaje de propósito específico y orientado a negocios. Al igual que muchos otros lenguajes posee sus propias características y aspectos únicos.
Imprimir en pantalla.
*> MOSTRAR EN PANTALLA DISPLAY "HOLA, MUNDO".
Solicitar entrada de datos.
*> SOLICITAR DATOS DISPLAY "INTRODUCE TU NOMBRE:". ACCEPT WS-NOMBRE. *>NOTA: EN COBOL DEBES DEFINIR UNA VARIABLE ANTES DE USARLA
Ejemplo. Usar EVALUATE ... EVALUATE-END. Es parecido a switch de Java.
IDENTIFICATION DIVISION. PROGRAM-ID. EVALUAR. AUTHOR ALQUIMISTA. INSTALLATION. ALQUIMISTA. DATE-WRITTEN. 17/04/19. DATE-COMPILED. SECURITY. NO ES CONFIDENCIAL. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-A PIC 9 VALUE 0. PROCEDURE DIVISION. MOVE 3 TO WS-A. DISPLAY "INTRODUCE NUMERO:". ACCEPT WS-A. EVALUATE TRUE WHEN WS-A = 3 DISPLAY WS-A" es igual a 3" WHEN WS-A > 2 DISPLAY WS-A" es mayor que 2" WHEN WS-A < 0 DISPLAY WS-A"es menor a 0" WHEN OTHER DISPLAY "Entrada no valida" END-EVALUATE. STOP RUN.
En este ejemplo el usuario introduce un numero entero y de acuerdo a las opciones se efectúa una instrucción. En caso que el número introducido no este en el rango de opciones se mostrará un mensaje advirtiendo que le entra no es válida.
Ejemplo. Uso de COMPUTE para efectuar operaciones aritméticas.
*> SUMA COMPUTE WS-SUMA = WS-NUM-A + WS-NUM-B. *> ELEVAR UN NUMERO A UNA POTENCIA COMPUTE WS-POTENCIA = WS-NUMERO ** 2.
Ejemplo. Calcular grados Fahrenheit y Celsius.
IDENTIFICATION DIVISION. PROGRAM-ID. PROG0014. AUTHOR ALQUIMISTA. INSTALLATION. ALQUIMISTA. DATE-WRITTEN. 18/04/19. DATE-COMPILED. SECURITY. NO ES CONFIDENCIAL. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-VALOR PIC 9(3) VALUE 20. 01 WS-RESULTADO PICTURE 9(3)V99 VALUE 0.0. 01 WS-OPC PIC X(9) VALUE "F". PROCEDURE DIVISION. BEGIN. DISPLAY 'Menu: '. DISPLAY 'C. CELSIUS F. FAHRENHEIT'. DISPLAY 'TU OPCION ES 'WS-OPC. IF WS-OPC = 'C' OR 'c' THEN COMPUTE WS-RESULTADO = (WS-VALOR - 32) * 0.55. IF WS-OPC = 'F' OR 'f' THEN COMPUTE WS-RESULTADO = (WS-VALOR * 1.8) + 32. DISPLAY 'RESULTADO = 'WS-RESULTADO. STOP RUN.
Eeeeso eeeso toooodo, amigos.
Comentarios
Publicar un comentario