Algoritmos repeticao

Universidade Federal de Minas Gerais - UFMG Instituto de Ciências Exatas - ICEx Disciplina: Programação de Computadores Professor: David Menoti ([e-mail]) Monitor: João Felipe Kudo ([e-mail]) Lista de Exercícios 03 – Algoritmos – Repetição Estrutura de Repetição (para ... de ... até ... passo ... faça: ... fim-para) 5) Escreva um algoritmo em PORTUGOL que imprima todos os números inteiros de 200 a 100 (em ordem decrescente). início inteiro: C; para C de 200 até 100 passo -1 faça: imprima(C); fim-para fim program l3p005; var C: integer; begin for C := 200 downto 100 do writeLn(C); end. for C = 200 : -1 : 100 disp(C); end

10) Escreva um algoritmo em PORTUGOL que imprima todos os números ímpares do intervalo fechado de 1 a 100. início inteiro: C; para C de 1 até 100 faça: imprima(C); fim-para fim program l3p010; var C: integer; begin for C := 1 to 100 do if ( C mod 2 = 1) then writeLn(C); end. for C = 1 : 100 if ( mod( C , 2 ) == 1 ) disp(C); end end

UFMG – ICEx – DCC – Programação de Computadores – 1º. Sem 2005 – David Menoti 1

15) Escreva um algoritmo em PORTUGOL que receba oito números do usuário e imprima o logaritmo de cada um deles na base 10. início inteiro: C; real: VALOR, LOG; para C de 1 até 8 faça: leia(VALOR); se ( VALOR > 0 ) então LOG 0 ) then begin LOG := Ln(VALOR) / Ln(10); writeLn(LOG:3:2); end else writeLn('Nao eh possivel calcular o log na base dez! Numero negativo!'); end; end. for C = 1 : 8 VALOR = input('Digite um valor: '); if ( VALOR > 0 ) LOG = log(VALOR) / log(10); disp(LOG); else disp('Nao eh possivel calcular o log na base dez! Numero negativo!'); end end

UFMG – ICEx – DCC – Programação de Computadores – 1º. Sem 2005 – David Menoti 2

20) Criar um algoritmo em PORTUGOL que imprima todos os números de 1 até 100, inclusive, e a média de todos eles. início inteiro: C; real: VALOR, LG; para C de 1 até 8 faça: leia(VALOR); se ( VALOR > 0 ) então LG M1 ) M2 = M1; M1 = VALOR; else if ( VALOR >