Visualg livraria calcular desconto

[Joao emilioborges]

Gostaria que alguém visse o que tem de errado nesse algoritmo que só da os 10% e não os 5%.

Criar um algoritmo para uma livraria.
Receber na tela:
➢ Nome do Cliente.
➢ Descrição do Produto.
➢ Preço Unitário.
➢ Quantidade.
Calcular o Preço Total (Q*PU)
Calcular um desconto de 5% para clientes com Preço Total até 500 e 10% para clientes com Preço 
Total superior a 500.
Mostrar:
➢ Preço Total(PT).

 

var
nomecliente,descricaoproduto:caractere
precounitario,quantidade:real
precototal,valordesconto,valorpagar:real
inicio
// Se��o de Comandos
Escreval("ETEC Prof.Alc�dio de Souza Prado")
Escreval("________________________________")
Escreval("***       Livraria          ****")
//Comandos de entrada
Escreva("Nome do Cliente...................: ")
leia(nomecliente)
Escreva("Descri��o Do Produto..............: ")
leia(descricaoproduto)
Escreva("Pre�o Unit�rio..................R$: ")
leia(precounitario)
Escreva("Quantidade........................: ")
leia(quantidade)
//Processo
precototal<-quantidade*precounitario
valordesconto<-(5/100*precototal) se precototal<500 senao
valordesconto<-(10/100*precototal) se precototal>500
valorpagar<-precototal-valordesconto
//Comando de sa�da
Escreval("Pre�o Total do Produto..........R$:  ",precototal:8:2)
Escreval("Valor do Desconto...............R$:  ",valordesconto:8:2)
Escreval("Valor a Pagar...................R$:  ",valorpagar:8:2)
Escreval("********FIM DO ALGORITMO*******")

fimalgoritmo

[isrnick]

Cadê o algoritmo?

 

(Obs: Para postar códigos use a tag CODE apertando o botão <> no topo do campo de resposta.)

 

 

 

 

adicionado 36 minutos depois:

valordesconto<-(5/100*precototal) se precototal<500 senao
valordesconto<-(10/100*precototal) se precototal>500

 

Aqui está o problema. Quando você usa um comando de desvio condicional, primeiro você testa a condição e apenas se ela for verdadeira os comandos os comandos listados a seguir são executados. Então ficaria assim:
 

se precototal<500 então
    valordesconto<-(5/100*precototal)
senao
    valordesconto<-(10/100*precototal)
fimse

 

Obs: O fórum está acentuando a palavra "então" automaticamente no código acima, mas deveria ser sem o til ( ~ ).