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. |
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. |
{ 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");
} |
#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);
}
} |
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.
-
InfusTec
-
1.743 views
- 0 comentários
- 21 de abril de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo