Um imóvel foi comprado por 5 pessoas. João comprou a metade do imóvel. Do restante, Pedro, comprou a metade. O que ainda sobrou, foi divido por Maria, José e Luíza, sendo que José, ficou com a metade do que ficou Maria, que por sua vez, ficou com parte igual a Luíza. Escrever um algoritmo e um programa que leia o valor recebido pelo aluguel do referido imóvel, e mostra quanto em R$ cada um dos sócios no imóvel deve receber.
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
28
29
30
31
| program Prj00014AlgoritmosSequencias;
var
vValorAluguel : Real;
vValJoao, vValPedro, vValJose, vValMaria, vValLuiza : Real;
begin
Escreva('Informe o valor de aluguem recebido: ');
Leia(vValorAluguel);
// Joao possui 50 %
vValJoao := vValorAluguel * 0.50;
// Pedro possui medade da metade - 25%
vValPedro := vValorAluguel * 0.25;
// Jose tem metade do que tem Maria - 5 %
vValJose := vValorAluguel * 0.05;
// Maria e Luiza possuem 10 %
vValMaria := vValorAluguel * 0.10;
vValLuiza := vValorAluguel * 0.10;
Escreva('Joao ira receber: ', vValJoao :0:2, ' Reais.');
Escreva('Pedro ira receber: ', vValPedro :0:2, ' Reais.');
Escreva('Jose ira receber: ', vValJose :0:2, ' Reais.');
Escreva('Maria ira receber: ', vValMaria :0:2, ' Reais.');
Escreva('Luiza ira receber: ', vValLuiza :0:2, ' Reais.');
end. |
program Prj00014AlgoritmosSequencias;
var
vValorAluguel : Real;
vValJoao, vValPedro, vValJose, vValMaria, vValLuiza : Real;
begin
Escreva('Informe o valor de aluguem recebido: ');
Leia(vValorAluguel);
// Joao possui 50 %
vValJoao := vValorAluguel * 0.50;
// Pedro possui medade da metade - 25%
vValPedro := vValorAluguel * 0.25;
// Jose tem metade do que tem Maria - 5 %
vValJose := vValorAluguel * 0.05;
// Maria e Luiza possuem 10 %
vValMaria := vValorAluguel * 0.10;
vValLuiza := vValorAluguel * 0.10;
Escreva('Joao ira receber: ', vValJoao :0:2, ' Reais.');
Escreva('Pedro ira receber: ', vValPedro :0:2, ' Reais.');
Escreva('Jose ira receber: ', vValJose :0:2, ' Reais.');
Escreva('Maria ira receber: ', vValMaria :0:2, ' Reais.');
Escreva('Luiza ira receber: ', vValLuiza :0:2, ' Reais.');
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
45
46
47
| { Para escrever acentos em pascal, devemos usar a tabela ASCII. }
program Prj00014AlgoritmosSequencias;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
vValorAluguel : Currency;
vValJoao, vValPedro, vValJose, vValMaria, vValLuiza : Currency;
begin
SetConsoleTitle('Algoritmo 00014 - Algoritmos sequenciais. Show Delphi.');
Writeln('Algoritmo 00014 - Algoritmos sequenciais. Show Delphi.');
try
Write(#10#13 + 'Informe o valor de aluguem recebido: ');
Readln(vValorAluguel);
{ Joao possui 50 % }
vValJoao := vValorAluguel * 0.50;
{ Pedro possui medade da metade - 25% }
vValPedro := vValorAluguel * 0.25;
{ Jose tem metade do que tem Maria - 5 % }
vValJose := vValorAluguel * 0.05;
{ Maria e Luiza possuem 10 % }
vValMaria := vValorAluguel * 0.10;
vValLuiza := vValorAluguel * 0.10;
Writeln('');
Writeln('Joao ira receber: ', vValJoao :0:2, ' Reais.');
Writeln('Pedro ira receber: ', vValPedro :0:2, ' Reais.');
Writeln('Jose ira receber: ', vValJose :0:2, ' Reais.');
Writeln('Maria ira receber: ', vValMaria :0:2, ' Reais.');
Writeln('Luiza ira receber: ', vValLuiza :0:2, ' Reais.');
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 Prj00014AlgoritmosSequencias;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
vValorAluguel : Currency;
vValJoao, vValPedro, vValJose, vValMaria, vValLuiza : Currency;
begin
SetConsoleTitle('Algoritmo 00014 - Algoritmos sequenciais. Show Delphi.');
Writeln('Algoritmo 00014 - Algoritmos sequenciais. Show Delphi.');
try
Write(#10#13 + 'Informe o valor de aluguem recebido: ');
Readln(vValorAluguel);
{ Joao possui 50 % }
vValJoao := vValorAluguel * 0.50;
{ Pedro possui medade da metade - 25% }
vValPedro := vValorAluguel * 0.25;
{ Jose tem metade do que tem Maria - 5 % }
vValJose := vValorAluguel * 0.05;
{ Maria e Luiza possuem 10 % }
vValMaria := vValorAluguel * 0.10;
vValLuiza := vValorAluguel * 0.10;
Writeln('');
Writeln('Joao ira receber: ', vValJoao :0:2, ' Reais.');
Writeln('Pedro ira receber: ', vValPedro :0:2, ' Reais.');
Writeln('Jose ira receber: ', vValJose :0:2, ' Reais.');
Writeln('Maria ira receber: ', vValMaria :0:2, ' Reais.');
Writeln('Luiza ira receber: ', vValLuiza :0:2, ' Reais.');
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
40
41
42
43
44
| #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
void _tmain(){
SetConsoleTitleA("Algoritmo 00014 - Algoritmos sequenciais. Show Delphi.");
printf("Algoritmo 00014 - Algoritmos sequenciais. Show Delphi.\n");
system("chcp 1252 > nul");
printf("\nInforme o valor de aluguem recebido: ");
float vValorAluguel;
scanf("%f", &vValorAluguel);
// Joao possui 50 %
float vValJoao = vValorAluguel * 0.50;
// Pedro possui medade da metade - 25%
float vValPedro = vValorAluguel * 0.25;
// Jose tem metade do que tem Maria - 5 %
float vValJose = vValorAluguel * 0.05;
// Maria e Luiza possuem 10 %
float vValMaria = vValorAluguel * 0.10;
float vValLuiza = vValorAluguel * 0.10;
printf("\nJoao ira receber: %-7.2f Reais", vValJoao);
printf("\nPedro ira receber: %-7.2f Reais", vValPedro);
printf("\nJose ira receber: %-7.2f Reais", vValJose);
printf("\nMaria ira receber: %-7.2f Reais", vValMaria);
printf("\nLuiza ira receber: %-7.2f Reais", vValLuiza);
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
void _tmain(){
SetConsoleTitleA("Algoritmo 00014 - Algoritmos sequenciais. Show Delphi.");
printf("Algoritmo 00014 - Algoritmos sequenciais. Show Delphi.\n");
system("chcp 1252 > nul");
printf("\nInforme o valor de aluguem recebido: ");
float vValorAluguel;
scanf("%f", &vValorAluguel);
// Joao possui 50 %
float vValJoao = vValorAluguel * 0.50;
// Pedro possui medade da metade - 25%
float vValPedro = vValorAluguel * 0.25;
// Jose tem metade do que tem Maria - 5 %
float vValJose = vValorAluguel * 0.05;
// Maria e Luiza possuem 10 %
float vValMaria = vValorAluguel * 0.10;
float vValLuiza = vValorAluguel * 0.10;
printf("\nJoao ira receber: %-7.2f Reais", vValJoao);
printf("\nPedro ira receber: %-7.2f Reais", vValPedro);
printf("\nJose ira receber: %-7.2f Reais", vValJose);
printf("\nMaria ira receber: %-7.2f Reais", vValMaria);
printf("\nLuiza ira receber: %-7.2f Reais", vValLuiza);
printf("\n\n");
system("pause");
}
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