Escrever um algoritmo e um programa para efetuar o cálculo da quantidade de litros de combustível gastos em uma viagem, utilizando-se um automóvel que faz 12 km por litro. Para obter o cálculo, o usuário deverá fornecer o tempo gasto na viagem e a velocidade média durante a mesma. Desta forma, será possível obter a distância percorrida com a fórmula DISTÂNCIA = TEMPO * VELOCIDADE. Tendo o valor da distância, basta calcular a quantidade de litros de combustível utilizada na viagem com a fórmula: LITROS_USADOS = DISTÂNCIA / 12. O programa deverá apresentar a distância percorrida e a quantidade de litros de combustível utilizados na viagem.
Fala galera do Show Delphi, tudo beleza?
Vamos lá então a um novo exercício! Como de costume já dividindo o problema para facilitar a resolução.
Parte 1
Escrever um algoritmo e um programa para efetuar o cálculo da quantidade de litros de combustível gastos em uma viagem,
utilizando-se um automóvel que faz 12 km por litro.
Parte 2
Para obter o cálculo, o usuário deverá fornecer o tempo gasto na viagem e a velocidade média durante a mesma.
Parte 3
Desta forma, será possível obter a distância percorrida com a fórmula DISTÂNCIA = TEMPO * VELOCIDADE.
Parte 4
Tendo o valor da distância, basta calcular a quantidade de litros de combustível utilizada na viagem com a fórmula: LITROS_USADOS = DISTÂNCIA / 12.
Parte 5
O programa deverá apresentar a distância percorrida e a quantidade de litros de combustível utilizados na viagem.
Vamos então as sugestões de resposta.
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
| program Prj00013AlgoritmosSequencias;
const
KM_LITRO = 12;
var
vTempo, vVelMedia, vDistancia, vConsumo : Real;
begin
Escreva('Informe o tempo gasto na viagem em horas: ');
Leia(vTempo);
Escreva('Informe a velocidade média em KM/H: ');
Readln(vVelMedia);
vDistancia := vTempo * vVelMedia;
vConsumo := vDistancia / KM_LITRO;
Escreva('A distancia percorida foi de: ', vDistancia :0:2, ' KM.');
Escreva('O consumo foi de: ', vConsumo :0:2, ' litros.');
end. |
program Prj00013AlgoritmosSequencias;
const
KM_LITRO = 12;
var
vTempo, vVelMedia, vDistancia, vConsumo : Real;
begin
Escreva('Informe o tempo gasto na viagem em horas: ');
Leia(vTempo);
Escreva('Informe a velocidade média em KM/H: ');
Readln(vVelMedia);
vDistancia := vTempo * vVelMedia;
vConsumo := vDistancia / KM_LITRO;
Escreva('A distancia percorida foi de: ', vDistancia :0:2, ' KM.');
Escreva('O consumo foi de: ', vConsumo :0:2, ' litros.');
end.
Como de costume, sempre há a solução em pascal.
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
| { Para escrever acentos em pascal, devemos usar a tabela ASCII. }
program Prj00013AlgoritmosSequencias;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
const
KM_LITRO = 12;
var
vTempo, vVelMedia, vDistancia, vConsumo : Double;
begin
SetConsoleTitle('Algoritmo 00013 - Algoritmos sequenciais. Show Delphi.');
Writeln('Algoritmo 00013 - Algoritmos sequenciais. Show Delphi.');
try
Write('Informe o tempo gasto na viagem em horas: ');
Readln(vTempo);
Write('Informe a velocidade media em KM/H: ');
Readln(vVelMedia);
vDistancia := vTempo * vVelMedia;
vConsumo := vDistancia / KM_LITRO;
Writeln(#10#13 + 'A distancia percorida foi de: ', vDistancia :0:2, ' KM.');
Writeln('O consumo foi de: ', vConsumo :0:2, ' litros.');
Write('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 Prj00013AlgoritmosSequencias;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
const
KM_LITRO = 12;
var
vTempo, vVelMedia, vDistancia, vConsumo : Double;
begin
SetConsoleTitle('Algoritmo 00013 - Algoritmos sequenciais. Show Delphi.');
Writeln('Algoritmo 00013 - Algoritmos sequenciais. Show Delphi.');
try
Write('Informe o tempo gasto na viagem em horas: ');
Readln(vTempo);
Write('Informe a velocidade media em KM/H: ');
Readln(vVelMedia);
vDistancia := vTempo * vVelMedia;
vConsumo := vDistancia / KM_LITRO;
Writeln(#10#13 + 'A distancia percorida foi de: ', vDistancia :0:2, ' KM.');
Writeln('O consumo foi de: ', vConsumo :0:2, ' litros.');
Write('Tecle "Entrer" para sair.');
Readln;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
Por solicitações de usuários, também colocamos um exemplo em C.
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
| #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 KM_LITRO = 12;
void _tmain(){
SetConsoleTitleA("Algoritmo 00013 - Algoritmos sequenciais. Show Delphi.");
printf("Algoritmo 00013 - Algoritmos sequenciais. Show Delphi.\n");
system("chcp 1252 > nul");
printf("\nInforme o tempo gasto na viagem em horas: ");
float vTempo;
scanf("%f", &vTempo);
printf("\nInforme a velocidade média em KM/H: ");
float vVelMedia;
scanf("%f", &vVelMedia);
float vDistancia = vTempo * vVelMedia;
float vConsumo = vDistancia / KM_LITRO;
printf("\nA distancia percorida foi de: %-7.2f KM", (vDistancia));
printf("\nO consumo foi de: %-7.2f litros", (vConsumo));
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 KM_LITRO = 12;
void _tmain(){
SetConsoleTitleA("Algoritmo 00013 - Algoritmos sequenciais. Show Delphi.");
printf("Algoritmo 00013 - Algoritmos sequenciais. Show Delphi.\n");
system("chcp 1252 > nul");
printf("\nInforme o tempo gasto na viagem em horas: ");
float vTempo;
scanf("%f", &vTempo);
printf("\nInforme a velocidade média em KM/H: ");
float vVelMedia;
scanf("%f", &vVelMedia);
float vDistancia = vTempo * vVelMedia;
float vConsumo = vDistancia / KM_LITRO;
printf("\nA distancia percorida foi de: %-7.2f KM", (vDistancia));
printf("\nO consumo foi de: %-7.2f litros", (vConsumo));
printf("\n\n");
system("pause");
}
Também por solicitações de usuários, também colocamos um exemplo em Java.
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
| package exercicio11;
import javax.swing.JOptionPane;
/**
*
* @author Franciele Benedetti
*/
public class Exercicio11 {
/**
* @param args the command line arguments
*/
public static void main(String[] args) {
Double tempoGastoNaViagem;
Double velocidadeMedia;
Double distancia;
Double litros_usados;
System.out.println("Informe o tempo gasto na viagem ");
tempoGastoNaViagem = Double.parseDouble(JOptionPane.showInputDialog("Informe o tempo gasto na viagem"));
System.out.println("Informe oa velocidade média");
velocidadeMedia = Double.parseDouble(JOptionPane.showInputDialog("Informe a velocidade média"));
distancia = tempoGastoNaViagem * velocidadeMedia;
litros_usados = (distancia / 12);
System.out.println("A distância percorrida é: " + distancia);
System.out.println("A quantidade de litros utilizados é: " + litros_usados);
}
} |
package exercicio11;
import javax.swing.JOptionPane;
/**
*
* @author Franciele Benedetti
*/
public class Exercicio11 {
/**
* @param args the command line arguments
*/
public static void main(String[] args) {
Double tempoGastoNaViagem;
Double velocidadeMedia;
Double distancia;
Double litros_usados;
System.out.println("Informe o tempo gasto na viagem ");
tempoGastoNaViagem = Double.parseDouble(JOptionPane.showInputDialog("Informe o tempo gasto na viagem"));
System.out.println("Informe oa velocidade média");
velocidadeMedia = Double.parseDouble(JOptionPane.showInputDialog("Informe a velocidade média"));
distancia = tempoGastoNaViagem * velocidadeMedia;
litros_usados = (distancia / 12);
System.out.println("A distância percorrida é: " + distancia);
System.out.println("A quantidade de litros utilizados é: " + litros_usados);
}
}
Acredito que tenha ficado bem esclarecido o exercício pessoal e se houver dúvidas ou sugestões, por favor deixem nos comentários.
Certo pessoal, um abraço a até a próxima. Valeu!
-
InfusTec
-
71.472 views
- 5 comentários
- 19 de abril de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo
Na linguagem C ta dando erro!
Qual a mensagem que aparece para você Guilherme?
na linguagem C está com erro
[Error] vcl.h: No such file or directory
Tenta apagar esta linha.
E qual IDE você está utilizando Rodinei Fernandes Olavo?