EXERCICIO 8

Prévia do material em texto

EXERCICIO 8 
 
1) Faça um algoritmo que mostre os números de 1 a 10 na tela. 
 
Algoritmo "Um a Dez" 
Var 
n :inteiro 
Inicio 
n<-10 
para n de 1 ate n passo 1 faca 
escreva(n) 
fimpara 
Fimalgoritmo 
 
2) Faça um algoritmo que mostre na tela a tabuada de um número qualquer digitado 
pelo usuário. 
 
Algoritmo "Taboada" 
Var 
n,x :inteiro 
Inicio 
escreval("Digite um número:") 
leia(n) 
para x de 0 ate 10 passo 1 faca 
escreval(x," x",n, "=",n*x) 
x<-x+1 
fimpara 
Fimalgoritmo 
 
3) Imprimir na tela todos os números de 100 a 1 (contagem regressiva). 
 
Algoritmo "100 a 1" 
Var 
n :inteiro 
Inicio 
n<-100 
para n de n ate 1 passo -1 faca 
escreval(n) 
fimpara 
Fimalgoritmo 
 
 
 
 
 
 
 
4) Imprimir na tela os 100 primeiros números pares. 
 
Algoritmo "100 primeiros pares" 
Var 
n :inteiro 
Inicio 
n<-2 
para n de n ate 200 passo 2 faca 
escreval(n) 
fimpara 
Fimalgoritmo 
 
5) Imprimir na tela todos os números múltiplos de 5, no intervalo de 1 a 500. 
 
Algoritmo "Múltiplos de 5" 
Var 
n :inteiro 
Inicio 
para n de 1 ate 500 passo 1 faca 
se(n%5=0)entao 
escreval(n) 
fimse 
fimpara 
Fimalgoritmo 
 
6) Imprimir na tela os quadrados dos números de 1 a 20. 
 
Algoritmo "Quadrados 1 a 20" 
Var 
n :inteiro 
Inicio 
para n de 0 ate 20 passo 1 faca 
escreval(n,"^2 =",n^2) 
fimpara 
fimalgoritmo 
 
7) Imprimir na tela todos os números de 120 a 300. 
 
Algoritmo "120 a 300" 
Var 
n:inteiro 
Inicio 
para n de 120 ate 300 passo 1 faca 
escreval(n) 
fimpara 
fimalgoritmo 
 
8) Imprimir na tela todos os números de 1 a 100 e a soma dele com todos os anteriores. 
 
Algoritmo "1 a 100 mais soma" 
Var 
n,s :inteiro 
Inicio 
para n de 1 ate 100 passo 1 faca 
s<-s+n 
escreval("N ",n," SOMA ANTERIORES = ",s) 
fimpara 
fimalgoritmo 
 
9) Faça um algoritmo para imprimir na tela uma tabela de conversão de polegadas para 
centímetros. Deseja-se que a tabela conste de valores desde 1 até 20 polegadas. Lembre-se 
que 1 polegada equivale a 2,54 cm. 
 
Algoritmo "conversão polegada" 
Var 
n :inteiro 
Inicio 
para n de 1 ate 20 passo 1 faca 
escreval(n,"pol. = ",n*2.54,"cm") 
fimpara 
fimalgoritmo 
 
10) Faça um algoritmo para imprimir na tela uma tabela de conversão de graus Fahrenheit 
para graus Celsius. Deseja-se que o mesmo solicite ao usuário o limite inferior, o superior e o 
incremento. Lembre-se que C = 5.(F-32)/9 
 
algoritmo "fahrenheit para celsius" 
var 
f,fmax,fmin,i: inteiro 
c :real 
inicio 
escreval("entre com máxima em fahrenheit : " ) 
leia(fmax) 
escreval("entre com mínima em fahrenheit : " ) 
leia(fmin) 
escreval("entre com grau de incremento em fahrenheit : " ) 
leia(i) 
para f de fmin ate fmax passo i faca 
c<-5*(f-32)/9 
escreval(f," f para ",c:1:2," celsius") 
fimpara 
Fimalgoritmo 
 
11) Entrar com o nome, idade e sexo de 20 pessoas. Imprimir o nome se a pessoa for do 
sexo masculino e tiver mais de 21 anos. 
 
algoritmo "maior de 21" 
var 
i,m: inteiro 
n,s,v: caracter 
inicio 
m<-1 
para m de 1 ate 20 passo 1 faca 
escreval("entre com nome: ") 
leia(n) 
escreval("entre com sexo (m-masculino|f-feminino): ") 
leia(s) 
escreval("entre com idade: ") 
leia(i) 
se(s="m")e(i>21)entao 
v<-v+n 
fimse 
fimpara 
escreva(v) 
fimalgoritmo 
 
12) Criar um algoritmo que leia um número que será o limite superior de um intervalo e o 
incremento. Imprimir todos os números do intervalo de 0 até esse número, de incremento em 
incremento. Ex: limite 20, incremento 5; vai imprimir 0, 5, 10, 15, 20 
 
algoritmo "incremento" 
var 
i,s,ls :inteiro 
inicio 
escreval("entre com limite superior: ") 
leia(ls) 
escreval("entre com o incremento: ") 
leia(i) 
para ls de 0 ate ls passo i faca 
escreval(s) 
s<-s+i 
fimpara 
fimalgoritmo 
 
 
 
 
 
13) Criar um algoritmo que leia um número que será o limite superior de um intervalo e 
imprimir todos os números ímpares menores do que esse número. Exemplo: limite 15, 
imprime 1, 3, 5, 7, 9, 11, 13 
 
algoritmo "incremento impar" 
var 
ls,i :inteiro 
inicio 
escreval("entre com limite superior: ") 
leia(ls) 
para ls de 1 ate ls passo 1 faca 
i<-i+1 
se(ls mod 2>=1)entao 
escreval(i) 
fimse 
fimpara 
fimalgoritmo 
 
14) Criar um algoritmo que leia um número que servirá para controlar os números pares 
que serão impressos a partir de 2 Exemplo: quantos 4, imprime 2, 4, 6, 8 
 
algoritmo "pares de controle" 
var 
c :inteiro 
inicio 
escreval("entre com nº de controle : ") 
leia(c) 
para c de 2 ate c*2 passo 2 faca 
se(c mod 2=0)entao 
escreva(c," ") 
fimse 
fimpara 
fimalgoritmo 
 
 
 
 
 
 
 
 
 
 
 
 
 
15) Crie um algoritmo que calcule o fatorial de um número. Exemplo: 0! = 1; 1! = 1; 2! = 
1*2 = 2; 3! = 1*2*3 = 6; 4! = 1*2*3*4 = 24; 5! = 1*2*3*4*5 = 120; ... 
 
algoritmo "fatorial" 
var 
cont, num, mult: inteiro 
inicio 
escreva ("informe um número: ") 
leia (num) 
para cont de num ate 2 passo -1 faca 
se (cont = num) entao 
mult <- cont * (cont - 1) 
fimse 
se (cont < num) e (cont <> 1) entao 
mult <- mult * (cont - 1) 
fimse 
fimpara 
escreval ("o fatorial de ", num, " é: ", mult) 
fimalgoritmo