Lista de Exercícios Enquanto Faça com correção

Prévia do material em texto

Exercícios de Lógica de Programação 
 
1. Para cada uma das sequências numéricas abaixo faça: 
 descubra qual a lógica; 
 imprima os 20 primeiros termos; 
 imprima a soma; 
 imprima a média; 
 imprima o primeiro número 
 imprima o último número 
 
a. 1,3,5,7,9,11,... 
b. 2,4,6,8,10,.... 
c. 5000, 4999, 4998,... 
d. 5000,4500, 4000,... 
e. 1/5,2/10,3/15,4/20,... 
f. 1,1,2,3,3,5,4,7,5,9,... 
 
 
 
algoritmo "Exercício 01" 
var 
 T, I, S, Pt, Ut : Inteiro 
 M : Real 
inicio 
 S <- 0 
 T <- 1 
 I <- 1 
 Pt <- I 
 Enquanto I <= 10 faca 
 Escreva(I,T) 
 S <- S + I + T 
 T <- T + 2 
 I <- I + 1 
 FimEnquanto 
 Ut <- T -2 
 M <- S/20 
 Escreval("") 
 Escreval("Soma: ",S) 
 Escreval("Média: ",M) 
 Escreval("Primeiro Termo: ",Pt) 
 Escreval("Último Termo: ",Ut) 
Fimalgoritmo 
 
algoritmo "Exercício 02" 
var 
 T, I, S, Pt, Ut : Inteiro 
 M : Real 
inicio 
 S <- 0 
 T <- 2 
 I <- 1 
 Pt <- T 
 Enquanto I <= 20 faca 
 Escreva(T) 
 S <- S + T 
 T <- T + 2 
 I <- I + 1 
 FimEnquanto 
 Ut <- T -2 
 M <- S/20 
 Escreval("") 
 Escreval("Soma: ",S) 
 Escreval("Média: ",M) 
 Escreval("Primeiro Termo: ",Pt) 
 Escreval("Último Termo: ",Ut) 
Fimalgoritmo 
 
algoritmo "Exercício 03" 
var 
 T, I, S, Pt, Ut : Inteiro 
 M : Real 
inicio 
 S <- 0 
 T <- 5000 
 I <- 1 
 Pt <- T 
 Enquanto I <= 20 faca 
 Escreval(T) 
 S <- S + T 
 T <- T - 1 
 I <- I + 1 
 FimEnquanto 
 Ut <- T + 1 
 M <- S/20 
 Escreval("") 
 Escreval("Soma: ",S) 
 Escreval("Média: ",M) 
 Escreval("Primeiro Termo: ",Pt) 
 Escreval("Último Termo: ",Ut) 
Fimalgoritmo 
 
algoritmo "Exercício 04" 
var 
 T, I, S, Pt, Ut : Inteiro 
 M : Real 
inicio 
 S <- 0 
 T <- 5000 
 I <- 1 
 Pt <- T 
 Enquanto I <= 20 faca 
 Escreval(T) 
 S <- S + T 
 T <- T - 500 
 I <- I + 1 
 FimEnquanto 
 Ut <- T + 500 
 M <- S/20 
 Escreval("") 
 Escreval("Soma: ",S) 
 Escreval("Média: ",M) 
 Escreval("Primeiro Termo: ",Pt) 
 Escreval("Último Termo: ",Ut) 
fimalgoritmo 
 
algoritmo "Exercício 05" 
var 
 T, I, Pt, Ut : Inteiro 
 M,S : Real 
inicio 
 S <- 0 
 T <- 5 
 I <- 1 
 Pt <- T 
 Enquanto I <= 20 faca 
 Escreval(i,"/",T) 
 S <- S + (i/T) 
 T <- T + 5 
 I <- I + 1 
 FimEnquanto 
 Ut <- T - 5 
 M <- S/20 
 Escreval("") 
 Escreval("Soma: ",S) 
 Escreval("Média: ",M) 
 Escreval("Primeiro Termo: ",1, "/",Pt) 
 Escreval("Último Termo: ",20,"/", Ut) 
Fimalgoritmo 
 
algoritmo "Exercício 06" 
var 
 T, I, S, Pt, Ut : Inteiro 
 M : Real 
inicio 
 S <- 0 
 T <- 1 
 I <- 1 
 Pt <- I 
 Enquanto I <= 10 faca 
 Escreva(I,T) 
 S <- S + I + T 
 T <- T + 2 
 I <- I + 1 
 FimEnquanto 
 Ut <- T -2 
 M <- S/20 
 Escreval("") 
 Escreval("Soma: ",S) 
 Escreval("Média: ",M) 
 Escreval("Primeiro Termo: ",Pt) 
 Escreval("Último Termo: ",Ut) 
fimalgoritmo