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. – 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

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.

 

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.

 

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");
}

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

Facebook Comments

Posts Relacionados

  • Administrador
  • 447 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