Trabalho de Algoritmo

FACULDADE PITÁGORAS DE UBERLÂNDIA

ANDERSON BATISTA

EDERSON FRANCISCO DA SILVA

JÚLIO CÉSAR SILVESTRE BARBOSA JÚNIOR

KELVIS GONÇALVES MAGELA

TRABALHO DE INTRODUÇÃO À ENGENHARIA:

GRÁFICOS

UBERLÂNDIA

2012

---

ANDERSON BATISTA

EDERSON FRANCISCO DA SILVA

JÚLIO CÉSAR SILVESTRE BARBOSA JÚNIOR

KELVIS GONÇALVES MAGELA

TRABALHO DE ALGORITMOS E PROGRAMAÇÃO:

CUSTO DE MADEIRA PARA ESTRUTURAS

Trabalho denominado “algoritmo para custo de madeira para estruturas” apresentado à Faculdade Pitágoras de Uberlândia, como requisito parcial para aprovação na disciplina algoritmos e programação, referente ao 2º período, do curso de Engenharia Civil/Mecânica.

Prof. Responsável: Mr. Hélio oliveira ferrari

Uberlândia

2012

---

 CUSTO DE MADEIRA PARA ESTRUTURAS

algoritmo "Calculo de Tesoura Inglesa"

// Função : este algoritmo calcula o custo da madeira de uma tesoura, para os modelos colonial, francesa e cimento-amianto

// Autor : Anderson batista, Ederson Francisco, Júlio César, kelvis Gonçalves

// Data : 06/10/2012

// Seção de Declarações

var

L1,R,l2,a,alfa,I,B,H,p1,p2,v1,v2,d1,d2,M,C: real

opcao: inteiro

inicio

// Seção de Comandos

Escreva ("Entre com a largura da casa acrescida do beiral: ")

Leia (L1)

Se (L1>=6)  e (L1<=10)Entao

Escreval ("A estrutura do telhado da residencia sera apenas no modelo de meia tesoura inglesa.")

Escreval()

Escreva ("Entre com a largura da guia: ")

Leia (l2)

Escreva("Entre com o preço do metro de guia: ")

Leia (R)

Limpatela

Escreval("         Menu de Telhados")

Escreval("         ==== == ========")

Escreval()

Escreval("1 - Colonial")

Escreval("2 - Francesa")

Escreval("3 - Ciamento-amianto")

Escreval()

Escreva("Escolha uma opcao de telhado: ")

Leia(opcao)

Escolha (opcao)

caso 1

I <-0.40

H <-I*a

alfa<-arctan(i)

B<-(a^2+h^2)^(1/2)

p1<-a+(5*L1/2)

v1<-tan(alfa)*p1

p2<-2*p1-L1

v2<-tan(alfa)*p2

d1<-(p1^2+v1^2)^(1/2)

d2<-(p1^2+v2^2)^(1/2)

M<-H+a+b+v1+v2+d1+d2

C<-M*R

Escreval ("A metragem da madeira utilizada sera de: ",M:7:2)

Escreval ("O custo da madeira da tesoura sera de: ",C:7:2)

Escreval ()

Escreval("Fim Programa.")

caso 2

I<-0.36

H <-I*a

alfa<-arctan(i)

B<-(a^2+h^2)^(1/2)

p1<-a+(5*L1/2)

v1<-tan(alfa)*p1

p2<-2*p1-L1

v2<-tan(alfa)*p2

d1<-(p1^2+v1^2)^(1/2)

d2<-(p1^2+v2^2)^(1/2)

M<-H+a+b+v1+v2+d1+d2

C<-M*R

Escreval ("A metragem da madeira utilizada sera de: ",M:7:2)

Escreval ("O custo da madeira da tesoura sera de: ",C:7:2)

Escreval ()

Escreval("Fim Programa.")

caso 3

I<-0.268

H <-I*a

alfa<-arctan(i)

B<-(a^2+h^2)^(1/2)

p1<-a+(5*L1/2)

v1<-tan(alfa)*p1

p2<-2*p1-L1

v2<-tan(alfa)*p2

d1<-(p1^2+v1^2)^(1/2)

d2<-(p1^2+v2^2)^(1/2)

M<-H+a+b+v1+v2+d1+d2

C<-M*R

Escreval ("A metragem da madeira utilizada sera de: ",M:7:2 "metros.")

Escreval ("O custo da madeira da tesoura sera de: ",C:7:2 "reais")

Escreval ()

Escreval("Fim Programa.")

Outrocaso

escreva ("Opcao Invalida. Digite novamente.")

fimescolha

Senao

     Se(L1>=10)e (L1<=18)Entao

     Escreval ("A estrutura do telhado da residencia sera no modelo de uma tesoura inglesa.")

     Escreval()

     Escreva ("Entre com a largura da guia: ")

     Leia (l2)

     Escreva("Entre com o preço do metro de guia: ")

     Leia (R)

     Limpatela

     Escreval("         Menu de Telhados")

     Escreval("         ==== == ========")

     Escreval()

     Escreval("1 - Colonial")

     Escreval("2 - Francesa")