14.03.2015 Views

ILA - Unisinos

ILA - Unisinos

ILA - Unisinos

SHOW MORE
SHOW LESS

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

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!