ILA - Unisinos
ILA - Unisinos
ILA - Unisinos
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Aprendendo a Programar Programando numa Linguagem Algorítmica Executável (<strong>ILA</strong>) - Página 52<br />
360, 420 2<br />
180, 210 2<br />
90, 105 2<br />
45, 105 3<br />
15, 35 3<br />
5, 35 5<br />
1, 7 7<br />
1, 1 MMC = 2*2*2*3*3*5*7 = 2 520<br />
Observe que, quando um divisor primo é encontrado, repete-se a divisão, com o quociente no<br />
lugar do dividendo, até se obter um número que não é múltiplo daquele divisor. Aí, incrementa-se o<br />
tal divisor. Isto é feito até que ambos os quocientes sejam iguais a 1. Temos o seguinte programa.<br />
//Programa para determinação do mínimo múltiplo comum de dois inteiros positivos<br />
Variaveis<br />
Numerico m, n, x, y, Div, Mmc<br />
Inicio<br />
Escrever "Digite os dois números"<br />
Ler m<br />
Ler n<br />
x = m<br />
y = n<br />
Mmc = 1<br />
Div = 2<br />
Faca enquanto (x 1) ou (y 1)<br />
Faca enquanto (Resto(x, Div) = 0) ou (Resto(y, Div) = 0)<br />
Mmc = Mmc*Div<br />
Se Resto(x, Div) = 0 entao<br />
x = Inteiro(x/Div)<br />
Fim_se<br />
Se Resto(y, Div) = 0 entao<br />
y = Inteiro(y/Div)<br />
Fim_se<br />
Fim_enquanto<br />
Div = Div + 1<br />
Fim_enquanto<br />
Escrever "mmc(", m,", ", n,") = ", Mmc<br />
Fim<br />
10. A questão do mmc é muito interessante como exemplo para a aprendizagem de<br />
programação pelo fato de que podemos apresentar um outro algoritmo de compreensão bem mais<br />
simples que o anterior.<br />
A idéia é a seguinte: se formos multiplicando m sucessivamente por 1, 2, 3,..., obteremos<br />
múltiplos de m. Para se obter o mínimo múltiplo comum basta que se tome o primeiro destes<br />
produtos que seja múltiplo também de n.<br />
//Programa para a determinação do mínimo múltiplo comum de dois inteiros positivos<br />
Variaveis<br />
Numerico m, n, x, y, i, Mmc<br />
Inicio<br />
Escrever "Digite os dois números"<br />
Ler m<br />
Ler n<br />
Se m > n entao