AULA 12 - 18/05/11 e AULA 13 - 19/05/11 - EXERCÍCIOS DE REVISÃO PARA PROVA, ESTRUTURAS SEQUENCIAIS, CONDICIONAIS E DE REPETIÇÃO

1) Faça um programa que recebe um número positivo e maior que zero, calcule e mostre:
a) o número digitado ao quadrado;
b) o número digitado ao cubo;
c) a raiz quadrada do número digitado;
d) a raiz cúbica do número digitado.

algortimo_quad

var
  nro,quadrado,cubo,r_quadrada,r_cubica:real
inicio
  escreval("digite um numero")
  leia(nro)
  quadrado<-nro*nro
  escreval("este numero ao quadrado é =",quadrado)
  cubo<-nro*nro*nro
  escreval("este numero ao cubo é=",cubo)
  r_quadrada<-raizq(nro)
  escreval("a raiz quadrada deste numero é=",r_quadrada)
  r_cubica<-nro^(1/3)
  escreval("a raiz cubica deste numero é =",r_cubica)
fimalgoritmo

2) Faça um programa para verificar se um inteiro positivo lido é par ou ímpar (mostre por escrito se é par ou ímpar). Se o número for ímpar, multiplique por 2 e mostre o resultado, caso contrário multiplique por ½ e mostre o resultado.    (OBS: Par: x mod 2 = 0)

algoritmo_par
var
nro:inteiro
resp:real
inicio
  escreval("digite um numero")
  leia(nro)
  se nro mod 2=0 entao
      resp<-nro*1/5]
      escreval("o numero digitado é par")
      escreval("o resultado da multiplicação é",resp)
  senao
      resp<-nro*2
      escreval("o numero digitado é impar")
      escreval("o resultado da multipliação é",resp)
  fimse
fimalgoritmo

3) Faça um programa que receba o custo total de um espetáculo teatral e o preço do convite desse espetáculo. Esse programa deverá calcular e mostrar a quantidade de convites que devem ser vendidos para que pelo menos o custo do espetáculo seja alcançado.

algoritmo_espetaculo
var
valor_total,valor_conv,resp:real
inicio
  escreval("digite o valor do espetaculo")
  leia(valor_total)
  escreval("digite o valor do convite")
  leia(valor_conv)
  se valor_conv <> 0 entao
      resp<-valor_total/valor_conv
      escreval("voce precisa vender",resp," convites")
  senao
     escreval("você digitou um valor incorreto")
  fimse 

fimalgoritmo

4) Faça um programa que receba três números e mostre-os em ordem decrescente.

algoritmo_numeros
var
valor_total,valor_conv,resp:real
inicio
  escreval("digite o valor do espetaculo")
  leia(valor_total)
  escreval("digite o valor do convite")
  leia(valor_conv)
  se valor_conv <> 0 entao
      resp<-valor_total/valor_conv
      escreval("vc pricesa vender",resp," convites")
  senao
     escreval("você digitou um valor incoreto")
  fimse
fimalgoritmo

5) Faça um programa que receba a hora do início de um jogo e a hora final (cada hora é composta por duas variáveis inteiras: hora e minuto). Calcule e mostre a duração do jogo (horas e minutos), sabendo-se que o tempo máximo de duração do jogo é de 24 horas e que ele pode iniciar-se em um dia e terminar no dia seguinte.

algoritmo_hora
var
   horaIni, minIni, horaFim, minFim, minDif, horaDif:inteiro
inicio
   escreval("Digite hora e minutos do inicio do jogo ")
   leia(horaIni, minIni)
   escreval("Digite hora e minutos do fim do jogo ")
   leia(horaFim, minFim)
   se (minIni > minFim) entao
      minFim <- minFim + 60
      horaFim <- horaFim - 1
   fimse
   se (horaIni > horaFim) entao
      horaFim <- horaFim + 24
   fimse
   minDif <- (minFim - minIni)
   horaDif <- (horaFim - horaIni)
   escreval("O jogo durou", horaDif, " horas e ", minDif, " minutos")
fimalgoritmo

6) Faça um programa que receba cem números, calcule e mostre a soma dos números pares e a média dos números primos.

algoritmo_primo
var
x,y,nro,primo:inteiro
cont,media,soma,parcial:real
inicio
  soma<-0
  para x de 1 ate 100 faca
    escreval("digite um numero")
    leia(nro)
    se (nro mod 2=0) entao
       escreval("vc digitou um numero par!")
       soma<-soma+nro
    fimse
    primo<-0
    para y de 1 ate nro faca
       se (nro mod y =0) entao
          primo<-primo+1
       fimse
     fimpara
     cont<-0
     se primo<=2 entao
       escreval("vc digitou um numero primo")
       cont<-cont+1
       parcial<-parcial+primo
     fimse
   fimpara
   media<-parcial/cont
   escreval(" a soma dor numeros pares é",soma)
   escreval("a media dos numero primos é",media)
fimalgoritmo

07)Foi feita uma estatística em cinco cidades brasileiras para coletar dados sobre acidentes de trânsito, foram obtidos os seguintes dados:
a) Código da cidade;
b) Número de veículos de passeio(em 2010);
c) Número de acidentes de trânsito com vitimas(em 2010).
Deseja-saber:
a) Qual o maior e  menor índice de acidentes de trânsito e a que cidades pertencem;
b) Qual a média de veículos nas cinco cidades juntas;
c) Qual a média de acidentes de trânsito nas cidades com menos de 2.000 veículos de passeio.

algoritmo_cidade

var
   cont, cod, num_vei, num_acid, maior, cid_maior, menor,    cid_menor: inteiro
   media_vei, media_acid: real
   soma_vei, soma_acid, cont_acid:inteiro
inicio
   soma_vei <-0
   soma_acid <-0
   cont_acid <- 0
   para cont <- 1 ate 5 faca
      escreval("Digite o codigo da cidade, o numero de veiculos e o numero de acidentes" )
      leia(cod, num_vei, num_acid)
      se (cont=1) entao
         maior <- num_acid
         cid_maior <- cod
         menor <- num_acid
         cid_menor <- cod
      senao
         se (num_acid > maior) entao
            maior <- num_acid
            cid_maior <- cod
         fimse
         se (num_acid < menor) entao
            menor <- num_acid
            cid_menor <- cod
         fimse
      fimse
      soma_vei <- soma_vei + num_vei
      se (num_vei < 2000) entao
         soma_acid <- soma_acid + num_acid
         cont_acid <- cont_acid + 1
      fimse
   fimpara
   escreval("O maior indice e ",maior," na cidade ",cid_maior)
   escreval("O menor indice e ",menor," na cidade ",cid_menor)
   media_vei <- soma_vei / 5
   escreval("A media de veiculos e ",media_vei)
   se (cont_acid = 0) entao
      escreval("Nao foi digitada nenhuma cidade com menos de 2000 veiculos" )
   senao
      media_acid <- soma_acid / cont_acid
      escreval("A media de acidentes em cidades com menos de 2.000 veiculos e ", media_acid)
   fimse
fimalgoritmo

 Nessa aula o professor nos passou mais exercícios que serviram de revisão para a prova, conforme relatos até a questão 5 foi a prova do ano passado, dessas tem algumas questoes que são bem confusas de resolver. Fiquei em duvida quanto algumas questoes mais após a correção tudo ficou mais simples e lógico.