multiplicação e divint

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

algoritmo "semnome"
// Função : Operação de (m)ultiplicação e (D)ivisão com adição e subtração
// Autor : Wellinghton Renner
// Data : 10/11/2015
Var
n1, n2, r, i, j: Inteiro
o: Caracter
Inicio
Escreva ("Qual operação deseja realizar; (M)ultiplicação ou (D)ivisão: ")
Leia (o)
LIMPATELA
Escolha o
caso "M"
 Escreva ("Primeiro fator da multiplicação: ")
 leia (n1)
 escreva ("Segundo fator: ")
 leia (n2)
 r <- 0
 // AQUI O r RECEBE 0 FORA DO LAÇO PARA QUE POSSA CONTAR
 // MUDE O VALOR PARA OBSERVAR
 // EXECUTE COM O F8 PARA VER COMO FUNCIONA O CÓDIGO
 para i de 1 ate n2 faca
 //A VARIAVEL "i" É SÓ UMA VARIAVEL DE CONTROLE
 r <- r + n1
 fimpara
 escreva (r)
caso "D"
 Escreval("Só para valores inteiros positivos sendo que n1 > n2")
 Escreva ("Dividendo: ")
 leia (n1)
 Escreva ("Divisor: ")
 Leia (n2)
 i <- 0
 //VARIAVEL DE CONTROLE NOVAMENTE PARA FAZER O LOOPING
 Se n1 >= n2 entao
 Enquanto n1 >= n2 faca
 n1 <- n1 - n2
 i <- i + 1
 fimenquanto
 escreva("Resultado: ", i, " resto ", n1)
 Senao
 Escreval(" O divisor foi maior que o dividendo")
 Escreval(" Só para valores inteiros positivos sendo que n1 > n2")
fIMSE
outrocaso
 Escreva ("Você não escolheu uma opção valida!!!11")
fimescolha
Fimalgoritmo