1ª lista. 6 - Faça um programa que seja capaz de calcular o resultado de uma operação de divisão inteira (x dividido y), utilizando-se apena ( - ).

algoritmo "SUBTRAÇÃO sucessiva"
// Função :
// Autor :
// Data : 27/10/2010
// Seção de Declarações
var
x,y,quociente :inteiro
inicio
ESCREVA ("Entre com o dividendo: ")
LEIA (x)
x <- ABS(x)
REPITA
ESCREVA ("Entre com o divisor: ")
LEIA (y)
y <- ABS(y)
SE (x ESCREVAL ("O divisor tem que ser menor ou igual ao divisor !")
ESCREVAL ("")
FIMSE
ATE (x>y)
SE (x=0) ou (y=0) ENTAO
ESCREVA ("O resultado é: 0 ")
SENAO
ENQUANTO (x>=y) FACA
x <- x-y
quociente <- quociente + 1
FIMENQUANTO
FIMSE
ESCREVAL ("O resultado da divisão é: ", quociente ," e o resto é: ", x)

fimalgoritmo