14.03.2015 Views

ILA - Unisinos

ILA - Unisinos

ILA - Unisinos

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Aprendendo a Programar Programando numa Linguagem Algorítmica Executável (<strong>ILA</strong>) - Página 42<br />

exibe na tela os números 7, 6, 5, 4, 3. Por seu turno, o programa<br />

Variaveis<br />

Numerico i<br />

Inicio<br />

Para i = 1 ate 8 passo -2<br />

Escrever i<br />

Proximo<br />

Fim<br />

exibe na tela, apenas, o número 1.<br />

Vale observar que a indicação Passo Exp. 3 é facultativa. Se ela for omitida o sistema assume<br />

o valor 1 para Exp. 3 e, portanto, neste caso, a variável de controle é incrementada de uma unidade.<br />

Assim, e para mais um exemplo, a confecção da tabela de conversão citada na seção 4.1 poderia ser<br />

feita através da execução do seguinte programa.<br />

//Programa que gera uma tabela de conversão de temperaturas dadas em graus Fahrenheit para<br />

graus Celsius<br />

Variaveis<br />

Numerico Fahrenheit, Celsius<br />

Inicio<br />

Para Fahrenheit = 32 ate 110<br />

Celsius = 5*(Fahrenheit - 32)/9<br />

Escrever Fahrenheit, " ", Celsius<br />

Proximo<br />

Fim<br />

4.3 Comando Faca enquanto<br />

Para introduzir uma nova estrutura de repetição e cotejá-la com o comando Faca proximo,<br />

considere um programa para encontrar um divisor próprio de um inteiro dado (um divisor próprio<br />

de um inteiro n é um divisor de n menor que n e diferente de 1). Com a utilização do comando Para<br />

proximo teríamos a seguinte solução.<br />

//Programa que determina um divisor próprio de um inteiro positivo dado<br />

Variaveis<br />

Numerico Num, i, Divisor<br />

Inicio<br />

Escrever "Digite o número"<br />

Ler Num<br />

Divisor = Num<br />

Para i = 2 ate Num - 1<br />

Se Resto(Num, i) = 0 entao<br />

Divisor = i<br />

Fim_se<br />

Proximo<br />

Se Divisor < Num entao<br />

Escrever Divisor , " é divisor próprio de ", Num<br />

Senao<br />

Escrever Num, "não tem divisores próprios"<br />

Fim_se<br />

Fim<br />

Um problema com este programa é que ele retorna sempre, se existir, o maior divisor próprio.

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

Saved successfully!

Ooh no, something went wrong!