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

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.

 

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.

 

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(#10#13 + 'Informe o tempo gasto na viagem em horas: ');
    Readln(vTempo);
 
    Write(#10#13 + '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(#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
#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");
}

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

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

Facebook Comments

Posts Relacionados

  • Administrador
  • 6.472 views
  • 0 comentários
  • 19 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