Programao Estruturada PERFORM 200 SOMA UNTIL IND 50

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 VAR 1 TO VAR 2 VAR 1 ABCD 123 1000 12, 34 , 12 123, 4 ABC NOME 321 PIC X(4) 999 9(4) 99 V 99 999 V 9 XXX X(4) 999 VAR 2 EFGH 4567 ___ 56, 789 , 3 00 DEFGH ___ DCBA PIC VAR 2 (APÓS O MOVE) X(4) 999 99 V 999 V 9 99 X(5) X(3) X(4)

Programação Estruturada Exemplos com Move MOVE VAR 1 TO VAR 2 VAR 1 ABCD 123 1000 12, 34 , 12 123, 4 ABC NOME 321 PIC X(4) 999 9(4) 99 V 99 999 V 9 XXX X(4) 999 VAR 2 EFGH 4567 ___ 56, 789 , 3 00 DEFGH ___ DCBA PIC VAR 2 (APÓS O MOVE) X(4) ABCD 9(4) 0123 999 000 99 V 999 12, 340 V 9 , 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 = 12009_

Programação Estruturada EDIÇÃO DE TELA E RELATÓRIO CONSTANTE 003, 21 123$9. 999, 9 12, 34 -120 +500 089354332 JCARDOSO 01012009 000, 45 000, 00 PIC EDIÇÃO ZZ 9, 99 3, 21 (SUPRIME OS ZEROS À ESQUERDA) ZZZ, 99 3, 21 $ 1. 234, 2 $ZZ, 99 $12, 34 $***. ***, 99 $***. *12, 34 S 9(3) -120 S 9(3) +500 999 b 9999 089 35 4332 Xb. X(25) J CARDOSO 99/99/9999 01/01/2009 $$$$, 99 $, 45 $$$$, 99 BLANK 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)