TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Algotimo

Por:   •  17/6/2015  •  Monografia  •  561 Palavras (3 Páginas)  •  243 Visualizações

Página 1 de 3

// 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)

...

Baixar como (para membros premium)  txt (2.4 Kb)   pdf (55.8 Kb)   docx (10.8 Kb)  
Continuar por mais 2 páginas »
Disponível apenas no TrabalhosGratuitos.com