913373
Ano: 2014
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: CEF
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: CEF
Provas:
Julgue o item seguinte, com relação ao desenvolvimento de sistemas.
IDENTIFICATION DIVISION.
PROGRAM-ID. FEC.
PROGRAM-ID. FEC.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 N1 PIC 99.
77 N2 PIC 99.
77 SOMA PIC 9999.
01 xStr PIC X(50) VALUE "O mundo cheio"
CONFIGURATION SECTION.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 N1 PIC 99.
77 N2 PIC 99.
77 SOMA PIC 9999.
01 xStr PIC X(50) VALUE "O mundo cheio"
PROCEDURE DIVISION.
COMPUTE N1 = 87
COMPUTE N2 = 35
MULTIPLY N1 BY N2 GIVING SOMA
DISPLAY SOMA DISPLAY "Oper:" xStr(9:3)
STOP RUN.
COMPUTE N1 = 87
COMPUTE N2 = 35
MULTIPLY N1 BY N2 GIVING SOMA
DISPLAY SOMA DISPLAY "Oper:" xStr(9:3)
STOP RUN.
A seguir, é apresentado o resultado correto do código COBOL acima.
3045
Oper:che
Oper:che
