Programação Estruturada
PERFORM 200-SOMA
UNTIL IND > 50
END-PERFORM.
PERFORM 200-SOMA
UNTIL SOMA > 50
END-PERFORM
200-SOMA.
ADD 2 TO SOMA
ADD SOMA TO TOT-50
ADD 1 TO IND.
200-SOMA.
ADD 2 TO SOMA
ADD SOMA TO TOT-50.
Programação Estruturada
PERFORM rotina X TIMES.
PERFORM 100-SOMA 50 TIMES
OU
PERFORM 50 TIMES
ADD 2 TO SOMA
END-PERFORM
Programação Estruturada
3) Faça um programa que CALCULE O CONSUMO DE COMBUSTÍVEL DE UM
AUTOMÓVEL.
Kmfinal - Kminicial
litros
4)
Faça um programa que CALCULE O IMC (Indice de Massa Corporal).
IMC =__ Peso__
(Altura)²
IMC
Abaixo de 18,5
Entre 18,5 e 24,9
Entre 25 e 29,9
Acima de 30
Abaixo do peso
Peso Normal
Sobrepeso
Obesidade
Programação Estruturada
Exemplos com Move
MOVE VAR1 TO VAR2
VAR1
ABCD
123
1000
12,34
,12
123,4
ABC
NOME
321
PIC
X(4)
999
9(4)
99V99
V99
999V9
XXX
X(4)
999
VAR2
EFGH
4567
___
56,789
,3
00
DEFGH
___
DCBA
PIC
VAR 2 (APÓS O MOVE)
X(4)
9(4)
999
99V999
V9
99
X(5)
X(3)
X(4)
Programação Estruturada
Exemplos com Move
MOVE VAR1 TO VAR2
VAR1
ABCD
123
1000
12,34
,12
123,4
ABC
NOME
321
PIC
X(4)
999
9(4)
99V99
V99
999V9
XXX
X(4)
999
VAR2
EFGH
4567
___
56,789
,3
00
DEFGH
___
DCBA
PIC
VAR 2 (APÓS O MOVE)
X(4)
ABCD
9(4)
0123
999
000
99V999
12,340
V9
,1
99
23
X(5)
ABC_ _
X(3)
NOM
X(4)
321_
Programação Estruturada
05 DATA-CONTRATO.
10 MÊS-CONTRATO PIC 99.
10 ANO-CONTRATO PIC 9(4).
MOVE 1 TO MÊS-CONTRATO.
MOVE 2009 TO ANO-CONTRATO.
DATA-CONTRATO = 012009
MOVE 12009 TO DATA-CONTRATO.
DATA-CONTRATO = 12009_
Programação Estruturada
EDIÇÃO DE TELA E RELATÓRIO
CONSTANTE
003,21
003,21
123$9.999,9
12,34
12,34
-120
+500
089354332
JCARDOSO
01012009
000,45
000,00
PIC
ZZ9,99
ZZZ,99
$ 1.234,2
$ZZ,99
$***.***,99
S9(3)
S9(3)
999b99b9999
XbX(25)
99/99/9999
$$$$,99
$$$$,99 BLANK
EDIÇÃO
3,21 (SUPRIME OS ZEROS À ESQUERDA)
3,21
$12,34
$***.*12,34
-120
+500
089 35 4332
J CARDOSO
01/01/2009
$,45
WHEN ZERO
Programação Estruturada
DATA DIVISION.
WORKING-STORAGE SECTION.
...
SCREEN SECTION.
01
TELA-1 [AUTO] [SECURE] [REQUIRED]
05
BLANK SCREEN.
05
LINE 1 COLUMN 1 VALUE ‘PAG: ‘.
05
COLUMN 8 PIC X(5) FROM PAG.
05
LINE 3 COLUMN 1 VALUE ‘NOME: ‘.
05
COLUMN 8 PIC X(20) TO NOME-ENT.
PROCEDURE DIVISION.
...
DISPLAY TELA-1
ACCEPT TELA-1
...
Programação Estruturada
DATA DIVISION.
WORKING-STORAGE SECTION.
...
SCREEN SECTION.
CORES:
BACKGROUND COLOR / FOREGROUND COLOR
0 – PRETO
1 – AZUL
2 – VERDE
3 – CIANO
4 – VERMELHO
5 – MAGENTA
6 – MARROM
7 – BRANCO
Programação Estruturada
DATA DIVISION.
WORKING-STORAGE SECTION.
...
SCREEN SECTION.
RECURSOS:
•
BLANK SCREEN
/ BLANK LINE (LIMPA TELA / LIMPA LINHA
•
BELL
(SINO)
•
BLINK
(PISCA)
**************************
•
HIGHLIGHT
(NEGRITO)
•
UNDERLINE
(SUBLINHADO)
•
REVERSE-VIDEO (REVERSO)