Question

avaliar algoritmo em portugol feito no visuALG
oque vocês acham desse algoritmo que eu fiz dias atras, estou fazendo técnico em informatica, dê sua opinião tanto positiva quanto negativa ou alguma sintaxe que você achou uma forma melhor de expressar

algoritmo "consúlta banco"
var
sal,saq,dep:real
op,ops,senha,tentativas,nt:inteiro
usu:caractere
inicio
usu<-"pablo"
senha<-8738
tentativas<-0
escreval("bem vindo")
escreval("digite o nome do usuario e senha")
escreva("usuaio: ")
leia(usu)
escreva("senha: ")
leia(senha)
limpatela
se(usu <> "pablo")ou(senha <> 8738)entao
repita
t<-t+1
se(t<>3)entao
nt<-3-t
escreval("numero de tentativas restantes: ",nt)
escreval("usuario ou senha incorretos digite novamente")
escreva("usuario: ")
leia(usu)
escreva("senha: ")
leia(senha)
limpatela
senao
escreval("numero de tentativas excedido, por motivos de segurança o programa foi encerrado")
fimalgoritmo
fimse
ate(usu = "pablo")e(senha = 8738)
fimse
escreval("acesso permitido")
escreval("digite o saldo do usuario")
leia(sal)
limpatela
repita
repita
escreval("deseja realizar qual operação")
escreval("(1)deposito")
escreval("(2)saque")
escreval("(3)depositar cheque")
leia(op)
ate(op >0)e(op < 4)
limpatela
escolha op
caso 2
escreval("qual o valor do saque")
leia(saq)
sal<-sal-saq
caso 1
escreval("qual o valor do deposito")
leia(dep)
sal<-sal + dep
caso 3
escreval("qual o valor do cheque")
leia(dep)
sal<-sal + dep
fimescolha
limpatela
escreval("saldo atualizado é: R$ ",sal)
escreval("deseja realizar mais uma operação")
escreval("(1)sim")
escreval("(2)não")
leia(op)
se(op = 1)ou(op = 2)entao
limpatela
senao
repita
escreval("comando incorreto digite novamente")
leia(op)
ate(op >0)e(op<3)
fimse
se(op = 1)entao
escreval("deseja utilizar o saldo anterior")
escreval("(1)sim")
escreval("(2)não")
leia(ops)
se(ops > 0)e(ops<3)entao
limpatela
senao
repita
escreval("comando incorreto digite novamente")
leia(ops)
ate(ops >0)e(ops<3)
limpatela
fimse
se(ops < 3)e(ops >1)entao
escreval("digite o novo saldo")
leia(sal)
senao
escreval("saldo anterior de R$",sal," mantido")
fimse
senao
escreval("obrigado por utilizar o algoritmo")
fimalgoritmo
fimse
ate (op = 2)
fimalgoritmo

Answer 1

Esse Programa Está Bom Eu Também Faço Técnico Em Informática, Eu Também Fiz Um Programa Desse Ai De Banco Mais Foi No Pascal, Eu Coloquei, Que Quando A Pessoa Digita O Dinheiro que quer tirar diminui o saldo do Banco, mais esse programa ai ta muito legal parabéns