Algoritmo "EC012-CDLFriends3.4"
Var
   Nome: Caractere
   Valor: Real
   Contador: Inteiro
   Resultado: Real
   ES,AS: Inteiro
   Rando: Inteiro
Inicio
   Contador <- 0
MudaCor("Verde","Frente")
Escreval("------------------")
Escreval("    AMIGOS*CDL    ")
Escreval("------------------")
Escreval()
Escreval("Bem vindo ao Amigos CDL, digite o seu nome: ")
Leia (Nome)
Escreval("Digite o seu valor em créditos: ")
Leia(Valor)
Escreval("Digite um número referente ao produto abaixo: ")
Escreval()
Repita
Repita
   Escreval("[1] Banana: 1.00 ")
   Escreval("[2] Maçã: 2.00 ")
   Escreval("[3] Melão: 3.50")
   Escreval("[4] Pera: 4.90")
   escreval("[5] Tomate: 100.99")
   Escreval("[6] Finalizar Compra. ")
   Escreval()
   Escreva("Escolha um produto: ")
   Leia(ES)
   Escreval()
   Escolha ES
   Caso 1
      Valor <- Valor - 1.00
   Caso 2
      Valor <- Valor - 2.00
   Caso 3
      Valor <- Valor - 3.50
   Caso 4
      Valor <- Valor - 4.90
   Caso 5
      Valor <- Valor - 100.99
   Outrocaso
   Escreval("Erro, digite apenas os números em destaque")
      Escreval()
   FimEscolha
   Contador <- Contador + 1
Ate (ES = 6) Ou (Valor <= 0)
Rando <- Randi(1000)
Se (Valor <= 0) Entao
   Escreval(Nome,", você excedeu o seu valor em créditos, redirecionando agora para a finalização das compras")
   Timer(Rando)
   LimpaTela
   Escreva("Processando")
   Timer(Rando)
   Escreva(".")
   Timer(Rando)
   Escreva(".")
   Timer(Rando)
   EscrevaL(".")
   Escreval()
   Escreval(Nome,", você excedeu o seu valor em créditos; os seus créditos atuais são: ",Valor:3:2)
Senao
   LimpaTela
   Escreva("Processando")
   Timer(Rando)
   Escreva(".")
   Timer(Rando)
   Escreva(".")
   Timer(Rando)
   EscrevaL(".")
   Escreval()
   Escreval(Nome,", você escolheu",Contador," intens, deixando o seu valor total em créditos de: ", Valor:3:2)
   Escreval("Digite [1] para continuar comprando ou [2] para finalizar")
   Leia(AS)
   Escreval()
Fimse
Ate (AS = 2) ou (Valor <= 0)
Fimalgoritmo