Algotimo
Por: luizHMELO19 • 17/6/2015 • Monografia • 561 Palavras (3 Páginas) • 243 Visualizações
// Função :
// Autor : grupo Eng Mecânica 1ª fase
// Data :25/11/2014
// Seção de Declarações
var
QTDE: VETOR [1..100]DE INTEIRO
PEDIDO: VETOR[1..100] DE INTEIRO
PED_U: VETOR[1..100] DE INTEIRO
UTILIZADO: VETOR [1..100] DE INTEIRO
JUMBO: VETOR [1..100] DE INTEIRO
RECUSADO: VETOR [1..100]DE INTEIRO
ORDENAR,PED,I,J,X:INTEIRO
PERCENTUAL: REAL
SOBRA:real
inicio
// Seção de Comandos
escreval ( " ATPS DE ALGORITMOS : " )
escreval ( " ENGENHARIA MECÂNICA 1ª FASE: " )
escreval ( " OTIMIZAÇÃO DA BOBINA JUMBO : " )
escreval ( " DIGITE OS PEDIDOS ")
escreval
PARA I <- 1 ATE 100 FACA
PEDIDO[I] <- I
ESCREVA ("valor do Pedido ",I," : ")
LEIA (QTDE[I])
SE (QTDE[I]< 99)OU (QTDE[I]>1499) ENTAO
ESCREVAL (",I, " NÃO APRESENTA PADRÃO DESEJADO " )
RECUSADO[I] <- QTDE[I]
QTDE[I]<- 0
FIMSE
FIMPARA
PARA I <- 1 ATE 100 FACA
PARA J <- 1 ATE 49 FACA
SE (QTDE[J]) < (QTDE[J+1]) ENTAO
ORDENAR <- QTDE[J]
PED <- PEDIDO[J]
QTDE[J] <- QTDE[J+1]
PEDIDO[J] <- PEDIDO[J+1]
QTDE[J+1]<- ORDENAR
PEDIDO[J+1]<-PED
FIMSE
FIMPARA
FIMPARA
PARA I <- 1 ATE 100 FACA
SE QTDE[I] > 0 ENTAO
ESCREVAL(" PEDIDO ", PEDIDO[I], "-> ",QTDE[I])
SENAO
ESCREVAL(" PEDIDO ", PEDIDO[I], "-> ",QTDE[I], " NÃO APRESENTA PADRÃO DESEJADO")
FIMSE
FIMPARA
ESCREVAL
PARA I <- 1 ATE 100 FACA
PARA X <- 1 ATE 100 FACA
SE UTILIZADO[I] = 0 ENTAO
SE JUMBO[X]<=2400 ENTAO
JUMBO[X]<- JUMBO[X] + QTDE[I]
UTILIZADO[I]<- QTDE[I]
PED_U[I]<-PEDIDO[I]
SE JUMBO[X] > 2400 ENTAO
JUMBO[X]<- JUMBO[X] - QTDE[I]
QTDE[I]<- UTILIZADO[I]
PEDIDO[I]<- PED_U[I]
UTILIZADO[I]<-0
FIMSE
FIMSE
FIMSE
FIMPARA
FIMPARA
ESCREVAL(" QUANTIDADE DE BOBINAS JUMBOS" )
PARA X <- 1 ATE 100 FACA
SE (JUMBO[X]>0) ENTAO
ESCREVAL (" BOBINA JUMBO ",X,"-> ",JUMBO[X])
PERCENTUAL<- ((JUMBO[X])/2400)*100
SOBRA <- 100 - PERCENTUAL
ESCREVAl ("PERCENTUAL DE UTILIZAÇÃO : ",PERCENTUAL)
ESCREVAL ("REFUGO : ",SOBRA)
...