package exerciciocontabancaria;
 
import javax.swing.JOptionPane;
 
/**
*
* @author Franciele
*/
public class ExercicioContaBancaria {
 
/**
* @param args the command line arguments
*/
public static void main(String[] args) {
/* Escreva um algoritmo que, para uma conta bancária, leia o seu número, o saldo atual.
Depois leia o tipo de operação a ser realizada (depósito ou saque) e o valor da operação.
Após, determine e mostre o novo saldo. Se o novo saldo ficar negativo, deve ser
mostrada, também, a mensagem "conta estourada". */
 
 
int numero;
double saldoAtual;
double valorOperacao;
Double novoSaldo;
 
System.out.println("Informe o número da sua conta");
numero = Integer.parseInt(JOptionPane.showInputDialog("Informe o número da sua conta "));
 
System.out.println("Informe o seu saldo atual");
saldoAtual = Integer.parseInt(JOptionPane.showInputDialog("Informe o seu saldo atual "));
 
System.out.println("Informe o tipo de operação: 1 Depósito."
+ " 2 Saque");
numero = Integer.parseInt(JOptionPane.showInputDialog("Informe o tipo de operação: 1 Depósito."
+ " 2 Saque"));
 
 
System.out.println("Informe o valor da operação");
valorOperacao = Integer.parseInt(JOptionPane.showInputDialog("Informe o valor da operação "));
 
if (numero == 1) {
 
novoSaldo = (saldoAtual + valorOperacao);
System.out.println("O seu novo saldo é: " + novoSaldo);
} else {
novoSaldo = (saldoAtual - valorOperacao);
System.out.println("O seu novo saldo é: " + novoSaldo);
if (novoSaldo < 0) {
System.out.println("Conta estourada");
}
 
}
 
 
 
}
 
}

{ Criado por Giovani Da Cruz }
 
program contaBancaria;
 
{$mode objfpc}{$H+}
 
uses
Classes, SysUtils, CustApp;
 
var
vNumeroConta, vPergunta : string;
vSaldoAtual, vValorOperacao, vNovoSaldo : Double;
vTipoOperacao : Integer;
begin
Write('Informe o Numero da conta: ');
ReadLn(vNumeroConta);
 
Write('Informe o saldo atual: ');
ReadLn(vSaldoAtual);
 
Write('Informe o tipo sa operacao (1-deposito, 2-saque): ');
ReadLn(vTipoOperacao);
 
if vTipoOperacao = 1 then
vPergunta:= 'Informe o valor do deposito: '
else
vPergunta:='Informe o valor do saque: ';
 
Write(vPergunta);
ReadLn(vValorOperacao);
 
if vTipoOperacao = 1 then
vNovoSaldo := vSaldoAtual + vValorOperacao
else
vNovoSaldo := vSaldoAtual - vValorOperacao;
 
WriteLn('O novo saldo eh: ', vNovoSaldo :0:2);
 
if vNovoSaldo < 0 then
begin
WriteLn('Conta estourada!');
end;
 
WriteLn('Tecle entre para sair.');
ReadLn;
end.