Aula 12 - 18/05/11

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.

algoritmo "Exercício 1"

var
  n, nq, cubo, rq, rc: real
inicio
  leia(n)
  se (n<=0) entao
     escreval("Digite um nro maior que zero")
  senao
     nq <- n^2
     escreval("O nro ao quadrado e ",nq)
     cubo <- n^3
     escreval("O nro ao cubo e ",cubo)
     rq <- RaizQ(n)
     escreval("A raiz quadrada e ",rq)
     rc <- n^(1/3)
     escreval("A raiz cubica e ", rc)
  fimse
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 "Exercício 2"

var
  result:real
  n:inteiro
inicio
  leia(n)
  se (n mod 2 = 0) entao
       escreval("o numero lido é par")
       result <- n * 1/2
  senao
      escreval("o numero lido é impar")
      result <- n * 2
  fimse
  escreval(result)
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 "Exercício 3"

var
  total, ingresso, qtd:real
inicio
  escreval("Digite o custo total do espetaculo")
  leia(total)
  escreval("Digite o custo do ingresso")
  leia(ingresso)
  qtd <- total/ingresso
  escreval("Voce deve vender no minimo ",qtd, " ingressos")
fimalgoritmo

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

algoritmo "Exercicio 4"

var
   A, B, C : inteiro
inicio
  escreval("Digite 3 numeros para ordenar descrescente")
  leia (A, B, C)
  se (A > B) e (A > C) entao
      se (B > C) entao
          escreval (A, B, C)
      senao
          escreval (A, C, B)
      fimse
  senao
      se (B > A) e (B > C) entao
      se( A > C) entao
            escreval (B, A, C)
      senao
            escreval (B, C, A)
      fimse
      senao
         se (C > A) e (C > B) entao
             se ( A > B) entao
                 escreval (C, A, B)
             senao
                 escreval (C, B, A)
              fimse
          fimse
      fimse
  fimse
fimalgoritmo

Nesta aula foi proposto um tipo de simulado com a prova do ano passado, ate agora nesses 4 exercícios não tive dificuldade.