COBOL - Exemplos simples - MULTIPLY - www.cadcobol.com.br



Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

COBOL - Exemplos simples - MULTIPLY 
IDENTIFICATION DIVISION.
PROGRAM-ID.  MULTIPLY.
AUTHOR.      CARLOS ALBERTO DORNELLES.

ENVIRONMENT DIVISION.                                            
CONFIGURATION SECTION.                                           
SPECIAL-NAMES.                                                   
    DECIMAL-POINT IS COMMA. 

DATA DIVISION.
WORKING-STORAGE SECTION.

01  WS-AUXILIARES.
    05  VALOR-1             PIC S9(009)       VALUE ZEROES. 
    05  VALOR-2             PIC S9(009)       VALUE ZEROES. 
    05  VALOR-3             PIC S9(009)       VALUE ZEROES. 

PROCEDURE DIVISION.

001-INICIO.
COBOL - Exemplos simples - MULTIPLY 
    MOVE   8 TO VALOR-1
    MOVE   9 TO VALOR-2
    MULTIPLY VALOR-1 BY VALOR-2	
    DISPLAY "VALOR-1  " VALOR-1 
    DISPLAY "VALOR-2  " VALOR-2 

* Resultado do teste:

* VALOR-1  +000000008
* VALOR-2  +000000072

    MOVE  23 TO VALOR-1
    MULTIPLY 5 BY VALOR-1	
    DISPLAY "VALOR-1  " VALOR-1 

* Resultado do teste:

* VALOR-1  +000000115

    MOVE -10 TO VALOR-1
    MULTIPLY 5 BY VALOR-1	
    DISPLAY "VALOR-1  " VALOR-1 

* Resultado do teste:

* VALOR-1  -000000050

    MOVE -10 TO VALOR-1
    MULTIPLY -5 BY VALOR-1	
    DISPLAY "VALOR-1  " VALOR-1 

* Resultado do teste:

* VALOR-1  +000000050

COBOL - Exemplos simples - MULTIPLY GIVING 
    MOVE   8 TO VALOR-1
    MOVE   9 TO VALOR-2
    MOVE  16 TO VALOR-3
    MULTIPLY VALOR-1 BY VALOR-2 GIVING VALOR-3	
    DISPLAY "VALOR-1  " VALOR-1 
    DISPLAY "VALOR-2  " VALOR-2 
    DISPLAY "VALOR-3  " VALOR-3 

* Resultado do teste:

* VALOR-1  +000000008
* VALOR-2  +000000009
* VALOR-3  +000000072

    MOVE  10 TO VALOR-1
    MOVE  -2 TO VALOR-2
    MULTIPLY VALOR-1 BY VALOR-2 GIVING VALOR-3	
    DISPLAY "VALOR-1  " VALOR-1 
    DISPLAY "VALOR-2  " VALOR-2 
    DISPLAY "VALOR-3  " VALOR-3 

* Resultado do teste:

* VALOR-1  +000000010
* VALOR-2  -000000002
* VALOR-3  -000000020

    MOVE -10 TO VALOR-1
    MOVE   2 TO VALOR-2
    MULTIPLY VALOR-1 BY VALOR-2 GIVING VALOR-3	
    DISPLAY "VALOR-1  " VALOR-1 
    DISPLAY "VALOR-2  " VALOR-2 
    DISPLAY "VALOR-3  " VALOR-3 

* Resultado do teste:

* VALOR-1  -000000010
* VALOR-2  +000000002
* VALOR-3  -000000020

    MOVE -10 TO VALOR-1
    MOVE  -2 TO VALOR-2
    MULTIPLY VALOR-1 BY VALOR-2 GIVING VALOR-3	
    DISPLAY "VALOR-1  " VALOR-1 
    DISPLAY "VALOR-2  " VALOR-2 
    DISPLAY "VALOR-3  " VALOR-3 

* Resultado do teste:

* VALOR-1  -000000010
* VALOR-2  -000000002
* VALOR-3  +000000020

    MOVE  23 TO VALOR-1
    MOVE  78 TO VALOR-2
    MULTIPLY 5       BY VALOR-2 GIVING VALOR-2	
    DISPLAY "VALOR-1  " VALOR-1 
    DISPLAY "VALOR-2  " VALOR-2 

* Resultado do teste:

* VALOR-1  +000000023
* VALOR-2  +000000390


    STOP RUN.