Escreva um algoritmo que, para uma conta bancária, leia o seu número, o saldo atual. – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Escreva um algoritmo que, para uma conta bancária, leia o seu número, o saldo atual.





Sugestão de resposta em java

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
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");
            }
 
        }
 
 
 
    }
 
}

Sugestão de resposta em Delphi, Pascal, Lazarus

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
{ 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.

Você pode baixar o exemplo em pascal pelo link abaixo:

Download “Exemplo do algoritmo em pascal conta bancária” conta-bancaria.7z – Baixado uma vez – 102 KB

Dúvidas ou sugestões? Deixe seu comentário.

Facebook Comments
  • Franciele Benedetti
  • 741 views
  • 0 comentários
  • 20 de maio de 2018

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2018 Infus Soluções em Tecnologia - Todos os Direitos Reservados