Aún no tienes acceso a esta clase

Crea una cuenta y continúa viendo este curso

Curso de COBOL desde Cero

Curso de COBOL desde Cero

Carlos Sánchez Botello

Carlos Sánchez Botello

Operaciones matemáticas

20/24
Recursos

Aportes 5

Preguntas 10

Ordenar por:

¿Quieres ver más aportes, preguntas y respuestas de la comunidad? Crea una cuenta o inicia sesión.

RESTO 😃

estas serían otras operaciones con compute:
Código

        IDENTIFICATION DIVISION.                                         
        PROGRAM-ID.                     ARITM.                           
        ENVIRONMENT DIVISION.                                            
        DATA DIVISION.                                                   
        WORKING-STORAGE SECTION.                                         
        77  WSC-NUM-A                   PIC 9(01) VALUE 5.               
        77  WSC-NUM-B                  PIC 9(01) VALUE 9.                
                                                                         
        77  WSV-RESULT-1           PIC 9(02) VALUE ZEROS.                
        77  WSV-RESULT-2           PIC 9(02) VALUE ZEROS.                
        77  WSV-RESULT-3           PIC 9(02) VALUE ZEROS.                
        77  WSV-RESULT-4           PIC 9(02) VALUE ZEROS.                
        77  WSV-RESULT-5           PIC 9(02) VALUE ZEROS.                
                                                                         
        PROCEDURE DIVISION.                                              
        010-MAIN.                                                        
       *ADD                                                              
            COMPUTE WSV-RESULT-1 = WSC-NUM-A + WSC-NUM-B                 
       *SUBTRACT                                                         
            COMPUTE WSV-RESULT-2 = WSC-NUM-A - WSC-NUM-B                 
       *MULTIPLY                                                         
            COMPUTE  WSV-RESULT-3 = WSC-NUM-A * WSC-NUM-B                
       *DIVIDE                                                           
            COMPUTE  WSV-RESULT-4 = WSC-NUM-B / WSC-NUM-A                
            DISPLAY 'RESULTADO +:'WSV-RESULT-1                           
            DISPLAY 'RESULTADO -:'WSV-RESULT-2                           
            DISPLAY 'RESULTADO *:'WSV-RESULT-3                           
            DISPLAY 'RESULTADO /:'WSV-RESULT-4                           
            STOP RUN.                                                    

Spool

RESULTADO +:14
RESULTADO -:04
RESULTADO *:45
RESULTADO /:01

También es posible hacer modulo o factorial.

El compilador me decia que el TO en la instruccion ADD era superflous, lo quite y compilo sin errores

Cuando un resultado es negativo ej: 4-9 = -5 el resultado que arroja es 5

A     : 5               
B     : 3               
A + B : 08              
A - B : 02              
A * B : 15              
A / B : 01              
---------------------   
A     : 5               
B     : 3               
A + B : 08              
A - B : 02              
A * B : 15              
A / B : 01              
---------------------   
C     : 4               
D     : 9               
C + D : 13              
C - D : 05              
C * D : 36              
C / D : 00              

Para operaciones de exponentes
COMPUTE WSC-RESULT-6 = WSC-NUM-B ** WSC-NUM-A