segunda-feira, 27 de setembro de 2010

Cap. 3 exercicio 12

algoritmo "Cálculo da média"
   var
     n1, n2, n3, media:real
   inicio
    escreval("Cálculo de média")
    escreva("Digite o valor da 1ª nota ")
     leia(n1)
    escreva("Digite o valor da 2ª nota ")
     leia(n2)
    escreva("Digite o valor da 3ª nota ")
     leia(n3)
    media <- ((n1+n2+n3) div 3)
    escreva ("A média é: ", media)
  fimalgoritmo

Cap. 3 exercicio 10

algoritmo "Categoria de um nadador"
   var
     nome:literal
     idade:real
   inicio
     escreval("Categoria do nadador")
     escreval("Informe o nome do competidor")
     leia(nome)
     escreva(" Digite a idade do(a) nadador(a) - ")
       leia(idade)
   se ((idade>=5) e (idade<=7)) entao
     escreva(" A Categoria de ", nome, " é Infantil A")
  senao
    se ((idade>7) e (idade<=10)) entao
      escreva(" A Categoria de ", nome, " é Infantil B")
     senao
       se ((idade>10) e (idade<=13)) entao
         escreva(" A Categoria de ", nome, " é Juvenil A")
        senao
          se ((idade>13) e (idade<=17)) entao
            escreva( "A Categoria de ", nome, " é Juvenil B")
           senao
             se (idade>=18) entao
               escreva(" A Categoria de ", nome, " é Sênior")
              senao
                escreva(nome, " não compete")
             fimse
          fimse
       fimse
    fimse
 fimse
 fimalgoritmo

Cap 3 - Exercicio 13

algoritmo "cap03 Exer3_13"
var
   altura,peso,acimapeso, pesoabaixo,pesoideal:real
   sexo:literal
inicio
escreva("Sua altura: ")
leia(altura)
escreva("Seu peso:")
leia(peso)
escreva("Seu sexo:")
leia(sexo)

se ((sexo = "Masculino") ou (sexo = "M")) entao
   pesoideal <- ((72.7*altura)-58)
senao
   pesoideal <- ((62.1*altura)-44.77)
fimse
     se (peso > pesoideal) entao
     acimapeso <- (peso-pesoideal)
     escreva("'Você está acima do Peso em: '", acimapeso: 5:2,"kg")
     escreval
       senao
         se (peso<pesoideal) entao
           pesoabaixo <- (pesoideal - peso)
           escreva ("'Você está abaixo do peso em: '", pesoabaixo: 5:2,"Kg")
           escreval
         fimse
fimse
escreva("Seu peso ideal é: ",pesoideal)
fimalgoritmo

terça-feira, 21 de setembro de 2010

Cap 3 exercicio 6

 a x X + b x y = c
 d x X + e x y = f
pode ser resolvido da seguinte forma:


x =  c x e  - b x f
a x e - b x d

y = a x f – c x d
a x e – b x d


Escreva um algoritmo que leia os coeficientes a, b, c, d e f e calcule e escreva os valores de x e y.
Lembre-se de que os denominadores das equações não podem ser zero.

Resposta:

algoritmo "Exercicio 3.6"
var   vA,vB,vC,vD,vE,vF,x,y:real
inicio   escreval("Informe o valor de 'a':")
   leia(vA)
  
   escreval("Informe o valor de 'b':")
   leia(vB)
  
   escreval("Informe o valor de 'c':")
   leia(vC)
  
   escreval("Informe o valor de 'd':")
   leia(vD)
  
   escreval("Informe o valor de 'e':")
   leia(vE)
  
   escreval("Informe o valor de 'f':")
   leia(vF)

   se (vA=0 ou vE=0) entao
      escreva("O valor de 'a' e 'e' não podem ser igual a 0(zero)")
   senao
      x<- ((vC*vE)-(vB*vF))/((vA*vE)-(vB*vD))
      y<- ((vA*vF)-(vC*vD))/((vA*vE)-(vB*vD))
   fimse
fimalgoritmo

Cap 3 exercicio 5

Escreva um algoritmo que lê dois números inteiros e informa se o primeiro é múltiplo do segundo.


algoritmo " São múltiplos ou não múltiplos"var
  x,y:real
inicio
  escreval(" São múltiplos ou não múltiplos.")

  escreva(" Digite o primeiro número = ")
  leia(x)
  escreva(" Digite o segundo  número = ")
  leia(y)
  se ((x>y e ((x mod y)= 0)) entao
  escreva ("São múltiplos.")
  senao
  escreva("Não são múltiplos.")
  fimse
  fimalgoritmo

Cap 3 - Exercicio 4

 Escreva um algoritmo para calcular a área de um círculo, fornecido o valor do raio, que deve ser.


 algoritmo "Cálculo" var area,raio:real inicio      
 escreva ("Digite o valor de raio: ")
  leia (raio)
  Se ((raio>0) ou (raio=0)) entao
  area <- pi*(raio^2)
  escreva ("Área igual a ",area:5:2)
  senao
  escreval ("O raio precisa ser >=0 ")
  escreval ("*** F IM ***")
  fimse
  fimalgoritmo

Cap 3 exercicio 3

 Quais os valores armazenados em SOMA, NOME e TUDO após executados os passos abaixo, supondo-se que NUM, X, COR, DIA, TESTE e COD valem, respectivamente, 5, 2, “AZUL”, “TERÇA”, FALSO e VERDADEIRO? 1. NOME <- DIA / 2. SOMA <- (NUM^2/X) + (X + 1) / 3. TUDO <- não ((TESTE ou COD) e (X <> NUM))

1. Terça
2. (312.5) + (3) = 315.5
3. ñ ((F) e (V) = V) = ñ V = F^2/x) + (x+1)