2390349
Ano: 2010
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: CEF
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: CEF
Provas:
1 $ SET SOURCEFORMAT”FREE”
2 IDENTIFICATION DIVISION.
3 PROGRAM-ID. Iteration-If.
4 AUTHOR. Michael Coughlan.
5 DATA DIVISION.
6 WORKING-STORAGE SECTION.
7 01 Num1 PIC 9 VALUE ZEROS.
8 01 Num2 PIC 9 VALUE ZEROS.
9 01 Result PIC 99 VALUE ZEROS.
10 01 Operator PIC X VALUE SPACE.
11 01 Num3 PIC 9 VALUE ZEROS.
12 PROCEDURE DIVISION.
13 Calculator.
14 PERFORM 3 TIMES
15 DISPLAY “Enter First Number : “ WITH NO ADVANCING
16 ACCEPT Num1
17 DISPLAY “Enter Second Number : “ WITH NO ADVANCING
18 ACCEPT Num2
19 DISPLAY “Enter operator (+ or *) : “ WITH NO ADVANCING
20 ACCEPT Operator
21 IF Operator = “*” THEN
22 ADD Num1, Num2 GIVING Result
23 END-IF
24 IF Operator = “+” THEN
25 MULTIPLY Num1 BY Num2 GIVING Num3
26 END-IF
27 DISPLAY “Result is = “, Result
28 END-PERFORM.
29 STOP RUN.
2 IDENTIFICATION DIVISION.
3 PROGRAM-ID. Iteration-If.
4 AUTHOR. Michael Coughlan.
5 DATA DIVISION.
6 WORKING-STORAGE SECTION.
7 01 Num1 PIC 9 VALUE ZEROS.
8 01 Num2 PIC 9 VALUE ZEROS.
9 01 Result PIC 99 VALUE ZEROS.
10 01 Operator PIC X VALUE SPACE.
11 01 Num3 PIC 9 VALUE ZEROS.
12 PROCEDURE DIVISION.
13 Calculator.
14 PERFORM 3 TIMES
15 DISPLAY “Enter First Number : “ WITH NO ADVANCING
16 ACCEPT Num1
17 DISPLAY “Enter Second Number : “ WITH NO ADVANCING
18 ACCEPT Num2
19 DISPLAY “Enter operator (+ or *) : “ WITH NO ADVANCING
20 ACCEPT Operator
21 IF Operator = “*” THEN
22 ADD Num1, Num2 GIVING Result
23 END-IF
24 IF Operator = “+” THEN
25 MULTIPLY Num1 BY Num2 GIVING Num3
26 END-IF
27 DISPLAY “Result is = “, Result
28 END-PERFORM.
29 STOP RUN.
Considerando o código acima, em Cobol, plenamente compilável e funcional, adaptado de www.csis.ul.ie, assinale a opção correta.
