Eae pessoal, tô aprendendo algoritmos com o Gustavo Guanabara do Curso em Vídeo. Comecei a criar um programa que simulasse um caixa eletrônico. Aos poucos e conforme vou avançando no curso eu vou implementando coisas novas ao programa. No momento ele está assim. Gostaria de saber como posso melhorá-lo, especialmente na linha 52, pois a verificação ficou gigante! kkk. Me arrependi de não ter feito submenus, mas logo logo vou fazer isso. E outra coisa, vocês podem reparar que em alguns comandos de escreva eu digitei "saldo:10:2". Queria saber como mostrar qualquer quantidade de números antes da vírgula, pois colocando 999 números por exemplo, não aparece nada quando inicio o programa. Aí coloquei 10 mesmo.
algoritmo "semnome"
var
opções, codigo, dep: Inteiro
saque, saldoD, emprestimo, saldo, valor: Real
repetir, fazerpag, mais_dep, outra_op, outro_pag: caractere
procedimento menu(var V1, V2, V3, V4: real)
var
T1, T2, T3, T4: real
inicio
T1 <- V1
T1 <- T1 + V2
T1 <- T1 - V3
T1 <- T1 - V4
limpatela
escrevaL("------------------------------------")
escrevaL("****BEM VINDO AO BANCO DO BOSTIL****")
escrevaL("------------------------------------")
escreval(" Digite [1] para depositar")
escrevaL(" Digite [2] para efetuar saques")
escrevaL(" Digite [3] para fazer pagamentos")
escrevaL(" Digite [4] para contratar um empréstimo")
escrevaL(" Digite [5] para converter moedas")
escreval(" Digite [6] para encerrar")
Leia(opções)
Escolha opções
fimprocedimento
inicio
limpatela
escrevaL("------------------------------------")
escrevaL("****BEM VINDO AO BANCO DO BOSTIL****")
escrevaL("------------------------------------")
escreval(" Digite [1] para depositar")
escrevaL(" Digite [2] para efetuar saques")
escrevaL(" Digite [3] para fazer pagamentos")
escrevaL(" Digite [4] para contratar um empréstimo")
escrevaL(" Digite [5] para converter moedas")
escreval(" Digite [6] para encerrar")
Leia(opções)
Escolha opções
limpatela
saldo <- T1
caso 1
repita
limpatela
escreval("Cédulas aceitas: 100, 50, 20")
escreval("--------------------------------")
escreva("Digite o valor para depósito: ")
leia(dep)
se ((((((((dep%100=0)e(dep%50=0))e(dep%20=0))ou((dep%100=0)ou(dep%50=0)))ou(((dep%100=0)ou(dep%20=0))ou((dep%50=0)ou(dep%20=0))))ou(((dep-10)%100=0)ou((dep-30)%100=0)ou((dep-70)%100=0)ou((dep-90)%100=0)))e((dep>0)e(dep>10)))e(dep>30))ou(dep=20)entao
escreval("--------------------------------")
escreval("Depósito de R$", dep," efetuado.")
saldo <- saldo + dep
senao
escreval("O caixa não aceita este valor")
fimse
escreval("--------------------------------")
escreval("Saldo disponível R$", saldo:10:2)
escreval("--------------------------------")
escreva("Deseja fazer outra operação? [S/N]")
leia(mais_dep)
ate(mais_dep = "N")
menu(saldo, dep, saque, valor)
caso 2
repita
limpatela
escrevaL("-----------------------------------------")
escrevaL(" FAÇA SEU SAQUE NO BANCO DO BOSTIL ")
escrevaL("-----------------------------------------")
escrevaL("Saldo disponível: R$", saldo:10:2)
escrevaL("-----------------------------------------")
escreva("Digite o valor do saque: ")
leia(saque)
se (saque > saldo) entao
repita
limpatela
escrevaL("valor indisponível, refaça a operação")
escrevaL("--------------------------------------")
escreval("Saldo disponível: R$", saldo:10:2)
escrevaL("--------------------------------------")
escreva("Digite o valor do saque: ")
leia(saque)
ate (saque <= saldo)
fimse
saldo <- saldo - saque
limpatela
escrevaL("-----------------------------------")
escreval("Saque de R$",saque, " efetuado.")
escrevaL("-----------------------------------")
escreval("Saldo disponível: R$", saldo:10:2)
escrevaL("-----------------------------------")
escreval("Deseja fazer outra operação? [S/N]")
leia(repetir)
limpatela
ate (repetir = "N")
escreval("O Banco do Bostil agradece pela preferência.")
escreval("-------------------------------------------")
escreval(" Tenha um bom dia.")
menu(saldo, dep, saque, valor)
caso 3
repita
limpatela
saldo <- saldo - valor
escreval("Saldo disponível: R$", saldo:10:2)
escreval("--------------------------------------")
escreva("Digite o código de barras (8 números): ")
leia(codigo)
escreva("Digite o valor: ")
leia(valor)
se (valor > saldo)entao
repita
limpatela
escreval("Saldo disponível: R$", saldo:10:2)
escreval("----------------------------------")
escreval("Valor para pagamento indisponível.")
escreval("----------------------------------")
escreva("Deseja fazer outra operação? [S/N] ")
leia(outra_op)
limpatela
se (outra_op = "N")entao
menu(saldo, dep, saque, valor)
senao
escreva("Digite o código de barras (8 números): ")
leia(codigo)
escreva("Digite o valor: ")
leia(valor)
fimse
ate (valor < saldo)
fimse
escreva("Efetuar pagamento de R$", valor, "? [S/N]")
leia(fazerpag)
se (fazerpag = "S")entao
escreva("Aguarde")
timer (1000)
escreva(".")
timer (900)
escreva(".")
timer (800)
escreva(".")
timer (0)
senao
fimse
limpatela
escreval("")
escreval(" Pagamento de R$", valor, " efetuado.")
escreva("Deseja fazer outro pagamento? [S/N]")
leia(outro_pag)
ate(outro_pag = "N")
limpatela
escreval("-------------------------------------------")
escreval("O Banco do Bostil agradece pela preferência.")
escreval("-------------------------------------------")
escreval(" Tenha um ótimo dia.")
timer(3500)
timer(0)
menu(saldo, dep, saque, valor)
caso 3
caso 4
caso 5
caso 6
fimalgoritmo
outrocaso
escreval("Opção indisponível")
timer(2000)
timer(0)
menu(saldo, dep, saque, valor)
fimescolha
fimalgoritmo