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.

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

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

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