Aula 08 Exercicio 03

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "Aula 08 - Exercício 03"
// Função :
// Autor :
// Data : 25/3/2009
// Seção de Declarações 
var
Codigo:caracter
x:inteiro
Valor,vista,prazo,total,primeira:real
inicio
// Seção de Comandos 
escreva ("codigo = ")
leia (codigo)
enquanto codigo <> "f" faca
escreva ("valor = ")
leia (valor)
Se codigo = "V" entao
 vista <- vista + valor
senao
 prazo <- prazo + valor
fimse
escreva ("codigo = ")
leia (codigo)
fimenquanto
total <- prazo + vista
primeira := prazo / 3
escreva ("vista ",vista," prazo ",prazo," total ",total," primeiras ",primeira)
fimalgoritmo