OBS: Veja os diferentes estilos na forma de colocar os pares {} no comando ¨enquanto¨.

PROBLEMA: Imprimir todos os inteiros de 1 a 100.

programa principal
{
 inteiro Num;
 Num <--1;
 enquanto (Num <= 100)
   {
    imprima (Num);
    Num <-- Num + 1:
   }
 devolva 0;
}

PROBLEMA: Dado um inteiro positivo K, imprimir todos os inteiros de 1 a K.

programa principal
{
 inteiro K, Num;
 Num <--1;
 enquanto (Num <= K)
  {
   imprima (Num);
   Num <-- Num + 1:
  }
 devolva 0;
}

PROBLEMA: Dados dois inteiros X e Y, tais que X < Y, imprimir todos os inteiros de X a Y.

programa principal
{
 inteiro X, Y, Num;
 leia (X, Y);
 Num <-- X;
 enquanto (Num <= Y){
   imprima (Num);
   Num <-- Num + 1:
 }
 devolva 0;
}

PROBLEMA: Dado um inteiro positivo N, calcular a soma de todos os
inteiros de 1 a N.
programa principal
{
 inteiro N, Num, Soma;
 leia (N);
 imprima (¨N=...¨, N);
 Soma <-- 0;
 Num <-- 1;
 enquanto (Num <= N){
   Soma <-- Soma + Num;
   Num <-- Num + 1:
 }
 imprima (¨Soma = ...¨, Soma);
 devolva 0;
}





Last modified: Tue Aug 14 19:31:55 BRT 2007