Duvida (Algoritmo)

[Diegostf]

Ajudem no Algoritmo abaixo, tenho algumas Duvidas Novamente!!

>>>USO O VISUALG<<<<

---------------------------------------------------------------------------------------------------------------

algoritmo "Lanche"

var

codigo,pastel,esfirra,kibe,cochinha,refrigerante,quantia:real

inicio

pastel <- 1,50

esfirra <- 1,00

kibe <- 0,80

cochinha <- 1,00

refrigerante <- 2,00

escreva ("(1 Pastel)(2 esfirra)(3 Kibe)(4 cochinha)(5 Refrigerante): ")

leia (codigo)

escolha codigo

caso (1)

escreva ("Quantos Pasteis voce deseja")

escreva ("Digite a quantia: ")

leia (quantia)

escreva (quantia*pastel)

caso (2)

escreva ("Quantas esfirras voce deseja")

escreva ("Digite a quantia: ")

leia (quantia)

escreva (quantia*esfirra)

caso (3)

escreva ("quantos Kibes voce deseja")

escreva ("Digite a quantia: ")

leia (quantia)

escreva (quantia*kibe)

caso (4)

escreva ("Quantos Cochinhas voce deseja")

escreva ("Digite a quantia: ")

leia (quantia)

escreva (quantia*cochinha)

caso (5)

escreva ("Quantos Refrigerantes voce deseja")

escreva ("Digite a quantia: ")

leia (quantia)

escreva (quantia*refrigerante)

outrocaso

escreva ("este item não existe")

fimescolha

fimalgoritmo

------------------------------------------------------------------------------------------------------------

Duvida 1...

quando e para sair o "Total a pagar" não Esta saindo a Virgula nem os 0 "Zero"

Exemplo: Pesso 2 pasteis de 1,50 ele da o total exatamente assim = "2" um numero INTEIRO como se não estivesse somando ",50 Centavos" mais a variavel esta como REAL.... não intendo

quando pesso a esfirra de 1,00, Exemplo 3 esfirras ele da o total de = "3" não esta aparecendo

nem somando o resto depois da virgula...

Duvida 2....

Os codigos vão ate 5, quando e digitado algum Numero alem desses Da a mensagem

outrocaso

escreva ("este item não existe")

E o programa Finaliza, Como eu faria para ele não FINALIZAR e voltar para o Começo Novamente....

Duvida 3....

Nesta parte Abaixo..

escreva ("Quantos Pasteis voce deseja")

escreva ("Digite a quantia: ")

Mesmo eu escrevendo "escreva" Em cima e Em baixo, no programa ele sai escrito tudo junto na mesma linha, teria alguma Forma para alinhar cada FRASE em cada linha sem muntuar tudo....

Quem puder me ajudar =)

Obrigado!!

Editado Junho 19, 2008 por Diegostf