Question

Crie um algoritmo que execute as funcionalidades da conta-corrente de uma pessoa. Toda a conta tem um número, uma pessoa vinculada e um saldo. O saldo é atualizado conforme o tipo de movimentação bancária: depósito ou retirada. Além disso, o usuário poderá consultar saldo e transferir certo valor. Executar o programa enquanto o usuário desejar.

Answer 1

program conta_corrente; 

uses crt; 
var 
numero_conta,count:integer; 
nome:string[20]; 
opcao:char; 
saldo,valor:real; 

begin 
for count:= 1 to 1134 do begin 
clrscr; 
writeln('CLIENTE [',count,']'); 
writeln(); 
write('Digite o número da conta corrente....: '); 
readln(numero_conta); 
write('Digite o nome do corentista..........: '); 
readln(nome); 
write('Digite o saldo.......................: $ '); 
readln(saldo); //saldo a partir do qual será retirado ou depositado valores 

writeln(); //Operações que irão manipular(atualizar) o saldo que está na conta 
writeln('Digite o número correspondente à operação:'); 
writeln(); 
writeln('[1 - Depósito] | [2 - Retirada]'); 
write('>> '); 
readln(opcao); 

writeln(); 
if (opcao = '1') then begin 
write('Digite o valor à ser depositado......: $ '); 
readln(valor); 
saldo := saldo + valor; //atualização do saldo com o depósito 
end 
else begin 
write('Digite o valor à ser retirado........: $ '); 
readln(valor); 
saldo := saldo - valor; //atualização do saldo com a retirada 
end; 

writeln();//Saída de dados 
writeln('Nome do correntista..................: ',nome); 
writeln('O novo saldo é.......................: $ ',saldo:0:2); 

if (saldo < 0) then 
writeln('SALDO NEGATIVO !') 
else 
writeln('SALDO POSITIVO !'); 
writeln(); 
writeln('Pressione qualquer tecla para continuar...'); 
readln();//após a tecla pressionada será feita a entrada de dados para o próximo cliente 
end; 

end.