Aula 17 – 08.06.2011 Logica e Algoritmos
Autor: ericknascimento | Publicado: 2011-07-17T13:29:00-07:00

  
Aula 17 – 08.06.2011 Logica e Algoritmos  
Hoje, mais uma vez a aula foi de exercícios.   Porem foi dado um trabalho para amenizar a nota da prova.
  
 1- Em uma eleição presidencial existem quatro candidatos. Os votos são informados por meio de código. Os códigos utilizados são:
  
  
      1, 2, 3, 4         Votos para os respectivos candidatos     
  
      5         Voto nulo     
  
      6         Voto em branco     
   Faça um programa que calcule e mostre: 
  o total de votos para cada candidato; 
  o total de votos nulos; 
  o total de votos em branco; 
  a percentagem de votos nulos sobre o total de votos; 
  a percentagem de votos em branco sobre o total de votos. 
  Para finalizar o conjunto de votos, tem-se o valor ZERO e, para códigos inválidos, o programa deverá mostrar uma mensagem. 

  algoritmo " aula17_01" 
  var 
  c1,c2,c3,c4,c5,c6,votos,voto,x:inteiro 
  porc_n,porc_b:real 
  inicio 
  c1&lt;-0 
  c2&lt;-0 
  c3&lt;-0 
  c4&lt;-0 
  c5&lt;-0 
  c6&lt;-0 
  votos&lt;-0 
  repita 
  escreva("Digite 1, 2, 3, 4, 5, 6, para votar: ") 
  leia(voto) 
  votos&lt;-votos+1 
  se (voto &lt;&gt; 0) e (voto &lt;&gt; 6) e (voto &lt;&gt; 1) e (voto &lt;&gt; 2) e (voto&lt;&gt;3) e (voto&lt;&gt;4) e (voto&lt;&gt;5)entao 
  repita 
  escreva("Digite novamente seu voto: ") 
  leia(voto) 
  ate (voto &gt; 0) e (voto &lt; 6) 
  fimse 
  se (voto=1) entao 
  c1&lt;-c1+1 
  senao 
  se (voto=2) entao 
  c2&lt;-c2+1 
  senao 
  se (voto=3) entao 
  c3&lt;-c3+1 
  senao 
  se (voto=4) entao 
  c4&lt;-c4+1 
  senao 
  se (voto=5) entao 
  c5&lt;-c5+1 
  senao 
  se (voto=6) entao 
  c6&lt;-c6+1 
  fimse 
  fimse 
  fimse 
  fimse 
  fimse 
  fimse 
  ate (voto=0) 
  escreval("O candidato 1 recebeu",c1,".") 
  escreval("O candidato 2 recebeu",c2,".") 
  escreval("O candidato 3 recebeu",c3,".") 
  escreval("O candidato 4 recebeu",c4,".") 
  escreval("O total de votos nulos é",c5,".") 
  escreval("O total de votos em branco é",c6,".") 
  se (c5 &lt;&gt; 0) entao 
  porc_n&lt;-((votos/100)*c5) 
  escreval("A porcetagem de nulos é",porc_n,"%.") 
  senao 
  escreval("Nenhum voto nulo.") 
  fimse 
  se (c6&lt;&gt;0) entao 
  porc_b&lt;-((votos/100)*c6) 
  escreval("A porcentagem de brancos é",porc_b,"%.") 
  senao 
  escreval("Ninguém votou em branco.") 
  fimse 
  fimalgoritmo 
  
2- Faça um programa que receba um conjunto de valores inteiros e positivos, calcule e mostre o maior e o menor valor do conjunto. Considere que: para encerrar a entrada de dados, deve ser digitado valor zero; 
  para valores negativos, deve ser enviada uma mensagem; 
  os valores negativos ou iguais a zero não entram nos cálculos. 
  
algoritmo "aula17_02" 
  var 
  top,less,n:inteiro 
  inicio 
  top&lt;-0 
  less&lt;-0 
  repita 
  escreva("Digite um número: ") 
  leia(n) 
  se (n&lt;0) entao 
  repita 
  escreva("Digitou negativo! Digite novamente: ") 
  leia(n) 
  ate (n&gt;=0) 
  fimse 
  se (top = 0) entao 
  top&lt;-n 
  fimse 
  se (less = 0) entao 
  less&lt;-n 
  fimse 
  se (n &gt; top) e (n &lt;&gt; 0) entao 
  top &lt;- n 
  fimse 
  se (n &lt; less) e (n &lt;&gt; 0) entao 
  less &lt;- n 
  fimse 
  ate (n=0) 
  se (n=0) e (top=0) entao 
  escreval("Nenhum número foi digitado") 
  senao 
  escreval ("O maior número é",top,".") 
  escreval ("O menor número é",less,".") 
  fimse
fimalgoritmo 
  
3- Faça um programa que receba os dados a seguir de vários produtos: preço unitário, país de origem (1- Brasil, 2- Portugal e 3 – outros), meio de transporte (T – terrestre F – fluvial e A – aéreo), carga perigosa (S- sim, N – não), finalize a entrada de dados com um preço inválido, ou seja, menor ou igual a zero e que calcule e mostre:   
O valor do imposto, usando a tabela a seguir.   
  
      
   


         Preço unitário         
   


         Percentual de imposto sobre o preço unitário     
  
      Até R$ 280,00         5.00%     
  
      Maior que R$ 280,00         10.00%     
   
O valor do transporte usando a tabela a seguir    
  
      
   
         Carga Perigosa         
   
         País de Origem         
   
         Valor do Transporte     
  
               S         1         R$ 140,00     
  
      2         R$ 59,00     
  
      3         R$ 67,00     
  
               N         1         R$ 34,00     
  
      2         R$ 59,00     
  
      3         R$ 168,00     
   
O valor do seguro, usando a regra a seguir:  
Os produtos que vêm de Portugal e os produtos que utilizam transporte aéreo pagam metade do valor do seu preço unitário como seguro.   
O preço final, ou seja, preço unitário mais imposto mais valor do transporte mais valor doseguro.   
O total dos impostos (somando impostos de todos os produtos).   
algoritmo "aula17_03" var p,imposto:real cod_p:inteiro t,c:caracter inicio imposto&lt;-0repita escreva("Valor do produto: ") leia(p) escreva("Digite (1- Brasil, 2- Portugal e 3 - outros): ") leia(cod_p) escreva(" Digite meio de Transporte (T - terrestre, F - fluvial e A - aéreo): ") leia(t) escreva("Digite se é Carga perigosa (S- sim, N - não): ") leia(c) se (p &lt;= 280) entao p&lt;-p+((p/100)*5) senao p&lt;-p+((p/100)*10) fimse se (cod_p = 1) e (c = "n") e ((t="t") ou (t="f")) entao p&lt;-p+34 imposto&lt;-imposto+34 fimse se (cod_p = 1) e (c = "n") e (t="a") entao p&lt;-p+34 p&lt;-p+(p/2) imposto&lt;-imposto+34 fimse se (cod_p = 1) e (c = "s") e ((t="t") ou (t="f")) entao p&lt;-p+140 imposto&lt;-imposto+140 fimse se (cod_p = 1) e (c = "s") e (t="a") entao p&lt;-p+140 p&lt;-p+(p/2)imposto&lt;-imposto+140 fimse se (cod_p = 2) entaop&lt;-p+59 imposto&lt;-imposto+59 
fimse se (cod_p = 3) e (c = "s") e ((t="t") ou (t="f")) entao p&lt;-p+67&nbsp;&nbsp;imposto&lt;-imposto+67   fimse 
  se (cod_p = 3) e (c = "n") e ((t="t") ou (t="f")) entao 
p&lt;-p+168 imposto&lt;-imposto+168 fimse se (cod_p = 3) e (c = "n") e (t="a") entao p&lt;-p+168 p&lt;-p+(p/2) imposto&lt;-imposto+168 fimse se (cod_p = 3) e (c = "s") e (t="a") entao p&lt;-p+67 p&lt;-p+(p/2) imposto&lt;-imposto+67 fimse escreval("Valor total",p,".") ate (p&lt;=0) escreval("Total dos impostos é",imposto,".")   fimalgoritmo