Entrega Aula 01 – Exercícios Propostos

Prévia do material em texto

Aula 01 – Exercícios Propostos
Nome do Aluno: Data: 
RA do Aluno: 
Capítulo <N> – Exercício <N> - <Enunciado do exercício>.
<Resolução do exercício logo abaixo>
Observações: 
Finalizada a resolução de um exercício, efetue uma quebra de folha. Deve constar no documento um enunciado e resolução de exercício por página. Caso o exercício ocupe mais de uma página, efetue a quebra no final da resolução do exercício;
Fonte: Times New Roman – Tamanho: 12 (sem variar tamanho de fonte);
Em negrito deve constar somente “Capítulo 1 – Exercício 1”;
“Nossas atitudes escrevem nosso destino. Nós somos responsáveis pela vida que temos. Culpar os outros pelo que nos acontece é cultivar a ilusão. A aprendizagem é nossa e ninguém poderá fazê-la por nós, assim como nós não poderemos fazer pelos outros. Quanto mais depressa aprendermos isso, menos sofreremos”
Zibia Gasparetto
Capítulo 1
	
	100 m
	Salto
	Dardo
	1º
	Teodoro
	Barnabé
	Gumercindo
	2º
	Barnabé
	Gumercindo
	Teodoro
	3º
	Gumercindo
	Teodoro
	Barnabé
Resolução :
Primeiro passo deve pegar o conteúdo do barril B e despejar no barril A.
Segundo passo deve pegar o conteúdo do barril C e despejar no barril A.
Terceiro passo deve pegar o barril A e despejar metade do conteúdo no barril B, assim ficando com 4 litros no barril A, 4 litros no barril B e barril C vazio.
Resolução:
1. Abrir o porta malas.
2. Retirar o estepe do porta malas.
3. Retirar também do porta malas, a chave de rodas e o macaco de elevação.
4.Dirigir-se até o pneu traseiro esquerdo com o estepe, chave de rodas e macaco de elevação.
5. Pegar a chave de rodas e afrouxar os parafusos da roda.
6. Levantar o carro com o auxílio do macaco de elevação.
7. Retirar os parafusos da roda, reservar.
8. Retirar a roda com pneu furado, guardar no porta malas.
9. Colocar o estepe no cubo da roda.
10. Apontar os parafusos.
11. Descer o carro do macaco de elevação.
12. Utilizar a chave de rodas para apertar os parafusos da roda.
13. Guardar a chave de rodas e o macaco de elevação no porta malas.
1. Abrir o porta malas.
2. Verificar se o estepe está em condições de uso.
3. Se estiver em condições de uso, retirar o estepe do porta malas. Caso não esteja em condição de uso, chamar um guincho.
4. Retirar também do porta malas, a chave de rodas e o macaco de elevação.
5.Dirigir-se até o pneu traseiro esquerdo com o estepe, chave de rodas e macaco de elevação.
6. Pegar a chave de rodas e afrouxar os parafusos da roda.
7. Levantar o carro com o auxílio do macaco de elevação.
8. Retirar os parafusos da roda, reservar.
9. Retirar a roda com pneu furado, guardar no porta malas.
10. Colocar o estepe no cubo da roda.
11. Apontar os parafusos.
12. Descer o carro do macaco de elevação.
13. Utilizar a chave de rodas para apertar os parafusos da roda.
14. Guardar a chave de rodas e o macaco de elevação no porta malas.
1. Verificar se algum dos pneus está furado, se houver algum pneu furado.
2. Verificar se o estepe está em condições de uso.
3. Se estiver em condições de uso, retirar o estepe do porta malas. Caso não esteja em condição de uso, chamar um guincho.
4. Abrir o porta malas.
5. Retirar também do porta malas, a chave de rodas e o macaco de elevação.
6.Dirigir-se até o pneu traseiro esquerdo com o estepe, chave de rodas e macaco de elevação.
7. Pegar a chave de rodas e afrouxar os parafusos da roda.
8. Levantar o carro com o auxílio do macaco de elevação.
9. Retirar os parafusos da roda, reservar.
10. Retirar a roda com pneu furado, guardar no porta malas.
11. Colocar o estepe no cubo da roda.
12. Apontar os parafusos.
13. Descer o carro do macaco de elevação.
14. Utilizar a chave de rodas para apertar os parafusos da roda.
15. Guardar a chave de rodas e o macaco de elevação no porta malas.
Capítulo 2
Resolução:
 	inteiro: X, Y; Declarando como tipo inteiro as variáveis X e Y.
 	real: Z; Declarando como tipo real à variável Z.
 	Leia (X); Lendo a variável X.
escreva (X, “elevado ao cubo =”, pot(X,3)); Apresenta na tela para o usuário o valor de X, mais a frase “elevado ao cubo” e o resultado de X elevado à 3.
leia (Y); Lendo a variável Y.
escreva ( X + Y) ; Apresenta na tela para o usuário o resultado do cálculo de X + Y.
Z <- X/Y; Salva o resultado de X dividido por Y na variável Z.
escreva (Z); Apresenta na tela para o usuário o valor salvo em Z.
X <- (Y + X) mod 2; Salva o resultado do resto da divisão da soma de (Y + X) dividido por 2.
escreva (X); Apresenta na tela para o usuário o valor salvo em X.
Resolução:
Exemplo 1
No processo de se alimentar.
Entrada = Comer algo.
Saída = Excrementos.
Processamento = Digestão.
Exemplo 2
No processo da respiração.
Entrada = Oxigênio.
Saída = Gás carbônico.
Processamento = Quebra do oxigênio resultando em gás carbônico.
Exemplo 3
Fazer um suco.
Entrada = Fruta em pedaços.
Saída = Um suco de frutas pronto.
Processamento = Bater os pedaços de frutas com água no liquidificador.
Capítulo 3
Resolução:
Algoritmo media_ponderada
var n1, n2, n3, n4, n5, media: real
inicio
escreva("Digite a nota 1: ")
leia(n1)
 	escreva("Digite a nota 2: ")
 	leia(n2)
 	escreva("Digite a nota 3: ")
 	leia(n3)
 	escreva("Digite a nota 4: ")
 	leia(n4)
 	escreva("Digite a nota 5: ")
 	leia(n5)
media <- (((n1*0.10)+(n2*0.20)+(n3*0.30)+(n4*0.40)+(n5*0.50))/5)
	escreva (“Sua média ponderada é ”, media)	 
fim
Resolução:
Algoritmo calcular_area_circulo
var area, raio: real
inicio
	escreva(“Digite um raio: ”)
	leia(raio)
area <- (3.16 * (pot(raio,2)))
	escreva(“A área do seu círculo é: ”, area)
fim
Resolução:
Algoritmo inverte_numero
var dig1,dig2,dig3: inteiro
inicio
escreva("Digite o digito da centena: ")
	leia(dig1)
	escreva("Digite o digito da dezena: ")
	leia(dig2)
	escreva("Digite o digito da unidade: ")
	leia(dig3)
	escreva("Seu número invertido é: ",dig3,dig2,dig1)
fim
	 
Algoritmo carro_consumo_autonomia
var capacidadade_tanque, qtd_litros, km, consumo, autonomia: real
inicio
	escreva(“Por favor insira a quantidade de quilômetros percorridos: ”)
	leia(km)
	escreva(“Por favor digite a quantidade de litros de combustível abastecido: ”)
	leia(qtd_litros)
	escreva(“Por favor digite a capacidade em litros do seu tanque de combustível:”)
	leia(capacidade_tanque)
	consumo <- (km/qtd_litros)
	autonomia <- ((capacidade_tanque-qtd_litros)*consumo)
	escreva(“O consumo do seu automóvel é: ”, consumo)
	escreva(“A autonomia que seu automóvel ainda teria é: ”, autonomia)
fim
var dNiver,mNiver,aNiver,dAtual,mAtual,aAtual,iDias: inteiro
inicio
	iDias <- 0
	escreva("Digite o dia da data de nascimento: ")
	leia(dNiver)
	escreva("Digite o mês da data de nascimento: ")
	leia(mNiver)
	escreva("Digite o ano da data de nascimento: ")
	leia(aNiver)
	escreva("Digite o dia da data atual: ")
	leia(dAtual)
	escreva("Digite o mês da data atual: ")
	leia(mAtual)
	escreva("Digite o ano da data atual: ")
	leia(aAtual)
	iAno <- aAtual-aNiver
	escreva("A idade em anos é: ", iAno)
	iMes <- iAno * 12
	escreva("A idade em meses é: ", iMes)
	enquanto aNiver <> aAtual faca
		se (aNiver mod 4 <> 0) entao
			se (aNiver mod 400 <> 0 ) entao
				iDias <- iDias + 365
			fimse
		senao
			iDias <- iDias + 366
		fimse
 	aNiver <- aNiver + 1
 	fimenquanto
	escreva("A idade em dias é: ", iDias)
fim
		
Algoritmo comerciante_maluco
var vPrestacao, vPrejuizo, vFinal,vJuros: real
inicio
	escreva("Digite o valor da prestação em atraso: ")
	leia(vPrestacao)
	vJuros <- (vPrestacao+(vPrestacao*0.10))vFinal <- (vJuros - (vJuros*0.10))
	escreva("O valor final da prestação é: ", vFinal)
	vPrejuizo <- (vPrestacao-vFinal)
	escreva("O valor do prejuízo é: ", vPrejuizo)
fim
Algoritmo escreve_mes_extenso
var mes: inteiro
inicio
escreva("Digite o mês desejado: ")
 	leia(mes)
	se mes = 1 entao
 		escreva("Janeiro")
 	fimse
 	se mes = 2 entao
 		escreva("Fevereiro")
 	fimse
 	se mes = 3 entao
 		escreva("Março")
 	fimse
 	se mes = 4 entao
 		escreva("Abril")
 	fimse
 	se mes = 5 entao
 		escreva("Maio")
 	fimse
 	se mes = 6 entao
 		escreva("Junho")
 	fimse
 	se mes = 7 entao
 		escreva("Julho")
 	fimse
 	se mes = 8 entao
 		escreva("Agosto")
 	fimse
 	se mes = 9 entao
 		escreva("Setembro")
 	fimse
 	se mes = 10 entao
 		escreva("Outubro")
 	fimse
 	se mes = 11 entao
 		escreva"Novembro")
 	fimse
 	se mes = 12 entao
 		escreva("Dezembro")
 	fimse
 	se mes > 12 entao
 		escreva("Mês inválido")
 	fimse
 fim
Algoritmo dataValida
var dia, mes, ano: inteiro
inicio
	escreva("Insira o dia desejado: ")
	leia(dia)
	escreva("Insira o mês desejado: ")
	leia(mes)
	escreva("Insira o ano desejado: ")
	leia(ano)
	se (dia > 0) e (dia <= 31) entao
	senao
 		 escreva("Data inválida")
		se (mes > 0) e (mes <= 12) entao
		senao
 			escreva("Data inválida")
			se (ano > 0) entao
				escreva ("Data válida !")
 			senao
 			escreva("Data inválida")
			fimse
		fimse
	fimse 
fim
	
Algoritmo classeEleitoral
var idade: inteiro
inicio
	escreva("Qual é a idade: ")
	leia(idade)
	se idade < 16 entao
		escreva ("Não votante")
	senao
		se (idade = 18) ou (idade <= 65) entao
			escreva("Eleitor obrigatório")
		senao
			se (((idade >= 16) e (idade < 18)) ou (idade > 65)) entao
				escreva("Eleitor facultativo")
			fimse
		fimse
	fimse
fim
Algoritmo classificacaoOlimpica
var qtdOuroP1,qtdPrataP1,qtdBronzeP1,qtdOuroP2,qtdPrataP2, qtdBronzeP2, qtdOuroP3,qtdPrataP3,qtdBronzeP3:inteiro
 nomeP1,nomeP2,nomeP3: caractere
 cMedalhaP1,cMedalhaP2,cMedalhaP3: real
inicio
	cMedalhaP1 <- 0
 escreva("Dados país 1")
 escreva("Nome do país:")
 leia(nomeP1)
 escreva("Quantidade de medalhas de ouro: ")
 leia(qtdOuroP1)
 cMedalhaP1 <- (cMedalhaP1+(qtdOuroP1*0.30))
 escreva("Quantidade de medalhas de prata: ")
 leia(qtdPrataP1)
 cMedalhaP1 <- (cMedalhaP1+(qtdPrataP1*0.20))
 escreva("Quantidade de medalhas de bronze: ")
 leia(qtdBronzeP1)
 cMedalhaP1 <- (cMedalhaP1+(qtdBronzeP1*0.10))
 
 cMedalhaP2 <- 0
 escreva("Dados país 2")
 escreva("Nome do país:")
 leia(nomeP2)
 escreva("Quantidade de medalhas de ouro: ")
 leia(qtdOuroP2)
 cMedalhaP2 <- (cMedalhaP2+(qtdOuroP2*0.30))
 escreva("Quantidade de medalhas de prata: ")
 leia(qtdPrataP2)
 cMedalhaP2 <- (cMedalhaP2+(qtdPrataP2*0.20))
 escreva("Quantidade de medalhas de bronze: ")
 leia(qtdBronzeP2)
 cMedalhaP2 <- (cMedalhaP2+(qtdBronzeP2*0.10))
 
 cMedalhaP3 <- 0
 escreva("Dados país 3")
 escreva("Nome do país:")
 leia(nomeP3)
 escreva("Quantidade de medalhas de ouro: ")
 leia(qtdOuroP3)
 cMedalhaP3 <- (cMedalhaP3+(qtdOuroP3*0.30))
 escreva("Quantidade de medalhas de prata: ")
 leia(qtdPrataP3)
 cMedalhaP3 <- (cMedalhaP3+(qtdPrataP3*0.20))
 escreva("Quantidade de medalhas de bronze: ")
 leia(qtdBronzeP3)
 cMedalhaP3 <- (cMedalhaP3+(qtdBronzeP3*0.10))
 
 se ((cMedalhaP1 > cMedalhaP2)e(cMedalhaP1 > cMedalhaP3)) entao
 se(cMedalhaP2 > cmedalhaP3) entao
 escreva("1º",nomeP1 ,", 2º",nomeP2 ,", 3º",nomeP3)
 senao
 escreva("1º",nomeP1 ,", 2º",nomeP3 ,", 3º",nomeP2)
 fimse
 fimse
 
 se ((cMedalhaP2 > cMedalhaP1)e(cMedalhaP2 > cMedalhaP3)) entao
 se (cMedalhaP1 > cmedalhaP3) entao
 escreva("1º",nomeP2 ,", 2º",nomeP1 ,", 3º",nomeP3)
 senao
 escreva("1º",nomeP2 ,", 2º",nomeP3 ,", 3º",nomeP1)
 fimse
 fimse
 
 se ((cMedalhaP3 > cMedalhaP1)e(cMedalhaP3 > cMedalhaP2)) entao
 se (cMedalhaP1 > cmedalhaP2) entao
 escreva("1º",nomeP3 ,", 2º",nomeP1 ,", 3º",nomeP2)
 senao
 escreva("1º",nomeP3 ,", 2º",nomeP2 ,", 3º",nomeP1)
 fimse
 fimse 
fim 
 
Algoritmo MMC
var a,b,c,r
inicio
	escreva("Número A: ")
 	leia(a)
 	escreva("Número B:")
 	 leia(b)
 	c <- 2
 	r <- 1
 	se (a=0)ou(b=0) entao
 		escreva("MMC = 0")
 	senao
 	enquanto (a+b <> 2) faca
 		se (a mod c = 0) ou (b mod c = 0) entao
 		r <- r * c
 		se (a mod c = 0)entao
 			a <- a div c
 		fimse
 	 	se (b mod c = 0)entao
 			 b <- b div c
 		fimse
 		senao
 		c <- c + 1
 		fimse
 	fimenquanto
escreva("MMC = ",r)
fimse
fim
Algoritmo MDC
var num1, num2, maior, menor, aux: inteiro
inicio
	escreva ("Informe o primeiro número.")
 leia (num1)
 escreva ("Informe o segundo número.")
 leia (num2)
 se (num1 > num2) entao
 maior <- num1
 menor <- num2
 senao
 maior <- num2
 menor <- num1
 fimse
 enquanto (maior mod menor <> 0) faca
 aux <- menor
 menor <- maior mod menor
 maior <- aux
 fimenquanto
 escreva ("")
 escreva ("O Máximo Divisor Comum entre", num1, " e", num2, " é:", menor) 
fim
Algoritmo divisaoComSubtracao
var dividendo,divisor,cont,resultado:inteiro
inicio
	escreva("Digite o dividendo:")
 	 leia(dividendo)
 	escreva("Digite o divisor:")
 	leia(divisor)
 	cont <- 0
 	resultado <- dividendo
 	enquanto resultado <> 0 faca
 	resultado <- resultado - divisor
 	cont <- cont + 1
 	fimenquanto
 	escreva("O resultado de ", dividendo, " dividido por ", divisor, " é igual: ", cont) 
fim
Algoritmo exponeciacaoSemUtilizarOpot
var base,exponente,resultado,cont:inteiro
inicio
	escreva("Digite a base:")
 	leia(base)
 	escreva("Digite o exponente:")
 	leia(exponente)
 	resultado <- base
 	cont <- 1
 	enquanto cont < exponente faca
 	resultado <- resultado * base
 	cont <- cont + 1
 	fimenquanto
 	escreva("O resultado de ", base, " elevado à ", exponente, " é igual: ", resultado) 
fim
Algoritmo fibonacciInserindo2termos
var termo1,termo2,novoTermo,i : inteiro
inicio
	escreva("Digite o primeiro número:")
 	leia(termo1)
 	escreva("Digite o segundo número:")
 	leia(termo2)
 	novoTermo <- 0
 	escreva(" 1o. termo = ", termo1)
 	escreva(" 2o. termo = ", termo2)
 	para i de 3 ate 20 faca
 		novoTermo := termo1 + termo2
 		 escreva(i,"o. Termo = ", novoTermo)
 		termo1 <- termo2
 		termo2 <- novoTermo
 	fimpara
1fim 
Algoritmo conversaoFahrenheitParaCelsius
var C: real
 F: inteiro 
inicio
	F <- 50
 	enquanto F <= 150 faca
 	C <- ((5/9)*(F-32))
 	escreva(F,"ºF"," -----",C,"ºC")
 	escreva("")
 	escreva("")
 	F <- F + 1
 	fimenquanto
fim
Algoritmo pagamentoGraosTrigoXadrez
var cont: inteiro
 graos: real
inicio
	cont <- 0
 	graos <- 1
 	enquanto cont < 64 faca
 		graos <- graos * 2
 		cont <- cont + 1
 	fimenquanto
 	escreva("A quantidade de grãos é igual à: ",graos) 
fimAlgoritmo eleicaoPresidencial
Var
// Seção de Declarações das variáveis 
 cad1,cad2,cad3,cad4,nulo,branco,finalizador: inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc... 
 cad1 <- 0
 cad2 <- 0
 cad3 <- 0
 cad4 <- 0
 nulo <- 0
 branco <- 0
 escreva("Digite o seu voto(1-Cadidato1/2-Candidato2/3-Candidato3/4-Cnadidato4/5-Nulo/6-Branco/0-Sair):")
 leia(finalizador)
 enquanto finalizador <> 0 faca
 se finalizador = 1 entao
 cad1 <- cad1 + 1
 fimse
 
 se finalizador = 2 entao
 cad2 <- cad2 + 1
 fimse
 
 se finalizador = 3 entao
 cad3 <- cad3 + 1
 fimse
 
 se finalizador = 4 entao
 cad4 <- cad4 + 1
 fimse
 
 se finalizador = 5 entao
 cad5 <- cad5 + 1
 fimse
 
 se finalizador = 6 entao
 cad6 <- cad6 + 1
 fimse
 fimenquanto
Fimalgoritmo
Algoritmo numerosPrimosDeN1aN2
var Fatorial,Numero,Primo,Resposta,N1,N2 : Inteiro
 Teste_logico : Logico 
inicio
	Limpatela
 escreva("Insira o número inicial:")
 leia(N1)
 escreva("Insira o número final:")
 leia(N2)
 escreva(" ")
 Para Primo de N1 ate N2 faca
 Fatorial<- 2
 Teste_logico <- Falso
 enquanto (Primo<>fatorial) faca
 Resposta <- Primo MOD Fatorial
 Fatorial <- Fatorial + 1
 se Resposta = 0 entao
 Teste_logico <- Verdadeiro
 fimse
 fimenquanto
 se (Nao Teste_logico) entao
 escreva(Primo,",")
 fimse
 fimpara
 escreva(" ")
fim