FW: Algoritmo 5,6 e 7

[engenharia civil turma D SerraVix]

PARTE 3

---

Date: Mon, 30 Apr 2012 22:38:26 -0300
Subject: Fwd: Algoritmo 5,6 e 7
From: bordo...@gmail.com
To: engci...@hotmail.com

---------- Mensagem encaminhada ----------
De: Bruno Oliveira <bordo...@gmail.com>
Data: 30 de abril de 2012 18:09
Assunto: Algoritmo 5,6 e 7
Para: malek...@gmail.com

EXERCÍCIO 5

algoritmo "diasdomes"

// Função :

// Autor :

// Data : 28/04/2012

// Seção de Declarações 

var

mes:inteiro

inicio

escreva("Digite o número do mes:")

leia(mes)

se(mes=1)entao

  escreva("31 dias")

  senao

se(mes=2)entao

  escreva("28 dias")

  senao

se(mes=3)entao

  escreva("31 dias")

  senao

se(mes=4)entao

  escreva("30 dias")

  senao

se(mes=5)entao

  escreva("31 dias")

  senao

se(mes=6)entao

  escreva("30 dias")

  senao

se(mes=7)entao

  escreva("31 dias")

  senao

se(mes=8)entao

  escreva("31dias")

  senao

se(mes=9)entao

  escreva("30 dias")

  senao

se(mes=10)entao

  escreva("31 dias")

  senao

se(mes=11)entao

  escreva("30 dias")

  senao

se(mes=12)entao

  escreva("31dias")

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimalgoritmo

EXERCÍCIO 6

algoritmo "salario"

// Função :

// Autor :

// Data : 28/04/2012

// Seção de Declarações 

var

vh,qh:real

inicio

escreva("Digite a quantidade de horas trabalhadas na semana:")

leia(qh)

escreva("Digite o valor da hora normal:")

leia(vh)

se(qh<=40)entao

  escreva("O valor a receber é de:",qh*vh,"reais")

  senao

se(qh>40)e(qh<=60)entao

  escreva("O valor a receber acrescido somente de horas 50% é:",(qh-40)*(1.5*vh)+(40*vh),"reais")

  senao

se(qh>60)entao

  escreva("O valor total a receber acrescido de todos os encargos é:",(qh-60)*(2*vh)+(vh*40)+(20*1.5*vh),"reais")

  fimse

  fimse

  fimse

fimalgoritmo

EXERCÍCIO 7

algoritmo "pesoideal"

// Função :

// Autor :

// Data : 28/04/2012

// Seção de Declarações 

var

h,homens,sexo:real

mulheres:real

inicio

escreva("Digite o sexo da pessoa se for masculino digite 1 e feminino digite 2:")

leia(sexo)

escreva("Digite a altura da pessoa em questão:")

leia(h)

homens<-(72.7*h)-58

mulheres<-(62.1*h)-44.7

se(sexo=1)entao

  escreva("A formula usada para calculo do peso ideal dos homens é:",homens)

  senao

  escreva("A formula para calculo de peso ideal das mulheres é:",mulheres)

fimse

fimalgoritmo