Algoritmos e Lógica de Programação

Prévia do material em texto

Exercício 01 
 
algoritmo "exercício 01"
	
var
quantValores, valor, a, b, fatorial: inteiro
inicio
fatorial <-1
escreval ("Digite quantos valores pretende utilizar no calculo fatorial: ")
leia (quantValores)
para a de 1 ate quantValores faca
 escreval("Insira o valor: ", a)
 leia (valor)
 para b de valor ate 2 passo -1 faca
 fatorial <- fatorial * b
 fimpara
 escreva("")
 escreva("")
 escreval ( "Valor = ", valor, ", O Fatorial do valor é = ", fatorial)
 fatorial <- 1
fimpara
fimalgoritmo
Exercício 02
algoritmo "exercício 02"
var
somap,soman : inteiro
numeros : inteiro
ma, po : real
n : inteiro
c : inteiro
inicio
// Seção de Comandos
numeros <- 0
somap <- 0
soman <- 0
repita
 escreva("Entre com um valor: ")
 leia(n)
 se (n > 0) entao // aqui ira contar os numeros positivos
	 //somap <- n + somap isso eh um acumulador, ou seja, a cada passagem do laco que entrar nesse se somap recebe seu ultimo valor + n.
	 somap <- somap + 1 // esse eh o chamado contador, ou seja, a cada passagem do laco que entrar nesse se somap recebe seu ultimo valor + 1
 fimse
 se (n < 0) entao
	 soman <- 1 + soman
 fimse
 numeros <- numeros + n // aqui eh um acumulador
ate n = 0
ma <- numeros / (somap + soman) //media dos numeros lidos
po <- somap / numeros //porcentagem de numeros positivos
escreval
escreval("A quantidade de números positivos é igual a: ",somap)
escreval("A quantidade de números negativos é igual a: ",soman)
escreval("A média de números positivos e negativos é igual a: ",ma)
escreval("A porcentagem de positivos e negativos é igual a: ",po)
fimalgoritmo
Exercício 03
algoritmo "exercício 03"
var
vetorA: vetor [1..10] de inteiro
contIntervalos: vetor [1..4] de inteiro
i, cont, valor: inteiro
inicio
// Seção de Comandos
cont<-1
Escreval ("Insira um novo Valor: ")
leia(valor)
enquanto (valor>0) faca
 vetorA[cont]<-valor
 cont<-cont+1
 Escreval ("Insira um novo Valor: ")
 leia(valor)
fimenquanto
cont<-cont-1
escreval (cont)
para i de 1 ate (cont) faca
 se (vetorA[i] <= 25) entao
 contIntervalos[1]<-contIntervalos[1]+1
 senao
 se ((vetorA[i] >= 26)e(vetorA[i] <= 50)) entao
 contIntervalos[2]<-contIntervalos[2]+1
 senao
 se ((vetorA[i] >= 51)e(vetorA[i] <= 75)) entao
 contIntervalos[3]<-contIntervalos[3]+1
 senao
 contIntervalos[4]<-contIntervalos[4]+1
 fimse
 fimse
 fimse
fimpara
escreval("")
escreval("valores de 1 - 25 : ", contIntervalos[1])
escreval("valores de 26 - 50 : ", contIntervalos[2])
escreval("valores de 51 - 75 : ", contIntervalos[3])
escreval("valores de 76 - 100 : ", contIntervalos[4])
fimalgoritmo
Exercício 05
algoritmo "exercício 05"
var
m, n, soma, i : inteiro
inicio
// Seção de Comandos 
escreval("Entre com o valor de m: ")
leia(m)
enquanto m >0 faca
escreval("Entre com o valor de n: ")
leia(n)
para (i <- m + n i++)
soma <- soma +i
escreval ("O valor da soma é: ",soma)
fimalgoritmo
Exercício 06
algoritmo "exercício 06"
var
 m , i divisores, soma, : real
inicio
// Seção de Comandos 
 leia (m)
enquanto (m > 0) faca
se (m % 2 = 0) entao
// É par
divisores <- 0
para i de 1 ate m faca
se (m % i 0) entao
divisores <- divisores + 1
fimse
fimpara
escreva (m, divisores)
senao
// É ímpar
se ( m<10) entao
escreva (m, fatorial(m))
senao
soma <- 0
for i de 1 ate m faca
soma <- soma + i
fimpara
escreva (i, soma)
fimse
fimse
leia (m)
fimenquanto
funcao fatorial (x:Inteiro): inteiro
inicio
se x=0 entao
retorne 1
senao
retorne x * Fat (x-1)
fimse
fimfuncao
fimalgoritmo
Exercício 07
algoritmo "exercício 07"
var
num, cont, pares, impares: inteiro
soma, media: real
inicio
cont <- 0
pares <- 0
impares <- 0
soma <- 0
leia (num)
enquanto (num > 0) faca
 cont <- cont + 1
 soma <- soma + num
 se (num % 2 = 0) entao
 pares <- pares + 1
 senao
 impares <- impares + 1
 fimse
 leia (num)
fimenquanto
se (cont > 0) entao
 escreval ("Pares: ", pares)
 escreval ("Ímpares: ", impares)
 media <- soma / cont
 escreval ("Média Geral dos Números Lidos: ", media)
fimse
 escreval ("Nenhum valor informado")
fimalgoritmo
Exercício 08
algoritmo "exercício 08"
var
numero, soma: real
inicio
soma<-0
repita
escreva("digite um número: ")
leia(numero)
se (numero < 0) entao
soma <- soma + numero
fimse
ate (numero=0)
escreva("a soma dos números negativos é: ",soma)
fimalgoritmo
Exercício 09
algoritmo "exercício 09"
var
n : inteiro
acm : inteiro
a : inteiro
p : inteiro
inicio
// Seção de Comandos
 p <- 1
 a <- 1
 escreva ("Entre com valores: ")
 leia(n)
 enquanto (n<>0) faca
	 se (n MOD 2=0) entao
		 a <- a * n
	 fimse
	 escreva ("Entre com valores: ")
	 leia(n)
 fimenquanto
 escreval("O produto dos pares é: ",a)
fimalgoritmo
Exercício 10
algoritmo "exercício 10"
var
i,h,ms,p,idade:inteiro
maior,menor,salario,soma,media:real
sexo:literal
inicio
menor <- 9999
escreval("Digite a quantidade de pessoas que fara a pesquisa: ")
leia(p)
para i de 1 ate p faca
escreval("Digite idade: ")
leia(idade)
escreval("Digite Sexo (M/F): ")
leia(sexo)
escreval("Digite Salario: ")
leia(salario)
soma <- soma + salario
media <- soma/p
se idade > maior entao
maior <- idade
fimse
se idade < menor entao
menor <- idade
fimse
se (sexo="f")e(salario<=100)entao
ms <- ms + 1
fimse
se sexo="m" entao
h <- h + 1
fimse
escreval(" ")
fimpara
escreval("A Média de salário do grupo é de: ",media)
escreval("A Maior idade é : ",maior," e a menor é de: ",menor)
escreval("A Quantidade de mulheres com salário até R$100 é de :",ms)
fimalgoritmo
Exercício 11
algoritmo "exercício 11"
var
sexo, olhos, cabelo : caracter
idade, maioridade, qtd: inteiro
inicio
// Seção de Comandos
 maioridade <- 0
 Escreval ("Informe Idade")
 leia (idade)
 enquanto idade > 0 faca
 escreval ("Informe olhos")
 leia(olhos)
 escreval ("Informe cabelo")
 leia(cabelo)
 escreval ("Informe sexo")
 leia(sexo)
 Se idade > maioridade entao
 maioridade <- idade
 fimse
 se ((cabelo = "louros") e (olhos = "verdes") e (sexo = "feminino") e (idade > 18) e (idade < 35)) entao
 qtd <- qtd + 1
 fimse
 escreval ("Informe idade")
 leia(idade)
 fimenquanto
 Escreval ("A maior idade é ", maioridade)
 Escreval ("A quantidade de mulheres com cabelos louros, olhos verdes e idade entre 18 e 35 é ",qtd)
Fimalgoritmo
Exercício 12
algoritmo "exercício 12"
var
sexo, olhos, cabelo : caracter
idade, maioridade, qtd: inteiro
inicio
// Seção de Comandos
 maioridade <- 0
 Escreval ("Informe Idade")
 leia (idade)
 enquanto idade > 0 faca
 escreval ("Informe olhos")
 leia(olhos)
 escreval ("Informe cabelo")
 leia(cabelo)
 escreval ("Informe sexo")
 leia(sexo)
 Se idade > maioridade entao
 maioridade <- idade
 fimse
 se ((cabelo = "louros") e (olhos = "verdes") e (sexo = "feminino") e (idade > 18) e (idade < 35)) entao
 qtd <- qtd + 1
 fimse
 escreval ("Informe idade")
 leia(idade)
 fimenquanto
 Escreval ("A maior idade é ", maioridade)
 Escreval ("A quantidade de mulheres com cabelos louros, olhos verdes e idade entre 18 e 35 é ",qtd)
Fimalgoritmo
Exercício 13 
algoritmo "exercício 13"
var
i,j : inteiro
codigo : vetor[1..1,1..3] de inteiro
valor:vetor[1..1,1..3] de real
valornovo:vetor[1..1,1..3] de real
somasemaumento, somacomaumento, mediasemaumento,mediacomaumento:real
inicio
// Seção de Comandos
para i de 1 ate 1 faca
 para j de 1 ate 3 faca
 limpatela
 escreval ("Informe o codigo do produto: ")
 leia(codigo[i,j])
 escreval("Informe o valor de custo: ")
 leia(valor[i,j])
 valornovo[i,j] <-((valor[i,j]*20/100) + valor[i,j])
 somasemaumento<-somasemaumento+valor[i,j]
 somacomaumento<-somacomaumento+valornovo[i,j]
 mediasemaumento<-somasemaumento/3
 mediacomaumento<-somacomaumento/3
 limpatela
 fimpara
fimparapara i de 1 ate 1 faca
 para j de 1 ate 3 faca
 escreval("Codigo: ",codigo[i,j]," - ","Valor de Custo: ",valor[i,j]," - ","Novo preco: ", valornovo[i,j])
 fimpara
fimpara
escreval("")
escreval ("media sem aumento: ",mediasemaumento)
escreval ("media com aumento: ",mediacomaumento)
fimalgoritmo
Exercício 14 
algoritmo "exercício 14"
var
num: inteiro
inicio
// Seção de Comandos
para num de 1000 ate 1999 faca
 se num % 11 = 5 entao
 escreva (num)
 fimse
fimpara
fimalgoritmo 
Exercício 15
algoritmo "exercício 15"
var
qtd, valor, maiorvalor, menorvalor, total: inteiro
inicio
// Seção de Comandos
qtd <-1
enquanto qtd<=500 faca
 escreval("informe o" ,qtd,".O Valor: ")
 leia(valor)
 se qtd=1 entao
 maiorvalor<- valor// no primeiro laço tanto o maior
 menorvalor<-valor// quanto o menor valor são os primeiros digitados
 senao
 se valor > maiorvalor entao
 maiorvalor<-valor// armazena o maior valor
 fimse
 se valor <menorvalor entao
 menorvalor<-valor // armazena o menor valor
 fimse
 fimse
 qtd<-qtd+1// incrementa o contador
 total<-total+valor // soma os valores
fimenquanto
limpatela
escreval("O maior valor é: ",maiorvalor)
escreval("O menor valor é: ",menorvalor)
escreval("A média dos valores é: ",total/10)
fimalgoritmo
Exercício 16
algoritmo "exercício 16"
var
op, contador, idademulher, idadehomem, somaidadehomem, somaidademulher, totalmulher, totalhomem, idade18a35: inteiro
alturamulher, alturahomem, mediaidade, mediaalturamulher, somaalturamulher, mediaidadehomem, percentual18a35: real
inicio
// Seção de Comandos
 contador <-0
 somaidadehomem <-0
 somaidademulher <-0
 totalhomem <-0
 totalmulher <-0
 idade18a35 <-0
repita
 escreval ("Cadastro N.o,",contador+1,"/1000")
 escreval ("")
 escreval ("Escolha uma Opcao: ")
 escreval ("0 - Feminino")
 escreval ("1 - Masculino")
 escolha op
 caso 0
 limpatela
 escreval("Informa a idade: ")
 leia(idademulher)
 escreval("Informe a altura: ")
 leia (alturamulher)
 contador <- contador+1
 somaidademulher <-somaidademulher+idademulher
 somaalturamulher <-somaalturamulher+alturamulher
 totalmulher <-totalmulher+1
 se (idademulher >= 18) e (idademulher <=35) entao
 idade18a35 <-idade18a35+1
 fimse
 limpatela
 caso 1
 limpatela
 escreval("Informe a idade: ")
 leia(idadehomem)
 escreval("Informe a altura: ")
 leia(alturahomem)
 contador <-contador +1
 somaidadehomem <-somaidadehomem+idadehomem
 toalhomem <-totalhomem+1
 se(idadehomem >= 18) e (idadehomem <=35) entao
 idade18a35 <-idade18a35+1
 fimse
 limpatela
 outrocaso
 limpatela
 escreval ("Opcao Invalida!!!")
 escreval ("")
 fimescolha
 mediaidade <- (somaidadehomem+somaidademulher) / contador
 se somaalturamulher <> 0 entao
 mediaalturamulher <-somaalturamulher/totalmulher
 senao
 mediaalturamulher <-0
 fimse
 se somaidadehomem<>0 entao
 mediaidadehomem <-somaidadehomem/totalhomem
 senao
mediaidadehomem <-0
 fimse
percentual18a35 <-idade18a35/contador*100
ate (contador =5)
escreval("A media de idade é: ",mediaidade," Anos.")
escreval("A media da Altura das mulheres é: ",mediaalturamulher," metros.")
escreval("A media da idade dos homens é: ",mediaidadehomem," Anos")
escreval (percentual18a35,"% estão entre 18 e 35 Anos")
fimalgoritmo
Exercício 17
algoritmo "exercicio 17"
var
 idade, maioridade, pessoas, contador : inteiro
 olhos, sexo, cabelo : caracter
inicio
 // Seção de Comandos
 contador <- pessoas
 contador <- contador + 1
 escreva ("Informe Idade")
 leia (idade)
 escreva ("Informe olhos")
 leia(olhos)
 escreva ("Informe cabelo")
 leia(cabelo)
 escreva ("Informe sexo")
 leia(sexo)
 Se idade > maioridade entao
 maioridade <- idade
 fimse
 fimpara
 escreva ("Mostre a maior idade", maioridade)
 escreva ("Mostre individuos",contador)
fimalgoritmo