1 / 10

PERFORM 200-SOMA UNTIL IND > 50 END-PERFORM. 200-SOMA. ADD 2 TO SOMA

PERFORM 200-SOMA UNTIL SOMA > 50 END-PERFORM 200-SOMA. ADD 2 TO SOMA ADD SOMA TO TOT-50. . PERFORM 200-SOMA UNTIL IND > 50 END-PERFORM. 200-SOMA. ADD 2 TO SOMA ADD SOMA TO TOT-50 ADD 1 TO IND. . PERFORM rotina X TIMES.

basil-nash
Download Presentation

PERFORM 200-SOMA UNTIL IND > 50 END-PERFORM. 200-SOMA. ADD 2 TO SOMA

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. PERFORM 200-SOMA UNTIL SOMA > 50 END-PERFORM 200-SOMA. ADD 2 TO SOMA ADD SOMA TO TOT-50. PERFORM 200-SOMA UNTIL IND > 50 END-PERFORM. 200-SOMA. ADD 2 TO SOMA ADD SOMA TO TOT-50 ADD 1 TO IND.

  2. PERFORM rotina X TIMES. PERFORM 100-SOMA 50 TIMES OU PERFORM 50 TIMES ADD 2 TO SOMA END-PERFORM

  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

  4. Exemplos com Move MOVE VAR1 TO VAR2 VAR1 PIC VAR2 PIC VAR 2 (APÓS O MOVE) ABCD X(4) EFGH X(4) 123 999 4567 9(4) 9(4) _ _ _ 999 12,34 99V99 56,789 99V999 ,12 V99 ,3 V9 123,4 999V9 00 99 ABC XXX DEFGH X(5) NOME X(4) _ _ _ X(3) 321 999 DCBA X(4)

  5. Exemplos com Move MOVE VAR1 TO VAR2 VAR1 PIC VAR2 PIC VAR 2 (APÓS O MOVE) ABCD X(4) EFGH X(4) ABCD 123 999 4567 9(4) 0123 9(4) _ _ _ 999 000 12,34 99V99 56,789 99V999 12,340 ,12 V99 ,3 V9 ,1 123,4 999V9 00 99 23 ABC XXX DEFGH X(5) ABC_ _ NOME X(4) _ _ _ X(3) NOM 321 999 DCBA X(4) 321_

  6. 05 DATA-CONTRATO. 10 MÊS-CONTRATO PIC 99. 10 ANO-CONTRATO PIC 9(4). MOVE 1 TO MÊS-CONTRATO. DATA-CONTRATO = 012009 MOVE 2009 TO ANO-CONTRATO. MOVE 12009 TO DATA-CONTRATO. DATA-CONTRATO = 12009_

  7. EDIÇÃO DE TELA E RELATÓRIO CONSTANTE PIC EDIÇÃO 003,21 ZZ9,99 3,21 (SUPRIME OS ZEROS À ESQUERDA) 003,21 ZZZ,99 3,21 $9.999,9 $ 1.234,2 12,34 $ZZ,99 $12,34 12,34 $***.***,99 $***.*12,34 -120 S9(3) -120 +500 S9(3) +500 089354332 999b99b9999 089 35 4332 JCARDOSO XbX(25) J CARDOSO 01012009 99/99/9999 01/01/2009 000,45 $$$$,99 $,45 000,00 $$$$,99 BLANK WHEN ZERO

  8. 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 ...

  9. 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

  10. 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)

More Related