ALGORITMOS VISUALG

algoritmo "exercicio79"
// Função : Exercício 79
// Autor : Sandro Vieira
// Data : 23/10/2014
// Seção de Declarações
var
a,b,taxaa,taxab:real
anos:inteiro
inicio
// Seção de Comandos
a <- 50
b <- 100
taxaa <- 0.2
taxab <- 0.12
anos <- 0
enquanto (b > a) faca
         a <- a + (a * taxaa);
         b <- b + (b * taxab);
         anos <- anos + 1;
fimenquanto
escreval("O país A ultrapassará o país B em ", anos, " anos.")
escreval("População do pais A terá: ", a:4:2," milhões de habitantes")
escreval("População do pais B terá: ", b:4:2," milhões de habitantes")
fimalgoritmo

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


algoritmo "exercicio80"
// Função : Exercício 80
// Autor : Sandro Vieira
// Data : 23/10/2014
// Seção de Declarações
var
financiar,taxajuros,k,parcela,conta1,conta2:real
parcelas:inteiro
inicio
escreva("Digite o valor a ser financiado: ")
leia (financiar)
escreva("Digite o valor da taxa de juros: ")
leia (taxajuros)
k <- 1 + (taxajuros / 100)
conta1 <- k -1
conta2 <- k ^ (-6)
parcela <-(conta1 / conta2)*financiar
escreval("Valor da prestação para financiamento em 6x: ", parcela)
conta2 <- k ^ (-12)
parcela <-(conta1 / conta2)*financiar
escreval("Valor da prestação para financiamento em 12x: ", parcela)
conta2 <- k ^ (-18)
parcela <-(conta1 / conta2)*financiar
escreval("Valor da prestação para financiamento em 18x: ", parcela)
conta2 <- k ^ (-24)
parcela <-(conta1 / conta2)*financiar
escreval("Valor da prestação para financiamento em 24x: ", parcela)
conta2 <- k ^ (-30)
parcela <-(conta1 / conta2)*financiar
escreval("Valor da prestação para financiamento em 30x: ", parcela)
conta2 <- k ^ (-36)
parcela <-(conta1 / conta2)*financiar
escreval("Valor da prestação para financiamento em 36x: ", parcela)
conta2 <- k ^ (-42)
parcela <-(conta1 / conta2)*financiar
escreval("Valor da prestação para financiamento em 42x: ", parcela)
conta2 <- k ^ (-48)
parcela <-(conta1 / conta2)*financiar
escreval("Valor da prestação para financiamento em 48x: ", parcela)
fimalgoritmo

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

algoritmo "exercicio81"
// Função : Último exercício, finalmente!
// Autor : Sandro Vieira
// Data : 23/10/2014
// Seção de Declarações
var
quantLivro, precoLivro, aumentoLivro, reduzPreco, custoLivro, lucroVenda:real

inicio
// Seção de Comandos

custoLivro <- 30
reduzPreco <- 5
aumentoLivro <- 30
precoLivro <- 145
quantLivro <- 180
enquanto (precoLivro >= 35) faca
         quantLivro <- quantLivro + aumentoLivro
         lucroVenda <- (precoLivro - custoLivro) * quantLivro
         precoLivro <-  precoLivro - reduzPreco
fimenquanto
escreval("Quantidade de livros vendidos: ", quantLivro)
escreval("Preço de venda do livro: ", precoLivro)
escreval("Lucro em cada venda: ", lucroVenda)
fimalgoritmo