Projeto acadêmico realizado pelos alunos do Curso de Engenharia Civil da disciplina de Algoritmo da Faculdade São Francisco de Juazeiro-Bahia.
PLANET OF THE TILES é um projeto sem fins lucrativos, cujo objetivo é a consciência ambiental, além da atenção voltada aos processos de fabricação dos materiais de construção com o uso de matérias-primas limpas e saudáveis, que tem se tornado crescente e irrevogável. Junto com esse cenário, extremamente propício à arquitetura sustentável, está um mercado inovador e com foco em produtos criativos e que pouco – ou quase nada – impactam a saúde e o meio ambiente como as telhas ecológicas e serão aplicados a este projeto conceitos da disciplina de algoritmo.
QUADRO DE ATIVIDADES
ATIVIDADE DE 01/10 À 07/10
algoritmo "semnome"
// Função :
// Autor :
// Data : 08/10/2018
// Seção de Declarações
var
telha : vetor [1..4] de caractere
comp: vetor [1..4] de real
larg : vetor [1..4] de real
QUANTIDADE : VETOR [1..4] DE REAL
i: inteiro
inicio
// Seção de Comandos
para i <- 1 ate 4 faca
escreval ("telha",i)
escreva ("telha:")
leia (telha[i])
escreva (" comprimento:" )
leia (comp [i])
escreva (" Largura")
leia (larg [i])
QUANTIDADE [i] <- (comp[i]*larg[i])/100
fimpara
LimpaTEla
escreval ("Listagem de telhas ")
escreval ("-----------------")
para i <- 1 ate 4 faca
escreval (Telha[i]: 15, quantidade[i]: 4:15)
fimpara
fimalgoritmo
ARQUIVO DO FLUXOGRAMA
ATIVIDADE DE 17/09 À 23/09
algoritmo "TELHA ONDULINE"
// Função :
// Autor :
// Data : 08/09/2018
// Seção de Declarações
var
A1,A2,FC,A3,A4,QUANTIDADE,qtd:REAL
X,S,N,OPCAO: CARACTERE
inicio
// Seção de Comandos
OPCAO<- "S"
ENQUANTO (OPCAO = "S") FACA
escreval("INFORME O COMPRIMENTO DA PLANTA")
LEIA (A1)
ESCREVAL ("INFORME A LARGURA DA PLANTA")
LEIA (A2)
ESCREVAL ("INFORME O FATOR CORREÇÃO")
LEIA(FC)
escreval("informe a quantidade de telhas por metros quadrados")
leia(qtd)
QUANTIDADE<- A1*A2*FC*qtd
ESCREVA("A QUANTIDADE DE TELHAS É",QUANTIDADE)
EscrevaL("TEM CHAMINÉ?")
LEIA (X)
SE (X="S") entao
escreval ("digite o comprimento ")
leia (A3)
ESCREVAL ("DIGITE A LARGURA")
LEIA (A4)
QUANTIDADE<- (A1*A2-A3*A4)*FC*qtd
ESCREVAL("A QUANTIDADE DE TELHAS COM CHAMINÉ É IGUAL A",QUANTIDADE)
SENAO (X="N")
QUANTIDADE<- A1*A2*FC*qtd
ESCREVAL("A QUANTIDADE DE TELHAS É IGUAL A",QUANTIDADE)
FIMSE
ESCREVAL("DESEJA REALIZAR O CALCULO NOVAMENTE? <S-SIM> <N-NÃO>")
LEIA (OPCAO)
FIMENQUANTO
fimalgoritmo
ATIVIDADE DE 10/09 À 16/09
INSTRUÇÃO CONDICIONAL
ALGORITMO PARA CÁLCULO DA TELHA
algoritmo "TELHA "
// Função :
// Autor :
// Data : 08/09/2018
// Seção de Declarações
var
A1,A2,FC,A3,A4,QTDM2,QUANTIDADE:REAL
X,S,N: CARACTERE
inicio
// Seção de Comandos
escreval("INFORME O COMPRIMENTO DA PLANTA")
LEIA (A1)
ESCREVAL ("INFORME A LARGURA DA PLANTA")
LEIA (A2)
ESCREVAL ("INFORME O FATOR CORREÇÃO")
LEIA(FC)
ESCREVAL( "INFORME A QUANTIDADE DE TELHAS POR METRO QUADRADO")
LEIA(QTDM2)
QUANTIDADE<- A1*A2*FC*QTDM2
ESCREVA("A QUANTIDADE DE TELHAS É",QUANTIDADE)
EscrevaL("TEM CHAMINÉ?")
LEIA (X)
SE (X="S") entao
escreval ("digite o comprimento ")
leia (A3)
ESCREVAL ("DIGITE A LARGURA")
LEIA (A4)
QUANTIDADE<- (A1*A2-A3*A4)*FC*QTDM2
ESCREVA("A QUANTIDADE DE TELHAS COM CHAMINÉ É IGUAL A",QUANTIDADE)
fimalgoritmo
SENAO (X="N")
QUANTIDADE<- A1*A2*FC*QTDM2
ESCREVA("A QUANTIDADE DE TELHAS É IGUAL A",QUANTIDADE)
FIMSE
fimalgoritmo
ATIVIDADE DE 03/09 À 09/09
algoritmo "TELHA "
// Função :
// Autor :
// Data : 08/09/2018
// Seção de Declarações
var
A1,A2,FC,QUANTIDADE:REAL
inicio
// Seção de Comandos
escreval("INFORME O COMPRIMENTO DA PLANTA")
LEIA (A1)
ESCREVAL ("INFORME A LARGURA DA PLANTA")
LEIA (A2)
ESCREVAL ("INFORME O FATOR CORREÇÃO")
LEIA(FC)
QUANTIDADE<- (A1*A2*FC)*0.96
ESCREVA("A QUANTIDADE DE TELHAS É",QUANTIDADE)
fimalgoritmo