Páginas

sábado, 5 de novembro de 2011

Exemplo 33

=============================================================

Um posto está vendendo combustíveis com a seguinte tabela de descontos:
Álcool:
até 20 litros, desconto de 3% por litro
acima de 20 litros, desconto de 5% por litro
Gasolina:
até 20 litros, desconto de 4% por litro
acima de 20 litros, desconto de 6% por litro
Escreva um algoritmo que leia o número de litros vendidos e o tipo de combustível (codificado da
seguinte forma: A-álcool, G-gasolina), calcule e imprima o valor a ser pago pelo cliente sabendo-se
que o preço do litro da gasolina é R$ 3,30 e o preço do litro do álcool é R$ 2,90.
=============================================================

// Seção de Declarações
var

litro,precoA,precoG,total:real
combustivel:inteiro

inicio
// Seção de Comandos

precoA<-2.9
precoG<-3.3

Repita
      escreval("Tipo de combustivel")
      escreval("1 - Álcool")
      escreval("2 - Gasolina")
      leia(combustivel)
ate((combustivel = 1) ou (combustivel = 2))

escreval("Quantos Litros:")
leia(litro)

se (litro > 20)entao

   se (combustivel = 1)entao
      total <- (precoA * litro)*0.95
   senao
      total <- (precoG * litro)*0.94
   fimse
  
senao

   se (combustivel = 1)entao
      total <- (precoA * litro)*0.97
   senao
      total <- (precoG * litro)*0.96
   fimse
  
fimse

escreva("Tipo de Combustivel : ")

se(combustivel = 1)entao
     escreval("Álcool : R$ ",precoA)
senao
     escreval("Gasolina : R$ ", precoG)
fimse

escreval("Litros : ",litro)
escreval("Total a pagar : ",total)

fimalgoritmo

=============================================================

8 comentários:

  1. nao da certo essa merda

    ResponderExcluir
  2. ta ligado que esse é pseudo neh ' e pra vc fazer com essa base ' nao copiar e colar

    ResponderExcluir
  3. O que seria "0,97,0,96,0,95 e 0,94 " ?
    Nao era para ser " 0,03 ,0,04 ....." ?

    ResponderExcluir
    Respostas
    1. Utilizando 3%,4%..., é necessário diminuir em seguida do valor total. Utilizado 97% já está descontado esse valor, cálculo se torna direto.

      Excluir
  4. como transcrever esse algoritmo para C ?

    ResponderExcluir
  5. Resolvi baseando no seu código, mas um pouco diferente:

    var
    litro, precoA, precoG, total:real
    combustivel: inteiro
    inicio
    precoA := 2.90
    precoG := 3.30

    repita
    escreval("Tipo de combustivel")
    escreval("1 - Álcool")
    escreval("2 - Gasolina")
    leia(combustivel)
    ate((combustivel = 1) ou (combustivel = 2))

    escreval ("Quantos litros: ")
    leia (litro)

    //para Álcool
    se (litro<=20) e (combustivel=1) entao
    total := precoA*(litro*(1-(3/100)))
    escreval ("Valor total à pagar: R$ " ,total)
    senao
    se (litro>20) e (combustivel=1) entao
    total := precoA*(litro*(1-(5/100)))
    escreval ("Valor total à pagar: R$ " ,total)

    //para Gasolina
    senao
    se (litro<=20) e (combustivel=2) entao
    total := precoG*(litro*(1-(4/100)))
    escreval ("Valor total à pagar: R$ " ,total)
    senao
    se (litro>20) e (combustivel=2) entao
    total := precoG*(litro*(1-(6/100)))
    escreval ("Valor total à pagar: R$ " ,total)

    fimse
    fimse
    fimse
    fimse

    ResponderExcluir