PROBLEMA: Dada uma seqüência de inteiros não-nulos, seguida de um 0, determinar a soma dos inteiros da seqüência.

programa principal
{
 inteiro Num, Soma;
 Soma <-- 0;
 leia (Num);
 imprima (Num);
 enquanto (Num != 0)
    {
     Soma <-- Soma + Num;
     leia (Num);
     imprima (Num)
    }
 imprima (Soma);
 devolva 0;
}

Mesmo programa, apresentado em estilo diferente. Veja como ficaram os pares de { } tanto no programa principal como no comando ¨enquanto¨.

programa principal{
  inteiro Num, Soma;
  Soma <-- 0;
  leia (Num);
  imprima (Num);
  enquanto (Num != 0){
     Soma <-- Soma + Num;
     leia (Num);
     imprima (Num)
  }
  imprima (Soma);
  devolva 0;
}

Uma variante do primeiro programa, com a impressão de mais mensagens (na tela).

programa principal
{
 inteiro Num, Soma;
 Soma <-- 0;
 imprima (¨Entre com o primeiro numero¨);
 leia (Num);
 imprima (¨Numero dado = ...¨, Num);
 enquanto (Num != 0)
   {
    Soma <-- Soma + Num;
    imprima(¨Entre com o proximo numero:¨);
    leia (Num);
    imprima (¨Numero dado = ...¨, Num)
   }
 imprima (¨Soma total = ...¨, Soma); 
 devolva 0;
}

OBS: Por ora, colocar sempre o comando ¨devolva 0¨ no final do programa. O valor O (zero) não vai aparecer na tela (é apenas uma indicação para o sistema de que a execução do programa terminou sem problemas).

Last modified: Mon Mar 12 20:08:11 BRT 2012