Lógica ao se cálcular o custo

[Catí Kurumim 7]

Olá,

tenho a seguinte questao: ''Faça o algoritmo que receba os seguintes dados de entrada acerca de uma viagem:

o Tempo gasto na viagem em horas (TEMPO);

o Velocidade média durante a viagem em quilômetros por hora (VELOCIDADE);

o O consumo médio do automóvel utilizado na viagem em quilômetros por litro (CM);

o Preço do combustível utilizado durante a viagem em R$ por litro (PR).

Obs.: A distância percorrida na viagem é calculada por: DISTANCIA = TEMPO × VELOCIDADE.

Após calcular o custo dessa viagem, apresentar a mensagem “Solicitar reembolso”, caso o custo tenha sido maior do que R$ 200,00. Do contrário contrário, não apresentar mensagem alguma.''

program Ativ09;

Var
  Veloc, Custo, Consu, preco,Dis:Real;
  Temp:Integer;
begin
  Dis:=1;//Distância
  Custo:=1;//Custo
  Writeln('Escreva o tempo gasto em viagem');
  Readln(Temp);
  Writeln('Escreva a velocidade durante a viagem');
  Readln(Veloc);
  Writeln('Escreva o consumo medio');
  Readln(Consu);
  Writeln('Escreva o preco do combustivel');
  Readln(Preco);
  Dis:= Temp * Veloc;
  Custo:= Preco*consu*Dis;
  If(Custo > 200)
    then Writeln('Solicitar reembolso');
  Readln;
end.

Observem a lógica no cálculo do custo, caso esteja errada avisem, se estiver certa informem no que posso melhorar. Obrigado desde já!

[Catí Kurumim 7]

Certo... é sempre assim, ninguém quer responder minhas perguntas.

[Simon Viegas]

Olá.

Olá,

tenho a seguinte questao: ''Faça o algoritmo que receba os seguintes dados de entrada acerca de uma viagem:

o Tempo gasto na viagem em horas (TEMPO);

o Velocidade média durante a viagem em quilômetros por hora (VELOCIDADE);

o O consumo médio do automóvel utilizado na viagem em quilômetros por litro (CM);

o Preço do combustível utilizado durante a viagem em R$ por litro (PR).

Obs.: A distância percorrida na viagem é calculada por: DISTANCIA = TEMPO × VELOCIDADE.

Após calcular o custo dessa viagem, apresentar a mensagem “Solicitar reembolso”, caso o custo tenha sido maior do que R$ 200,00. Do contrário contrário, não apresentar mensagem alguma.''

Var
Veloc, Custo, Consu, preco,Dis:Real;
Temp:Integer;
begin
Dis:=1;//Distância
Custo:=1;//Custo
Writeln('Escreva o tempo gasto em viagem');
Readln(Temp);
Writeln('Escreva a velocidade durante a viagem');
Readln(Veloc);
Writeln('Escreva o consumo medio');
Readln(Consu);
Writeln('Escreva o preco do combustivel');
Readln(Preco);
Dis:= Temp * Veloc;
Custo:= Preco*consu*Dis;
If(Custo > 200)
then Writeln('Solicitar reembolso');
Readln;
end.

program Ativ09;

Observem a lógica no cálculo do custo, caso esteja errada avisem, se estiver certa informem no que posso melhorar. Obrigado desde já!

Como você chegou a essa fórmula:

Custo:= Preco*consu*Dis;

Analisando rapidamente, seria que quanto mais econômico o carro ("maior consumo médio"), maior será o custo da viagem? Tá errado, não?

Faça alguns testes de mesa.. Tente nos explicar o seu funcionamento da fórmula.

Certo... é sempre assim, ninguém quer responder minhas perguntas.

Tenha paciência... nós usuários somos apenas voluntários, ai depende da disponibilidade de cada um. O que inclui também a boa vontade e até mesmo experiência no conteúdo do tópico etc...

Sugestão: Se passar de 24h e tiver precisando, dê um UP no tópico.

Obs.: Falando agora como um Moderador do Fórum..:

Espere pelo menos 24h. Isso é uma regra. Vide regra geral 2.6. LINK. Lembrando de também ler as regras locais.

No aguardo.

[Catí Kurumim 7]

Obrigado, serei mais cuidadoso nas postagens!

A cada distância X com o preço(Y) que foi informado terá consumo ''N''.

Ex: Preço = R$ 100 Distância = 1km Consumo = 20 K/L

caso o preço seja = o dobro todos os outros valores seriam o dobro, ou seja, o preço estaria proporcional a distância e o consumo, logo influenciaria no custo!

Eu não consegui pensar em outra forma de achar o custo referânciando o preço...

[Simon Viegas]

Obrigado, serei mais cuidadoso nas postagens!

A cada distância X com o preço(Y) que foi informado terá consumo ''N''.

Ex: Preço = R$ 100 Distância = 1km Consumo = 20 K/L

caso o preço seja = o dobro todos os outros valores seriam o dobro, ou seja, o preço estaria proporcional a distância e o consumo, logo influenciaria no custo!

Eu não consegui pensar em outra forma de achar o custo referânciando o preço...

Olá.

Vamos a um exemplo:

Preço: R$ 3,000

Distancia: 200 quilômetros

Consumo: 7 K/L

Sendo:

Custo:= Preco*consu*Dis;

Logo:

Custo=3*7*200 => Custo=4200 //pelo valor já percebemos que tem algo errado

Agora, se o carro for mais econômico:

Preço: R$ 3,000

Distancia: 200 quilômetros

Consumo: 10 K/L (rodando 3 quilômetros a mais por litro)

Custo=3*10*200 => Custo=6000 //aumentou ainda mais o custo

Reveja ai. Veja, quanto maior o consumo (no sentido de autonomia), menor será o custo, ou seja, o custo é inversamente proporcional ao consumo. Da mesma forma que o custo é diretamente proporcional ao preço e também a distância.

No aguardo.

[Catí Kurumim 7]

É verdade, o que fiz é errado!

Já me liguei, peguei a distancia e dividi pelo consumo e multipliquei pelo preço!

Custo = (Dis/consu)*preco;

Var  
  Veloc, Custo, Consu, preco,Dis:Real;
  Temp:Integer;
begin
  Dis:=1;//Distância
  Custo:=1;//Custo
  Writeln('Escreva o tempo gasto em viagem');
  Readln(Temp);
  Writeln('Escreva a velocidade durante a viagem');
  Readln(Veloc);
  Writeln('Escreva o consumo medio');
  Readln(Consu);
  Writeln('Escreva o preco do combustivel');
  Readln(Preco);
  Dis:= Temp * Veloc;
  Custo:= (Dis/consu)*preco;
  If(Custo > 200)
    then Writeln('Solicitar reembolso');
  Readln;
end.

Fiz um cálculo no papel e depois fiz o teste de mesa!(Se bem que depois dessa conta rápida não precisava do teste).

Se quiser pode fechar!

[Simon Viegas]

Caso o autor necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.