CURSO COBOL OS/390. OPERADORES ARITMETICOS BASICOS.

    COBOL ES UN LENGUAJE PRINCIPALMENTE ORIENTADO A NEGOCIOS, ASI QUE LO QUE MAS VAS A HACER ES:

SUMAR

RESTAR

DIVIDIR

MULTIPLICAR

Y A LO MUCHO SACAR LA RAIZ CUADRADA

    SIN EMBARGO CUENTA CON MAS FUNCIONES PARA SACAR EL SENO, COSENO, TANGENTE, ETC. TE EXPLICARE LAS BASICAS SI QUIERES SABER LA OTRAS BAJATE EL MANUAL.

DECLARACION ADD
    FORMATO 1:
        ADD IDE1 IDE2... TO IDE1 [ROUNDED] IDE2...
    EJEM:
        ADD 12 14 25 TO WS-SUMA

    FORMATO 2:
        ADD IDES1 IDES2 ... TO IDESN
        GIVING IDER1... [ROUNDED] IDER2
    EJEM:
        MOVE 25 TO WS-SUMA
        ADD 25 25 25 TO WS-SUMA GIVING WS-TOTAL
        DISPLAY WS-TOTAL
        DISPLAY WS-SUMA

        25
        100

DECLARACION SUBTRACT
    FORMATO 1:
        SUBTRACT IDES1 IDES2 FROM IDR1 [ROUNDED] IDR2
    EJEM:
        MOVE 50 TO WS-SUMA
        SUBTRACT 10 10 FROM WS-SUMA
        DISPLAY WS-SUMA

        30

    FORMATO 2:
        SUBTRACT IDES1 IDES2 FROM IDESN
        GIVING IDR1 [ROUNDED] IDER2
    EJEM:
DECLARACION MULTIPLY

        MOVE 100 TO WS-SUMA

        SUBTRACT 25 25 FROM WS-SUMA GIVING WS-TOTAL

        DISPLAY WS-SUMA

        DISPLAY WS-TOTAL

        100

        50

    FORMATO 1:
        MULTIPLY IDEM1 BY IDEM2 [ROUNDED] IDER1 IDER2
    EJEM:
        MULTIPLY 2 BY 2 WS-PROD
        DISPLAY WS-PROD

        4

    FORMATO 2:
        MULTIPLY IDEM1 BY IDEM2 GIVING IDER1 IDER2
    EJEM:
        MULTIPLY 2 BY 2 GIVING WS-PROD
        DISPLAY WS-PROD

        4
DECLARACION DIVIDE
    FORMATO 1:
        DIVIDE IDED1 INTO IDED2 [ROUNDED] IDEC1 IDEC2
    EJEM:
        DIVIDE 6 INTO 2 WS-COCIENTE
        DISPLAY WS-COCIENTE
       
        3
       
    FORMATO 2:
        DIVIDE IDED1 INTO IDED2 GIVING IDEC1 [ROUNDED] IDEC2
    EJEM:
        DIVIDE 120 INTO 6 GIVING WS-COCIENTE
        DISPLAY WS-COCIENTE

        20

    FORMATO 3:
        DIVIDE IDED1 INTO IDED2 GIVING IDEC1 [ROUNDED]
        REMAINDER IDER1
    EJEM:
        DIVIDE 10 INTO 3 GIVING WS-COCIENTE
        REMAINDER WS-RESIDUO


DECLARACION COMPUTE
    FORMATO:
        COMPUTE IDER1 [ROUNDED] IDER2 = EXPRESION ARITMETICA