Algoritmo Visualg valor de desconto

20. A concessionária de veículos “CARANGO VELHO” está vendendo os seus veículos com desconto. Faça um algoritmo que calcule e exiba o valor do desconto e o valor a ser pago pelo cliente de vários carros. O desconto deverá ser calculado de acordo com o ano do veículo. Até 2000 - 12% e acima de 2000 - 7%. O sistema deverá perguntar se deseja continuar calculando desconto até que a resposta seja: “(N) Não” . Informar total de carros com
ano até 2000 e total geral. Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex20"
// Função : A concessionária de veículos CARANGO VELHO está vendendo os seus veículos com desconto. Faça um
            // algoritmo que calcule e exiba o valor do desconto e o valor a ser pago pelo cliente de vários carros. O desconto
            // deverá ser calculado de acordo com o ano do veículo. Até 2000 - 12% e acima de 2000 - 7%. O sistema deverá
            // perguntar se deseja continuar calculando desconto até que a resposta seja: \u201c(N) Não\u201d . Informar total de carros com
            // ano até 2000 e total geral.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
programa, opc: caractere
ano, total, total2000: inteiro
valor, valorFinal, desconto: real

inicio
// Seção de Comandos
programa <- "S"
enquanto programa <> "N" faca
    limpatela
    escreva("Digite o valor do carro: ")
    leia(valor)
    escreva("Digite o ano do carro: ")
    leia(ano)
    se ano <= 2000 entao
        desconto <- 0.12
        total2000 <- total2000 + 1
        total <- total + 1
    senao
        desconto <- 0.07
        total <- total + 1
    fimse
    desconto <- desconto * valor
    valorFinal <- valor - desconto
    escreval("O valor do carro com desconto é de: ",valorFinal)
    escreval("")
    escreva("Deseja continuar calculando? (S) Sim - (N) Não - ")
    leia(opc)
    escolha opc
        caso "S"
            programa <- "S"
        caso "N"
            programa <- "N"
        outrocaso
            programa <- "S"
            limpatela
            escreval("As opções disponíveis são apenas S ou N!!!")
            leia(opc)
    fimescolha
fimenquanto
escreval("Foram calculados",total2000," carro(s) com ano até 2000")
escreval("Total geral: ",total)

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.