• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

joaovasco

Programa em Turbo Pascal- AJUDA!!

2 mensagens neste tópico

oi pessoal... queria fazer este programa em pascal utilizando procedures e functions.

"

fazer um programa um Pascal que calcule os custos de uma viagem de automóvel, supondo que estes se limitam aos custos de gasolina. As entradas do programa são o numero de km e a saída o custo em euros da viagem;

Nota: Vamos supor que o automóvel em causa gasta 7.5l por cada 100km, e que cada litro de gasolina custa 1.25euros"

SÓ CONSEGUI FAZER ISTO :

program viagem;

uses crt;

var numero_km, custo_viagem, kilometros_feitos:real;

Function contakilometros(x:real):real;

var cont, i:integer;

Begin

i:=1;

cont:=0;

cont:=cont+1;

i:=i+1;

contakilometros:=cont;

end;

Procedure numerokilometros(xx:real);

var i:integer;

Begin

writeln('Digite o numero de kilometros feitos');

axo k isto ate esta mal

PRECISO URGENTE!!!!

ALGUEM ME AJUDE POR FAVOR!!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas,

Vai para ai uma grande confusao :)

Ve la se e isto que pretendes:

program viagem;
uses crt;

const carro_gastos = 7.5;

var gastokm,preco,km:real;

procedure conta_kilometros;
begin
gastokm := (carro_gastos / 100);
preco := (gastokm * km);
end;

begin
writeln ('Insira o numero de kilometros da viagem');
readln (km);
conta_kilometros;
writeln ('O preco da viagem e: ',preco:3:1);
readkey;
end.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora