RESPOSTAS DOS EXERCICIOS DE ALGORITMOS DE REPETIÇÃO E CONDICIONAL
Autor: WELITON | Publicado: 2012-06-14T06:49:00-07:00


COMO PROMETIDO SEGUE ABAIXO LISTA COM AS RESPOSTAS DOS EXERCIIOS DE 4 AO 9 DOS PROBLEMAS DE ALGORITMOS DISCUTIDOS EM SALA DE AULA:

algoritmo "ex4"varnome, sexo: caracterex, h, m: inteiroinicio// Seção de Comandospara x de 1 ate 56 faca&nbsp;&nbsp;&nbsp;&nbsp; escreva("Digite o nome: ")&nbsp;&nbsp;&nbsp;&nbsp; leia(nome)&nbsp;&nbsp;&nbsp;&nbsp; escreva("H - Homem ou M - Mulher: ")&nbsp;&nbsp;&nbsp;&nbsp; leia(sexo)&nbsp;&nbsp;&nbsp;&nbsp; se sexo="h" entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; h &lt;- h + 1&nbsp;&nbsp;&nbsp;&nbsp; fimse&nbsp;&nbsp;&nbsp;&nbsp; se sexo="M" entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; m &lt;- m + 1&nbsp;&nbsp;&nbsp;&nbsp; senao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval("Sexo só pode ser H ou M!")&nbsp;&nbsp;&nbsp;&nbsp; fimsefimparaescreval("Foram inseridos",h," Homens")escreval("Foram inseridos",m," Mulheres")fimalgoritmoalgoritmo "ex5"varprograma, opc: caractereano, total, total2000: inteirovalor, valorFinal, desconto: realinicio// Seção de Comandosprograma &lt;- "S"enquanto programa &lt;&gt; "N" faca&nbsp;&nbsp;&nbsp; escreva("Digite o valor do carro: ")&nbsp;&nbsp;&nbsp; leia(valor)&nbsp;&nbsp;&nbsp; escreva("Digite o ano do carro: ")&nbsp;&nbsp;&nbsp; leia(ano)&nbsp;&nbsp;&nbsp; se ano &lt;= 2000 entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; desconto &lt;- 0.12&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; desconto &lt;- desconto * valor&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; total2000 &lt;- total2000 + 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; total &lt;- total + 1&nbsp;&nbsp;&nbsp; senao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; desconto &lt;- 0.07&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; valorFinal &lt;- valor - desconto&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; total &lt;- total + 1&nbsp;&nbsp;&nbsp; fimse&nbsp;&nbsp;&nbsp; escreval("O valor do carro com desconto é de: ",valorFinal)&nbsp;&nbsp;&nbsp; escreval("")&nbsp;&nbsp;&nbsp; escreva("Deseja continuar calculando? (S) Sim - (N) Não - ")&nbsp;&nbsp;&nbsp; leia(opc)&nbsp;&nbsp;&nbsp; escolha opc&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; caso "S"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; programa &lt;- "S"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; caso "N"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; programa &lt;- "N"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; outrocaso&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; programa &lt;- "S"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval("As opções disponíveis são apenas S ou N!!!")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; leia(opc)&nbsp;&nbsp;&nbsp; fimescolhafimenquantoescreval("Foram calculados",total2000," carro(s) com ano até 2000")escreval("Total geral: ",total)fimalgoritmoalgoritmo "ex6"varprograma, idade, apto: inteironome, sexo, saude, opc: caracteretotApto, total: inteiroinicio// Seção de Comandosprograma &lt;- 1enquanto programa = 1 faca&nbsp;&nbsp;&nbsp; limpatela&nbsp;&nbsp;&nbsp; apto &lt;- 1&nbsp;&nbsp;&nbsp; saude &lt;- "B"&nbsp;&nbsp;&nbsp; total &lt;- total + 1&nbsp;&nbsp;&nbsp; escreva("Digite o nome: ")&nbsp;&nbsp;&nbsp; leia(nome)&nbsp;&nbsp;&nbsp; escreva("Digite o sexo (M/F): ")&nbsp;&nbsp;&nbsp; leia(sexo)&nbsp;&nbsp;&nbsp; escreva("Digite a idade: ")&nbsp;&nbsp;&nbsp; leia(idade)&nbsp;&nbsp;&nbsp; se idade &lt; 18 entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; apto &lt;- 0&nbsp;&nbsp;&nbsp; fimse&nbsp;&nbsp;&nbsp; escreval("Digite o estado de saúde: ")&nbsp;&nbsp;&nbsp; escreva("(B) Bom - (R) - Ruim - ")&nbsp;&nbsp;&nbsp; leia(saude)&nbsp;&nbsp;&nbsp; se saude = "R" entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; apto &lt;- 0&nbsp;&nbsp;&nbsp; senao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; se saude &lt;&gt; "B" entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; apto &lt;- 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fimse&nbsp;&nbsp;&nbsp; fimse&nbsp;&nbsp;&nbsp; se apto = 1 entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; totApto &lt;- totApto + 1&nbsp;&nbsp;&nbsp; fimse&nbsp;&nbsp;&nbsp; escreval("Deseja continuar filtrando (S/N)? ")&nbsp;&nbsp;&nbsp; leia(opc)&nbsp;&nbsp;&nbsp; se opc = "N" entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; programa &lt;- 0&nbsp;&nbsp;&nbsp; fimsefimenquantoescreval("Resumo geral: ")escreval("Foram filtrados: ",total," pessoas")escreval("Aptos: ",totApto)escreval("")fimalgoritmoalgoritmo "ex7"varx: inteiroprecoVenda, precoCusto: realmediaCusto, mediaVenda: realinicio// Seção de Comandospara x de 1 ate 40 faca&nbsp;&nbsp;&nbsp; escreva("Digite o preço de custo: ")&nbsp;&nbsp;&nbsp; leia(precoCusto)&nbsp;&nbsp;&nbsp; mediaCusto &lt;- mediaCusto + precoCusto&nbsp;&nbsp;&nbsp; escreva("Digite o preço de venda: ")&nbsp;&nbsp;&nbsp; leia(precoVenda)&nbsp;&nbsp;&nbsp; mediaVenda &lt;- mediaVenda + precoVenda&nbsp;&nbsp;&nbsp; se precoVenda &lt; precoCusto entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval("Houve prejuízo na venda")&nbsp;&nbsp;&nbsp; senao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; se precoVenda = precoCusto entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval("Houve empate na venda")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fimse&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; se precoVenda &gt; precoCusto entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval("Houve lucro na venda")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fimse&nbsp;&nbsp;&nbsp; fimsefimparaescreval("A média de preço de custo foi: ",mediaCusto/40)escreval("A média de preço de venda foi: ",mediaVenda/40)fimalgoritmoalgoritmo "ex23"varnumero: inteiroinicio// Seção de Comandosescreva("Digite um número: ")leia(numero)se numero &gt; 80 entao&nbsp;&nbsp;&nbsp; escreval("O número é maior que 80")senao&nbsp;&nbsp;&nbsp; se numero &lt; 25 entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval("O número é menor que 25")&nbsp;&nbsp;&nbsp; senao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; se numero = 40 entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval("O número é igual a 40")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fimse&nbsp;&nbsp;&nbsp; fimsefimsefimalgoritmoalgoritmo "ex9"varprograma, numero: inteiroopc: caractereinicio// Seção de Comandosprograma &lt;- 1enquanto programa = 1 faca&nbsp;&nbsp;&nbsp; limpatela&nbsp;&nbsp;&nbsp; escreva("Digite um número: ")&nbsp;&nbsp;&nbsp; leia(numero)&nbsp;&nbsp;&nbsp; se numero &gt; 0 entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval("Positivo")&nbsp;&nbsp;&nbsp; senao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; se numero = 0 entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval("O número é igual a 0")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fimse&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; se numero &lt; 0 entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; escreval("Negativo")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fimse&nbsp;&nbsp;&nbsp; fimse&nbsp;&nbsp;&nbsp; escreva("Deseja finalizar? (S/N) ")&nbsp;&nbsp;&nbsp; leia(opc)&nbsp;&nbsp;&nbsp; se opc = "S" entao&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; programa &lt;- 0&nbsp;&nbsp;&nbsp; fimsefimenquantofimalgoritmo