ILA - Unisinos

Aprendendo a Programar Programando numa Linguagem Algorítmica Executável (ILA) - Página 48
Escrever "Digite o número (zero para encerrar)"
n = 1
Faca enquanto n 0
Ler n
Metade = Inteiro(n/2)
Escrever "Os divisores de ", n, " são "
Para i = 1 ate Metade
Se Resto(n, i) = 0 entao
Escrever i
Fim_se
Proximo
Escrever n
Fim_enquanto
Fim
Vale observar que, ao contrário do que foi dito na seção 2.9, os valores de saída deste
programa não estão sendo armazenados. O que acontece é que ainda não temos condições de
armazenar uma quantidade indefinida de elementos. Este problema será resolvido no capítulo 6.
Vale observar também que, como a variável de controle do comando Para próximo pode receber
valores fracionários, o cálculo de Inteiro(n/2) é desnecessário, podendo-se usar diretamente
Metade = n/2. A função inteiro foi colocada ali pelo fato de que a maioria dos sistemas faz diferença
entre números inteiros e números fracionários e, em alguns casos, a variável de controle de uma
estrutura do tipo Para próximo só pode receber valores inteiros.
3. Na seção 1.5 discutimos um algoritmo que determinava o quociente e o resto da divisão
entre dois inteiros positivos dados. Embora o ILA possua uma função pré-definida que calcula o
resto de uma divisão inteira e já mostramos como calcular o quociente, utilizando esta função,
vamos apresentar a implementação do algoritmo referido.
//Programa que retorna o quociente e o resto da divisão de dois inteiros dados
Variaveis
Numerico Dividendo, Divisor, Rest, Quoc
Caracter r
Inicio
r = "S"
Faca enquanto (r = "S") ou (r = "s")
Escrever "Digite o dividendo e o divisor"
Ler Dividendo
Ler Divisor
Faca enquanto Divisor = 0
Se Divisor = 0 entao
Escrever "O divisor tem que ser não nulo"
Fim_se
Ler Divisor
Fim_enquanto
Quoc = 1
Faca enquanto Quoc*Divisor