programa
cadeia BI, tel, fil, id, natural, morada, prov, estado, gen, data, nome
real saldo, valor, lev
inteiro opcao, totalContas = 0, numeroConta = 1000
funcao abrirConta()
escreva("Digite o nome do cliente: ")
leia(nome)
escreva("Digite a filiação: ")
leia(fil)
escreva("Digite a idade: ")
leia(id)
escreva("Digite o número do BI: ")
leia(BI)
escreva("Digite o número de telefone: ")
leia(tel)
escreva("Digite a naturalidade: ")
leia(natural)
escreva("Digite a morada: ")
leia(morada)
escreva("Digite a província: ")
leia(prov)
escreva("Digite o estado civil: ")
leia(estado)
escreva("Digite o gênero: ")
leia(gen)
escreva("Digite a data de nascimento: ")
leia(data)
escreva("Digite o valor de abertura (mínimo 100000 AKZ): ")
leia(saldo)
se (saldo < 100000)
escreva("Erro: valor mínimo para abrir a conta é 100000 AKZ.\n")
retorne
totalContas = totalContas + 1
numeroConta = numeroConta + 1
escreva("Conta criada com sucesso!\n")
escreva("Número da conta: ", numeroConta, "\n")
funcao consultarConta()
escreva("\n===== DETALHES DA CONTA =====\n")
escreva("Nome: ", nome, "\n")
escreva("Número da conta: ", numeroConta, "\n")
escreva("Filiação: ", fil, "\n")
escreva("Idade: ", id, "\n")
escreva("Número do BI: ", BI, "\n")
escreva("Telefone: ", tel, "\n")
escreva("Naturalidade: ", natural, "\n")
escreva("Morada: ", morada, "\n")
escreva("Província: ", prov, "\n")
escreva("Estado civil: ", estado, "\n")
escreva("Gênero: ", gen, "\n")
escreva("Data de nascimento: ", data, "\n")
escreva("Saldo atual: ", saldo, "\n")
funcao inicio()
enquanto (verdadeiro)
escreva("\n===== MENU =====\n")
escreva("1 - Consultar Conta\n")
escreva("2 - Depositar\n")
escreva("3 - Levantar\n")
escreva("4 - Abrir Conta\n")
escreva("5 - Sair\n")
escreva("Escolha uma opção: ")
leia(opcao)
se (opcao == 1)
consultarConta()
senao se (opcao == 2)
escreva("Digite o valor para depositar: ")
leia(valor)
saldo = saldo + valor
escreva("Depósito realizado. Novo saldo: ", saldo, "\n")
senao se (opcao == 3)
escreva("Digite o valor para levantar: ")
leia(lev)
se (lev > saldo)
escreva("Erro: saldo insuficiente.\n")
senao
saldo = saldo - lev
escreva("Levantamento realizado. Novo saldo: ", saldo, "\n")
senao se (opcao == 4)
abrirConta()
senao se (opcao == 5)
escreva("Programa encerrado.\n")
retorne
senao
escreva("Opção inválida. Tente novamente.\n")