Pascal

O Sr. Pedro tem uma bomba de abastecimento. Os combustíveis disponibilizados na boma são Gasolina 95, Gasolina 98 e Gasóleo Ao iniciar o programa deverá ser solicitado o preço por litro de cada combustível nesse dia. O Sr. Pedro precisa de um programa em Pascal que digitando o número de litros abastecidos e o tipo de combustível lhe de o valor a pagar pelo abastecimento. O programa só deverá terminar quando for dada essa indicação e não no fim de um abastecimento.

1

Respostas

2014-07-17T02:13:31-03:00
Olha, dá pra melhorar muuuuuita coisa aqui, eu tbm estou aprendendo. E acho que fiz mt coisa desnecessária, mas ok. Espero que ajude. Está compilando certinho aqui. Até.


program Pedro;
uses crt;

procedure Diario(g95, g98, oleo: real);
begin
      writeln('Insira o valor diário da Gasolina 95, 98 e Gasóleo: ');
      readln(g95, g98, oleo);
end;

function Gasosa(g95, g98, oleo, litros: real; tipo:string ):real;
var total: real;
begin
      if (tipo = 'gasolina 95') then total:= g95 * litros;

      if (tipo = 'gasolina 98') then total:= g98 * litros;
      if (tipo = 'gasoleo') then total:= oleo * litros;
      Gasosa:= total;
end;

var g95, g98, oleo, litros, total:real; tipo, answer:string;
begin
    clrscr;
    writeln('Insira o valor diário da Gasolina 95, 98 e Gasóleo: ');
    readln(g95, g98, oleo);
    writeln('Próximo cliente?');

    readln(answer);
    while (answer = 's') do
    begin

            writeln('Tipo de gasolina e Litros que foram abastecidos:');

            readln(tipo, litros);
            total:= gasosa(g95, g98, oleo, litros, tipo);
            writeln('A pagar:', total:7:2);

            writeln('Próximo cliente?');

            readln(answer);

    end;
    if (answer = 'n') then
    begin
           writeln('Renovar preco da gasolina?');
           readln(answer);

           if (answer = 's') then Diario(g95, g98, oleo);
      end;
      writeln('Aperte enter para fechar o programa.')
      readkey;
end.