Lista 5 - Pagina 66
Exercícios resolvidos da
apostila Manzano usando a estrutura de repetição do tipo PARA.
a. Apresentar
os quadrados dos números inteiros de 15 a 200.
Algoritmo "quadrados"
Var
// Seção de Declarações das variáveis
quadrado, numero:inteiro
Inicio
// Seção de Comandos, procedimento,
funções, operadores, etc...
para numero de 15 ate 200 passo 1 faça
quadrado <- numero*numero
escreval ("o valor do
quadrado de",numero," é", quadrado)
fimpara
fimalgoritmo
b. Apresentar
os resultados de uma tabuada de multiplicar (de 1 até 10) de um número
qualquer.
Algoritmo "tabuada"
Var
// Seção de Declarações das
variáveis
tabuada, numero, cont: inteiro
Inicio
// Seção de Comandos, procedimento,
funções, operadores, etc...
cont <- 1
escreval ("digite um numero")
leia (numero)
para cont de 1 ate 10 passo 1 faça
tabuada <- cont*numero
escreval (numero,"*",
cont,":",tabuada)
fimpara
fimalgoritmo
c. Apresentar
o total da soma obtida dos cem primeiros números inteiros
(1+2+3+4+...+98+99+100).
Algoritmo "soma"
Var
// Seção de Declarações das variáveis
soma, numero:inteiro
Inicio
// Seção de Comandos, procedimento,
funções, operadores, etc...
numero <- 1
para numero de 1 ate 100 passo 1 faça
soma <- numero + soma
fimpara
escreval ("a soma dos cem primeiro
numeros inteiros é:",soma)
fimalgoritmo
d. Elaborar
um programa que apresente no final o somatório dos valores pares existentes na
faixa de 1 até 500.
Algoritmo "somaPar"
//
//
Var
// Seção de Declarações das variáveis
soma, numero:inteiro
Inicio
// Seção de Comandos, procedimento,
funções, operadores, etc...
numero<-1
para numero de 1 ate 500 passo 1 faça
se (numero mod 2=0) entao
soma<-numero +
soma
fimse
fimpara
escreval("o somatorio dos valores
pares é:",soma)
fimalgoritmo
e. Apresentar
todos os valores numéricos inteiros ímpares situados na faixa de 0 a 20. Para
verificar se o número é ímpar, efetuar dentro da malha a verificação
lógica desta condição com a instrução se, perguntando se o número é ímpar;
sendo, mostre-o; não sendo, passe para o próximo passo.
Algoritmo "valoresImpares"
Var
// Seção de Declarações das
variáveis
numero:inteiro
Inicio
// Seção de Comandos, procedimento,
funções, operadores, etc...
para numero de 0 ate 20 passo 1 faça
se (numero mod 2=1) entao
escreval(numero)
fimse
fimpara
fimalgoritmo
f. Apresentar
todos os números divisíveis por 4 que sejam menores que 200. Para verificar se
o número é divisível por 4, efetuar dentro da malha a verificação lógica desta
condição com a instrução se, perguntando se o número é divisível;
sendo, mostre-o; não sendo, passe para o próximo passo. A variável que
controlará o contador deve ser iniciada com o valor 1.
Algoritmo "divisiveis4"
//
//
Var
// Seção de Declarações das
variáveis
numero:inteiro
Inicio
// Seção de Comandos, procedimento,
funções, operadores, etc...
numero <- 1
para numero de 1 ate 200 passo 1 faça
se (numero mod 4=0) entao
escreval(numero)
fimse
fimpara
fimalgoritmo
g. Apresentar
os resultados das potências de 3, variando do expoente 0 até o expoente 15.
Deve ser considerado que qualquer número elevado a zero é 1, e elevado a 1 é
ele próprio. Observe que neste exercício não pode ser utilizado o operador de
exponenciação do portuguol (^).
Algoritmo
"potencia"
//
//
Var
// Seção de Declarações das variáveis
base, expo, potencia, cont: inteiro
Inicio
// Seção de Comandos, procedimento, funções,
operadores, etc...
base <- 3
escreval ("o resultado da potência de 3
de 0 à 15 é:")
para expo de 0 até 15 passo 1 faça
se (expo<>0) entao
potencia <- 1
para cont de 1 até expo passo 1 faça
potencia <- potencia * base
fimpara
escreval (expo, potencia)
fimse
se (expo=0) entao
escreval (expo, 1)
fimse
fimpara
Fimalgoritmo
h. Elaborar
um programa que apresente como resultado o valor de uma potência de uma base
qualquer elevada a um expoente qualquer, ou seja, de BE, em que B é
o valor da base e E o valor do expoente. Observe que neste exercício não pode
ser utilizado o operador de exponenciação do portuguol (^).
Algoritmo "B^E"
//
//
//
Var
res, B, EE, cont: inteiro
Inicio
// Seção de Comandos, procedimento, funções,
operadores, etc...
res <- 1
escreval ("digite um valor para base e
um para o expoente")
leia (B, EE)
para cont de 1 ate EE passo 1 faça
res <- res * B
escreval (B, " ^ ", cont, " =
", res)
fimpara
Fimalgoritmo
i. Escreva
um programa que apresente a série de Fibonacci até o décimo quinto termo. A
série de Fibonacci é formada pela sequência: 1, 1, 2, 3, 5, 8, 13, 21, 34, ...,
etc. Esta série se caracteriza pela soma de um termo atual com o seu anterior subsequente,
para que seja formado o próximo valor da sequência. Portanto começando com os
números 1, 1 o próximo termo é 1+1=2, o próximo é 1+2=3, o próximo é 2+3=5, o
próximo 3+5=8, etc.
Algoritmo
"fibonacci"
//
Var
ant, atual, prox, cont: inteiro
Inicio
// Seção de Comandos, procedimento, funções,
operadores, etc...
ant <- 1
atual <- 1
escreval (" a série de Fibonacci até o
décimo quinto termo é:")
escreval (ant)
escreval (atual)
para cont de 3 ate 15 passo 1 faça
prox <- atual + ant
ant <- atual
atual <- prox
escreval (prox)
fimpara
Fimalgoritmo
j. Elaborar
um programa que apresente os valores de conversão de graus Celsius em
Fahrenheit, de 10 em 10 graus, iniciando a contagem em 10 graus Celsius e
finalizando em 100 graus Celsius. O programa deve apresentar os
valores das duas temperaturas. A
fórmula de conversão é F= (9C + 160) /5, sendo F a
temperatura em Fahrenheit e C a temperatura em Celsius.
Algoritmo
"temperatura"
//
//
//
Var
// Seção de Declarações das variáveis
c: inteiro
f: real
Inicio
// Seção de Comandos, procedimento, funções,
operadores, etc...
escreval (" a conversão de graus
Celsius em Fahrenheit de 10 em 10 graus é:")
para c de 10 até 100 passo 10 faça
f <- ((9 * c) + 160) / 5
escreval (c," em graus
Celsius", " é", f, " graus em Fahrenheit")
fimpara
Fimalgoritmo
k. Elaborar
um programa que apresente como resultado o valor do fatorial dos valores
ímpares situados na faixa numérica de 1 a 10.
Algoritmo
"fatorial"
//
//
//
Var
// Seção de Declarações das variáveis
fat, n, cont: inteiro
Inicio
// Seção de Comandos, procedimento, funções,
operadores, etc...
cont<-1
n<-1
escreval ("o fatorial dos valores
ímpares na faixa numérica de 1 a 10 é:")
para cont de 1 até 10 passo 1 faça
se (cont mod 2 = 1) entao
fat <-1
n <- cont
repita
fat<- fat*n
n<-n-1
até (n<1)
escreval ("o fatorial de ",
cont, " é", fat)
fimse
fimpara
Fimalgoritmo