Exemplos de programa em cobol

Disponível somente no TrabalhosFeitos
  • Páginas : 11 (2501 palavras )
  • Download(s) : 0
  • Publicado : 11 de abril de 2013
Ler documento completo
Amostra do texto
PROGRAMA 1


       identification division.
       program-id ola.
       
       environment division.
       configuration section.
       special-names. decimal-point is comma.       
       
       
       procedure division.
       display "Hoje começamos a aprender COBOL... que alegria.".
       stop"".
       stop run.


PROGRAMA 2

identification division.
      program-id ola.
       
       environment division.
       configuration section.
       special-names. decimal-point is comma.       
       
       working-storage section
       
       77    n1      pic    99.
       77    n2      pic    99.
       77    escolha      pic    99.
       77    soma    pic    99.
       77    sub     pic    99.
       77    mult    pic    99.
       77   div     pic    99.
       
       
       procedure division.
       display "Hoje Vamos calcular:".
       display "Escolha a operação".
       
       display "1-Somar".
       display "2-Subtrair".
       display "3-Multiplicar".
       display "4-Dividir".
       accept escolha at 0910.
       
       
       display "Digite dois numeros:" at 1110.
       accept n1 at 1310.
      accept n2 at 1510 .
       
       if escolha = 1 then
       perform compute soma = n1 + n2
       display "Soma  =" at 1710
       display soma at 1720
       
       else if escolha = 2
       compute sub = n1 - n2
       display "Subtracao =" at 1710
       display sub at 1720
       
       else if escolha = 3
       compute mult = n1 * n2
       display "Multiplicacao ="at 1710
       display mult at 1728
       
       else if escolha = 4
       compute div = n1 / n2
       display "Divisão =" at 1710
       display div at 1720
       end-if.
        
       stop"".
       stop run.






























PROGRAMA 3

 IDENTIFICATION DIVISION.
       PROGRAM-ID TesteAula01_Num
       AUTHOR. Naiara.
      DATE-WRITTEN. 21/08/2012.
       
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
       
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 val  PIC 99 VALUE ZEROS.
       77 resto  PIC 99 VALUE ZEROS.
       77 digito  PIC 9(8) VALUE ZEROS.
       01 NUMEROMATRICULA.
          02 m1 pic 9.
          02 m2 pic 9.
         02 m3 pic 9.
          02 m4 pic 9.
          02 m5 pic 9.
          02 m6 pic 9.
          02 m7 pic 9.
          02 m8 pic 9.
          
              
       PROCEDURE   DIVISION.
       INICIO.
       
       DISPLAY ERASE.
       DISPLAY "Digite o número da matrícula:" AT 0110
       
       accept NUMEROMATRICULA with full at 0210
       
       compute val = (m1*9) +(m2*8) + (m3*7) + (m4*6) + (m5*5) + (m6*4)
        + (m7*3) + (m8*2).
       
       divide val by 11 giving val remainder resto
       if resto < 2 then
       move resto to digito
       display digito at 0310
       else
       compute digito = 11 - resto
       display resto at 0310.
       
       
          STOP " ".
          STOP RUN.








PROGRAMA 4 IDENTIFICATION DIVISION.
           PROGRAM-ID Consistencia
           AUTHOR. Henrique.
           DATE-WRITTEN. 21/08/2012.
       
           ENVIRONMENT DIVISION.
           CONFIGURATION SECTION.
       SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
       
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 val  PIC 99 VALUE ZEROS.
       77 resto  PIC 99 VALUE ZEROS.
       77 digito PIC 9(8) VALUE ZEROS.
       01 NUMEROMATRICULA.
          02 m1 pic 9.
          02 m2 pic 9.
          02 m3 pic 9.
          02 m4 pic 9.
          02 m5 pic 9.
          02 m6 pic 9.
          02 m7 pic 9.
          02 m8 pic 9.
          
              
       PROCEDURE   DIVISION.
       INICIO.
       
       DISPLAY ERASE.
       
       DISPLAY "Digite o número da...
tracking img