Laço de Repetição Cobol

           Descrição: Identifica a quantidade de números pares digitados, a quantidade de números impares e também o percentual de números pares e impares.  

*=============================================================

*                                                     Laço de Repetição Cobol

*=============================================================

identification division.
       program-id.               LacoRepeticao.
       author.                   DionatanAlves.
       data division.
       working-storage section.

       77 numero                      pic 999 value zero.
       77 pares                       pic 999 value zero.
       77 impares                     pic 999 value zero.
       77 d                           pic 999 value zero.
       77 resto                       pic 999 value zero.
       77 pp                          pic 99v99 value zero.
       77 pi                          pic 99v99 value zero.
       77 i                           pic 99 value zero.
       77 ms                          pic ZZ9.99 value zero.
procedure division.
       inicio.

display erase
          perform varying i from 1 by 1 until  i>10
              display "numero" i
              accept numero
              compute d=numero/2
              compute resto=numero - d*2
          if resto <> 0 then
             add 1 to impares
          else
             add 1 to pares
          end-if
       end-perform
        compute pp=((pares /10) * 100)
        compute pi=((impares / 10) * 100)
        display erase
         display "Qtd de numeros pares :" at 1010 pares
         display "Qtd de numeros impare :" at 1110 impares
         move pp to ms
         display "Percentual de numeros pares: " at 1210 ms
         move pi to ms
         display "Percentual de numeros impares: " at 1310 ms
stop run
 .