Pascalzim, banco

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (255 palavras )
  • Download(s) : 0
  • Publicado : 23 de abril de 2013
Ler documento completo
Amostra do texto
//4. Fazer um programa que leia o saldo inicial de uma conta corrente, apresente e execute em seguida um menu com as seguintes opções:
//1. Efetuar um depósito emostrar o novo saldo
//2. Efetuar um saque e mostrar o novo saldo
//3. Mostrar o saldo
//4. Sair
//Notar que somente pode ser efetuado um saque com valor igual ouinferior ao saldo da conta.
//Quando forem realizados depósitos ou saques, o saldo deve ser atualizado.
Program Pzim ;
var
saldo,depo,saque,saldoat:real;op:integer;

Begin
op:=0;
writeln('Informe o seu saldo: ');
read(saldo);
while (op 4) do
begin

writeln('1. Efetuar um depósito e mostrar onovo saldo');
writeln('2. Efetuar um saque e mostrar o novo saldo');
writeln('3. Mostrar o saldo ');
writeln('4. Sair ');
read(op);
case op of1:begin writeln('Informe quanto deseja depósitar: ');
read(depo);
saldo:=depo+saldo;
writeln('Seu saldo sera de: ',saldo:1:2);
end;2:begin writeln('Informe Quanto deseja sacar');
read(saque);
saldo:=saldo-saque;
if saldo > 0 then
writeln('Seu saldo atual sera: ',saldo:1:2)else
if saldo > -7000 then
begin
write('Seu saldo sera Negativo, é sera cobrado 7% sobre o valor negativo que é: ',saldo:1:2);
writeln('O jurospago por mês sera de: ',(saldo*0.07):1:2)
end
else
writeln('Seu Saldo Excedera o cheque Especial, Assim encerando sua conta!!');
end;3:writeln('Seu saldo é: ',saldo:1:2);
4:writeln('Tecle ENTER para terminar o programa');
else
writeln('Oção Invalida!!');
end;

end;


End.
tracking img