Ricardo, apostou em corridas de cavalos R$ 150,00. Acertou o ganhador e com isso, recebeu 80 vezes o valor apostado. Ao receber o prêmio, constatou que haviam descontos como segue: – 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

Ricardo, apostou em corridas de cavalos R$ 150,00. Acertou o ganhador e com isso, recebeu 80 vezes o valor apostado. Ao receber o prêmio, constatou que haviam descontos como segue:

 

a) 3,5 % para a associação dos apostadores
b) R$ 40,00 como taxa de uso do caixa do Hipódromo
c) 1,45% para o seguro do cavalo ganhador
d) e por fim, o I.R. lhe tirou 10%, do saldo já descontando as outras taxas, que ele ia levar para casa.
Escrever um algoritmo e um programa que faça o extrato (na tela do computador) que Ricardo deveria
receber pelo caixa do Hipódromo, mostrando o valor ganho bruto, os descontos individualizados e o valor
que realmente ele levou para casa.

Sugestão de resposta do algoritmo em linguagem algorítmica:

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
program Prj00015AlgoritmosSequencias;
 
const
  VALOR_APOSTA = 150.00;
  TAXA_HIPODROMO = 40.00;
 
var
  vGanhoBruto, vAssociacao, vSeguro, vIR,
  vGanhoLiquido : Currency;
 
begin
 
  vGanhoBruto := VALOR_APOSTA * 80;
  vAssociacao := vGanhoBruto * 0.035;
  vSeguro := vGanhoBruto * 0.0145;
  vIR := (vGanhoBruto - vAssociacao - TAXA_HIPODROMO - vSeguro) * 0.1;
  vGanhoLiquido := vGanhoBruto - vAssociacao -
  TAXA_HIPODROMO - vSeguro - vIR;
 
  Escreva('O ganho bruto foi de: ', vGanhoBruto :0:2);
  Escreva('O valor para a associacao foi de: ', vAssociacao :0:2);
  Escreva('A taxa do Hipodromo foi de: ', TAXA_HIPODROMO :0:2);
  Escreva('O valor de associacao foi de: ', vSeguro :0:2);
  Escreva('O valor de IR foi de: ', vIR :0:2);
  Escreva('O ganho liquido foi de: ', vGanhoLiquido :0:2);
 
end.

 

Sugestão de resposta em Pascal / Delphi Console.

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
{ Para escrever acentos em pascal, devemos usar a tabela ASCII. }
 
program Prj00015AlgoritmosSequencias;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
const
  VALOR_APOSTA = 150.00;
  TAXA_HIPODROMO = 40.00;
 
var
  vGanhoBruto, vAssociacao, vSeguro, vIR,
  vGanhoLiquido : Currency;
 
begin
  SetConsoleTitle('Algoritmo 00015 - Algoritmos sequenciais. Show Delphi.');
  Writeln('Algoritmo 00015 - Algoritmos sequenciais. Show Delphi.');
 
  try
    vGanhoBruto := VALOR_APOSTA * 80;
    vAssociacao := vGanhoBruto * 0.035;
    vSeguro := vGanhoBruto * 0.0145;
    vIR := (vGanhoBruto - vAssociacao - TAXA_HIPODROMO - vSeguro) * 0.1;
    vGanhoLiquido := vGanhoBruto - vAssociacao -
      TAXA_HIPODROMO - vSeguro - vIR;
 
    Writeln('');
    Writeln('O ganho bruto foi de: ', vGanhoBruto :0:2);
    Writeln('O valor para a associacao foi de: ', vAssociacao :0:2);
    Writeln('A taxa do Hipodromo foi de: ', TAXA_HIPODROMO :0:2);
    Writeln('O valor de associacao foi de: ', vSeguro :0:2);
    Writeln('O valor de IR foi de: ', vIR :0:2);
    Writeln('O ganho liquido foi de: ', vGanhoLiquido :0:2);
 
    Write(#10#13#10#13, 'Tecle "Entrer" para sair.');
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

 

Sugestão de resposta em C, C++ / C Builder

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
#include <vcl.h>
#pragma hdrstop
 
#include <tchar.h>
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <time.h>
#include <string.h>
 
//---------------------------------------------------------------------------
 
#pragma argsused
 
const VALOR_APOSTA = 150.00;
const TAXA_HIPODROMO = 40;
 
void _tmain(){
	SetConsoleTitleA("Algoritmo 00015 - Algoritmos sequenciais. Show Delphi.");
	printf("Algoritmo 00015 - Algoritmos sequenciais. Show Delphi.\n");
	system("chcp 1252 > nul");
 
	float vGanhoBruto = VALOR_APOSTA * 80;
	float vAssociacao = vGanhoBruto * 0.035;
	float vSeguro = vGanhoBruto * 0.0145;
	float vIR = (vGanhoBruto - vAssociacao - TAXA_HIPODROMO - vSeguro) * 0.1;
	float vGanhoLiquido = vGanhoBruto - vAssociacao -
	  TAXA_HIPODROMO - vSeguro - vIR;
 
	printf("\nO ganho bruto foi de: %-7.2f", vGanhoBruto);
	printf("\nO valor para a associacao foi de: %-7.2f", vAssociacao);
	printf("\nA taxa do Hipodromo foi de: %d", TAXA_HIPODROMO);
	printf("\nO valor de associacao foi de: %-7.2f", vSeguro);
	printf("\nO valor de IR foi de: %-7.2f", vIR);
	printf("\nO ganho liquido foi de: %-7.2f", vGanhoLiquido);
 
	printf("\n\n");
	system("pause");
}

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
package exercicio20;
 
/**
 *
 * @author Franciele Benedetti
 */
public class Exercicio20 {
 
    /**
     * @param args the command line arguments
     */
    public static void main(String[] args) {
 
        Double qtdApostada = 150.0;
        Double descAssociacaoApostadores;
        Double taxaCaixaHipodromo;
        Double seguroCavaloGanhador;
        Double ir;
        Double valorGanhoBruto;
        Double valorGanho;
        Double desconto;
 
        valorGanhoBruto = qtdApostada * 80;
 
        System.out.println("O valor ganho bruto é " + valorGanhoBruto);
 
        descAssociacaoApostadores = (valorGanhoBruto * (3.5)) / 100;
 
        taxaCaixaHipodromo = 40.0;
 
        seguroCavaloGanhador = valorGanhoBruto * ((1.45)) / 100;
 
        ir = (valorGanhoBruto
                - descAssociacaoApostadores
                - taxaCaixaHipodromo
                - seguroCavaloGanhador) * ((10.0)) / 100.0;
 
        desconto = descAssociacaoApostadores
                + taxaCaixaHipodromo
                + seguroCavaloGanhador
                + ir;
 
        valorGanho = (valorGanhoBruto - desconto);
 
        System.out.println("O valor ganho é " + valorGanho);
    }
}

Envie também a sua sugestão de algoritmo para showdelphi@showdelphi.com.br.

Facebook Comments

Posts Relacionados

  • Administrador
  • 439 views
  • 0 comentários
  • 21 de abril de 2015

Deixe uma resposta

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

Ir ao topo

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