DIV e MOD

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

algoritmo "DivAndMod"
// Função :
// Autor :
// Data : 12/09/2013
// Seção de Declarações
var
i1, i2, r1 : inteiro
divi,mode: real
ntCinq, restCinq : inteiro
ntVin, restVin : inteiro
ntDez, restDez : inteiro
ntCinc, restCinc : inteiro
ntUm, restUm : inteiro
inicio
Escreval("Digite um numero qualquer ... ")
leia(i1)
Escreval("Digite um numero qualquer ... ")
leia(i2)
divi <- i1 / i2
Escreval("##################################################################################")
Escreval(" DIV ")
Escreval("Neste caso usamos ",i1," / ",i2," para ter o DIVIDENDO de resultado =", divi)
Escreval("Notamos que quando usamos ( / ) ele traz numeros com virgula, (FLOAT)")
Escreval("----------------------------------------------------------------------------------")
divi <- i1 div i2
Escreval("Neste outro caso usamos ",i1," div ",i2," para ter o DIVIDENDO de resultado =", divi)
Escreval("Notamos que ele arredonda para um (INTEIRO)")
Escreval("E podemos perceber que vamos ter um resto desta divisão ",i1," |__",i2)
Escreval("----------------------------------------------------------------------------------")
Escreval("Lembrando que as 2 notações fazem a divisão do que se precisa, única diferença")
Escreval("é que uma traz um FLOAT e outro um INTEIRO.")
Escreval("Único cuidado que adotamos é que a váriavel que recebe ",i1," / ",i2," tem de ser real")
Escreval("##################################################################################")
Escreval(" MOD ")
mode <- i1 mod i2
Escreval("Neste caso usamos ",i1," mod ",i2," para ter o RESTO de resultado =", mode)
Escreval("##################################################################################")
Escreval()
Escreval(" EXEMPLO PRÁTICO ")
Escreval()
Escreval("Temos um valor monetário , e queremos dividir da seguinte maneira, se possível: ")
Escreval("Uma nota de R$ 50,00;")
Escreval("Uma nota de R$ 20,00;")
Escreval("Três notas de R$ 10,00;")
Escreval("Cinco notas de R$ 5,00;")
Escreval("Restante em notas de R$ 1,00;")
Escreval("Digite quanto você sacou de sua Conta Bancária !!! ")
leia(r1)
ntCinq <- r1 div 50
restCinq <- r1 mod 50
ntVin <- restCinq div 20
restVin <- restCinq mod 20
ntDez <- restVin div 10
restDez <- restVin mod 10
ntCinc <- restDez div 5
restCinc <- restDez mod 5
ntUm <- restCinc div 1
restUm <- restCinc mod 1
Escreval("Você recebeu", ntCinq ," notas de R$ 50,00")
Escreval("Você recebeu", ntVin ," notas de R$ 20,00")
Escreval("Você recebeu", ntDez ," notas de R$ 10,00")
Escreval("Você recebeu", ntCinc ," notas de R$ 5,00")
Escreval("Você recebeu", ntUm ," notas de R$ 1,00")
Escreval(" ---------")
Escreval("Seu saque total foi de ", (ntCinq*50)+(ntVin*20)+(ntDez*10)+(ntCinc*5)+(ntUm*1),",00")
fimalgoritmo