Algoritmo doação

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

conalgoritmo "semnome"
// Função :
// Autor :
// Data : 12/12/2015
// Seção de Declarações 
var
valor, d:inteiro
inicio
 escreval("-----------------------------")
 
 escreval(" Criança esperança ")
 escreval("-----------------------------")
 
 
 escreval("[1] Para doar R$ 10")
 
 escreval("[2] Para doar R$ 20")
 
 escreval("[3] Para doar R$ 30")
 
 escreval("[4] Para doar R$ 50")
 escreval("[5] Para doar outros valores")
 
 escreval("[6] Para cancelar")
 leia(d)
 escolha d
 fimescolha
 
 caso 1
 valor <- 10
 
 caso 2
 valor <- 20
 caso 3
 valor <- 30
 caso 4
 valor <- 50
 
 caso 5
 escreval("Para doar outros valores")
 leia(valor)
 caso
 valor <- 0
 
 fimescolha
 
 escreval("-----------------------------")
 
 escreval("Faça sua doação para caridade", valor)
 
 escreval(" Muito obrigado ")
 
 escreval("-----------------------------")
 
 fimalgoritmo
 
fimalgoritmo