Perform 200 soma until ind 50 end perform 200 soma add 2 to soma add soma to tot 50 add 1 to ind
This presentation is the property of its rightful owner.
Sponsored Links
1 / 10

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


  • 98 Views
  • Uploaded on
  • Presentation posted in: General

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.

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.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -

Presentation Transcript


Perform 200 soma until ind 50 end perform 200 soma add 2 to soma add soma to tot 50 add 1 to ind

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 perform 100 soma 50 times ou perform 50 times add 2 to soma end perform

PERFORM rotina X TIMES.

PERFORM 100-SOMA 50 TIMES

OU

PERFORM 50 TIMES

ADD 2 TO SOMA

END-PERFORM


Perform 200 soma until ind 50 end perform 200 soma add 2 to soma

  • 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


  • Perform 200 soma until ind 50 end perform 200 soma add 2 to soma

    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)


    Perform 200 soma until ind 50 end perform 200 soma add 2 to soma

    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_


    Perform 200 soma until ind 50 end perform 200 soma add 2 to soma

    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_


    Perform 200 soma until ind 50 end perform 200 soma add 2 to soma

    EDIÇÃO DE TELA E RELATÓRIO

    CONSTANTE PIC EDIÇÃO

    003,21ZZ9,99 3,21 (SUPRIME OS ZEROS À ESQUERDA)

    003,21ZZZ,99 3,21

    $9.999,9 $ 1.234,2

    12,34$ZZ,99 $12,34

    12,34 $***.***,99 $***.*12,34

    -120S9(3)-120

    +500S9(3)+500

    089354332999b99b9999089 35 4332

    JCARDOSOXbX(25)J CARDOSO

    0101200999/99/999901/01/2009

    000,45$$$$,99$,45

    000,00 $$$$,99 BLANK WHEN ZERO


    Perform 200 soma until ind 50 end perform 200 soma add 2 to soma

    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

    ...


    Perform 200 soma until ind 50 end perform 200 soma add 2 to soma

    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


    Perform 200 soma until ind 50 end perform 200 soma add 2 to soma

    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)


  • Login