Lista de Exercícios - Estrutuas : Enquanto, Para e Repita
Autor: LeydsonOliveira  LucasZandonai  EvandroFerreira | Publicado: 2011-06-07T14:29:00-07:00

&nbsp; 
st1\:*{behavior:url(#ieooui) }


* Faça um algoritmo que imprima todos os números inteiros de 1 a N, onde N é um&nbsp; número fornecido pelo usuário.
algoritmo "Todos numeros inteiros de 1 a N"var&nbsp;&nbsp; N, num:inteiro&nbsp;inicio&nbsp;&nbsp; num &lt;- 1&nbsp;&nbsp; escreval("Informe um número: ")&nbsp;&nbsp; leia(N)&nbsp;&nbsp; enquanto (num &lt;= N) faca&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval(num, " * ")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; num &lt;- num + 1&nbsp;&nbsp; fimenquantofimalgoritmo 

* Faça um algoritmo que receba um número N, some todos os números inteiros de 1 a N, e mostre o resultado obtido.
algoritmo "Soma do inteiros de 1 a N"var&nbsp;&nbsp; I, N, total:inteiro&nbsp;&nbsp; inicio&nbsp;&nbsp; escreval("Informe um numero: ")&nbsp;&nbsp; leia(N)&nbsp;&nbsp;&nbsp;&nbsp; para I de 1 ate N faca&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; total &lt;- total + I&nbsp;&nbsp;&nbsp;&nbsp; fimpara&nbsp;&nbsp;&nbsp;&nbsp; escreva ("A Soma dos números é ", total)fimalgoritmo 
* Elabore um algoritmo que imprima todos os múltiplos de 4 compreendidos entre 5 e 87.
algoritmo "Numeros Multiplos de 4"

var
&nbsp;&nbsp; I:inteiro
&nbsp;&nbsp; 
inicio

&nbsp;&nbsp;&nbsp;&nbsp; I &lt;- 5
&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp; Repita

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; se ( I mod 4 = 0) entao
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval (I, " é multiplo de 4")
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fimse
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; I &lt;- I + 1

&nbsp;&nbsp;&nbsp;&nbsp; ate I = 87
&nbsp;&nbsp;&nbsp;&nbsp; 
fimalgoritmo 

* Escreva um algoritmo que imprima todos os múltiplos de um número N fornecido pelo usuário, compreendidos entre dois números A e B também fornecidos pelo usuário.
algoritmo "Numeros Multiplos de um numero"

var
&nbsp;&nbsp; N, A, B, I:inteiro
&nbsp;&nbsp; 
inicio

&nbsp;&nbsp; escreval ("Digite um numero: ")
&nbsp;&nbsp; leia (N)
&nbsp;&nbsp; escreval ("Informe um numero inicial e um final para um intervalo: ")
&nbsp;&nbsp; leia (A, B)

&nbsp;&nbsp; I &lt;- A

&nbsp;&nbsp; enquanto (I &lt;= B) faca

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; se (I mod N = 0) entao
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval(I," É Multiplo de ",N)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fimse

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; I &lt;- I + 1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp; fimenquanto
&nbsp;&nbsp; 
fimalgoritmo 

* Imprima uma tabela de conversão de polegadas para centímetros, de 1 a 20. Considere que Polegada = Centímetro * 2,54.
algoritmo "Conversão de polegadas para centímetros"

var
&nbsp;&nbsp;&nbsp; I:inteiro
&nbsp;&nbsp; 
inicio

&nbsp;&nbsp;&nbsp; escreval("|---------------------------------------|")
&nbsp;&nbsp;&nbsp; escreval("|------------ T A B E L A --------------|")
&nbsp;&nbsp;&nbsp; escreval("|CONVERSÃO DE POLEGADAS PARA CENTIMETROS|")
&nbsp;&nbsp;&nbsp; escreval("|---------------------------------------|")

&nbsp;&nbsp;&nbsp; para I de 1 ate 20 faca

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval("|---------------------------------------|")
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval("|-----",I," polega(S) é igual a ", I * 2.45 ," cm ")
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval("|_______________________________________|")

&nbsp;&nbsp;&nbsp; fimpara
&nbsp;&nbsp;&nbsp; 
fimalgoritmo 

* Dado dois números, o inicial e o final, calcule a soma de todos os números pares contidos nesse intervalo.
algoritmo "A soma dos numeros pares"

var
&nbsp;&nbsp; total, I, N1, N2:inteiro

inicio

&nbsp;&nbsp; escreval ("Informe dois valores inicial e final: ")
&nbsp;&nbsp; leia(N1, N2)
&nbsp;&nbsp; 
&nbsp;&nbsp; I &lt;- N1
&nbsp;&nbsp; 
&nbsp;&nbsp; Repita

&nbsp;&nbsp;&nbsp;&nbsp; se (I mod 2 = 0) entao
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; total &lt;- total + I
&nbsp;&nbsp;&nbsp;&nbsp; fimse

&nbsp;&nbsp; I &lt;- I + 1

&nbsp;&nbsp; ate I &gt; N2
&nbsp;&nbsp; escreva ("A Soma dos números par é igual a ", total)

fimalgoritmo
* A série de Fibonacci é formada pela seguinte seqüência: 1, 1, 2, 3, 5, 8, 13, 21, 34, ... etc. Nesta série, o próximo elemento é obtido através soma dos dois anteriores. Escreva um algoritmo que exiba a série de Fibonacci até o vigésimo termo.
algoritmo "A série de Fibonacci "

var
&nbsp;&nbsp; I, fibo, t1, t2:inteiro
&nbsp;&nbsp; 
inicio

&nbsp;&nbsp; fibo &lt;- 1
&nbsp;&nbsp; t1 &lt;- 1
&nbsp;&nbsp; t2 &lt;- 1

&nbsp;&nbsp; para I de 1 ate 20 faca

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; se (I &lt;= 2 ) entao
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fibo &lt;- 1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; senao
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fibo &lt;- t1+t2
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; t1 &lt;- t2
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; t2 &lt;- fibo
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fimse
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval("Termo ", I, " é igual ", fibo)

&nbsp;&nbsp; fimpara
&nbsp;&nbsp; 
fimalgoritmo
* Faça um algoritmo que calcule o fatorial de um número N fornecido pelo usuário.
algoritmo "Fatorial de um número N"

var
&nbsp;&nbsp; I, N, fat:inteiro
&nbsp;&nbsp; 
inicio

&nbsp;&nbsp; escreval("Entre com um numero :")
&nbsp;&nbsp; leia(N)

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; I &lt;- 1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fat &lt;- 1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Repita

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fat &lt;- fat * I
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; I &lt;- I + 1

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ate I &gt; N

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreva("O Fatorial de", N, " é ", fat)

fimalgoritmo