Exemplo 5

=============================================================
Exemplo 5:

Problema: Faça um algoritmo que leia vários números e mostre o triplo decada número. O algoritmo acaba quando o número -999 for lido.
=============================================================

// Seção de Declarações

var
numero:inteiro

inicio

// Seção de Comandos
// Vamos usar a instrução de repetição REPITA, devido essa instução ser executada
// no mínimo uma vez.

repita
      escreva("Escreva um valor: ")
      leia(numero)
     
// A instrução SE serve para caso o  número seja -999, o programa nao vai mostrar
// o resultado do triplo do número.

      se(numero<>-999)entao
      escreval("Seu triplo é igual a: ",numero*3)
      fimse
ate(numero=-999)

fimalgoritmo

=============================================================