Lista ex

Universidade Federal de Ouro Preto – UFOP Instituto de Ciências Exatas e Biológicas – ICEB Departamento de Computação – DECOM Disciplina: Algoritmos e Estrutura de Dados I – CIC102 Professor: David Menotti ([e-mail]) Lista de Exercícios 03a – Algoritmos – Repetição 1) Escreva um algoritmo em PORTUGOL que imprima todos os números inteiros de 0 a 50. algoritmo L3P001; var inteiro: C; início para C de 0 até 50 faça imprima(C); fim-para fim program l3p001; var C: integer; begin for C := 0 to 50 do writeLn(C); end. for C = 0 : 50 disp(C); end

UFOP – ICEB – DECOM – 2º. Sem 2008 – David Menotti

1

Universidade Federal de Ouro Preto – UFOP Instituto de Ciências Exatas e Biológicas – ICEB Departamento de Computação – DECOM Disciplina: Algoritmos e Estrutura de Dados I – CIC102 Professor: David Menotti ([e-mail]) 2) Escreva um algoritmo em PORTUGOL que imprima todos os números inteiros do intervalo fechado de 1 a 100. algoritmo L3P002; var inteiro: C; início para C de 1 até 100 faça imprima(C); fim-para fim program l3p002; var C: integer; begin for C := 1 to 100 do writeLn(C); end. for C = 1 : 100 disp(C); end

UFOP – ICEB – DECOM – 2º. Sem 2008 – David Menotti

2

Universidade Federal de Ouro Preto – UFOP Instituto de Ciências Exatas e Biológicas – ICEB Departamento de Computação – DECOM Disciplina: Algoritmos e Estrutura de Dados I – CIC102 Professor: David Menotti ([e-mail]) 3) Escreva um algoritmo em PORTUGOL que imprima todos os números inteiros de 100 a 1 (em ordem decrescente). algoritmo L3P003; var inteiro: C; início para C de 100 até 1 passo - 1 faça imprima(C); fim-para fim program l3p003; var C: integer; begin for C := 100 downto 1 do writeLn(C); end. for C = 100 : -1 : 1 disp(C); end

UFOP – ICEB – DECOM – 2º. Sem 2008 – David Menotti

3

Universidade Federal de Ouro Preto – UFOP Instituto de Ciências Exatas e Biológicas – ICEB Departamento de Computação – DECOM Disciplina: Algoritmos e Estrutura de Dados I