perform 200 soma until ind 50 end perform 200 soma add 2 to soma add soma to tot 50 add 1 to ind
Download
Skip this Video
Download Presentation
PERFORM 200-SOMA UNTIL IND > 50 END-PERFORM. 200-SOMA. ADD 2 TO SOMA

Loading in 2 Seconds...

play fullscreen
1 / 10

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


  • 151 Views
  • Uploaded on

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.

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about ' PERFORM 200-SOMA UNTIL IND > 50 END-PERFORM. 200-SOMA. ADD 2 TO SOMA' - basil-nash


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

slide3

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
slide4

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)

slide5

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_

slide6

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_

slide7

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

slide8

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

...

slide9

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

slide10

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)

ad