Ir ao conteúdo
  • Cadastre-se
Regras do Clube do Hardware

Dúvida com algoritmo Visualg

Fabalous

Por Fabalous
em Programação - iniciantes

 Compartilhar

Posts recomendados

Fabalous
 

Fabalous

Postado
Postado
Boa tarde galera,

tudo bem?

 

Poderia me ajudar com esse algorítimo, não estou conseguindo colocar ele para processar os dados da maneira correta. Na hora de processar os dados e somar as matrizes ele não esta somando, então o resultado esta variando apenas de 1 e 0.

Obrigado!

 




inicio

// Seção de Comandos 





  Escreval ("Qual a direção da ressaca?")

  repita

        Escreval ("(1)Norte (2)Noroeste (3)Oeste (4)Sudoeste (5)Sul (6)Sudeste (7)Leste (8)Noroeste")

        leia     (direcaodaressaca)

        se ( direcaodaressaca > 8 )  então

                 Escreval  ("")

                 Escreval ("APENAS 1 A 8")

                 Escreval  ("")

                 Escreval ("Qual a direção da ressaca?")

        fimse

  ate (direcaodaressaca <= 8)



  limpatela



  Escreval ("Qual a direção do vento?")

  repita

        Escreval ("(1)Norte (2)Noroeste (3)Oeste (4)Sudoeste (5)Sul (6)Sudeste (7)Leste (8)Noroeste")

        leia     (direcaodovento)

        se (direcaodovento > 8)  então

           Escreval  ("")

           Escreval ("APENAS 1 A 8")

           Escreval  ("")

           Escreval ("Qual a direção do vento?")

        fimse

  ate (direcaodovento <= 8)



  limpatela



  Escreval ("Qual a condição da maré?")

  repita

        Escreval ("(1)Baixa (2)Média (3)Alta")

        leia     (condicaodamare)

        se (condicaodamare > 3)  então

          Escreval  ("")

          Escreval ("APENAS 1 A 3")

          Escreval  ("")

          Escreval ("Qual a condição da maré?")

        fimse

  ate (condicaodamare <= 3)



  limpatela



  Escreval ("Qual a movimentação da maré?")

  repita

        Escreval ("(1)Crescente (2)Decrescente")

        leia     (movimentacaodamare)

        se (movimentacaodamare > 2)  então

           Escreval  ("")

           Escreval ("APENAS 1 A 2")

           Escreval  ("")

           Escreval ("Qual a movimentação da maré?")

        fimse

  ate (condicaodamare <= 2)



  limpatela



  se (direcaodaressaca = 3) então

       MatrizPraia[1,1] <- 0

       MatrizPraia[1,2] <- 0

       MatrizPraia[1,3] <- 1

       MatrizPraia[1,4] <- 0

       MatrizPraia[1,5] <- 0

       MatrizPraia[1,6] <- 0

       MatrizPraia[1,7] <- 1

       MatrizPraia[1,8] <- 0

       MatrizPraia[1,9] <- 0

       MatrizPraia[1,10] <- 0

       MatrizPraia[1,11] <- 0

  senao

  

  se  (direcaodaressaca = 4) então

       MatrizPraia[1,1] <- 0

       MatrizPraia[1,2] <- 0

       MatrizPraia[1,3] <- 0

       MatrizPraia[1,4] <- 1

       MatrizPraia[1,5] <- 1

       MatrizPraia[1,6] <- 1

       MatrizPraia[1,7] <- 1

       MatrizPraia[1,8] <- 0

       MatrizPraia[1,9] <- 1

       MatrizPraia[1,10] <- 1

       MatrizPraia[1,11] <- 1

  senao

  

  se (direcaodaressaca = 5) então

       MatrizPraia[1,1] <- 1

       MatrizPraia[1,2] <- 1

       MatrizPraia[1,3] <- 0

       MatrizPraia[1,4] <- 0

       MatrizPraia[1,5] <- 0

       MatrizPraia[1,6] <- 1

       MatrizPraia[1,7] <- 1

       MatrizPraia[1,8] <- 1

       MatrizPraia[1,9] <- 1

       MatrizPraia[1,10] <- 1

       MatrizPraia[1,11] <- 1

 senao



 se (direcaodaressaca = 6) então

       MatrizPraia[1,1] <- 0

       MatrizPraia[1,2] <- 1

       MatrizPraia[1,3] <- 0

       MatrizPraia[1,4] <- 0

       MatrizPraia[1,5] <- 1

       MatrizPraia[1,6] <- 1

       MatrizPraia[1,7] <- 1

       MatrizPraia[1,8] <- 1

       MatrizPraia[1,9] <- 0

       MatrizPraia[1,10] <- 1

       MatrizPraia[1,11] <- 0



   se (direcaodaressaca = 7) então

       MatrizPraia[1,1] <- 0

       MatrizPraia[1,2] <- 1

       MatrizPraia[1,3] <- 0

       MatrizPraia[1,4] <- 1

       MatrizPraia[1,5] <- 0

       MatrizPraia[1,6] <- 0

       MatrizPraia[1,7] <- 0

       MatrizPraia[1,8] <- 1

       MatrizPraia[1,9] <- 0

       MatrizPraia[1,10] <- 0

       MatrizPraia[1,11] <- 0

   senao

   

   se (direcaodovento = 1) então

       MatrizPraia[2,1] <- 0

       MatrizPraia[2,2] <- 0

       MatrizPraia[2,3] <- 0

       MatrizPraia[2,4] <- 0

       MatrizPraia[2,5] <- 1

       MatrizPraia[2,6] <- 1

       MatrizPraia[2,7] <- 1

       MatrizPraia[2,8] <- 1

       MatrizPraia[2,9] <- 0



       MatrizPraia[2,10] <- 0

       MatrizPraia[2,11] <- 0

   senao

   

   se (direcaodovento = 2) então

       MatrizPraia[2,1] <- 0

       MatrizPraia[2,2] <- 1

       MatrizPraia[2,3] <- 1

       MatrizPraia[2,4] <- 0

       MatrizPraia[2,5] <- 1

       MatrizPraia[2,6] <- 1

       MatrizPraia[2,7] <- 0

       MatrizPraia[2,8] <- 1

       MatrizPraia[2,9] <- 0

       MatrizPraia[2,10] <- 1

       MatrizPraia[2,11] <- 0

   senao

   

   se (direcaodovento = 3) então

       MatrizPraia[2,1] <- 0

       MatrizPraia[2,2] <- 0

       MatrizPraia[2,3] <- 0

       MatrizPraia[2,4] <- 0

       MatrizPraia[2,5] <- 0

       MatrizPraia[2,6] <- 0

       MatrizPraia[2,7] <- 1

       MatrizPraia[2,8] <- 0

       MatrizPraia[2,9] <- 0

       MatrizPraia[2,10] <- 0

       MatrizPraia[2,11] <- 0

   senao

   

   se (direcaodovento = 4) então

       MatrizPraia[2,1] <- 1

       MatrizPraia[2,2] <- 0

       MatrizPraia[2,3] <- 0

       MatrizPraia[2,4] <- 0

       MatrizPraia[2,5] <- 0

       MatrizPraia[2,6] <- 0

       MatrizPraia[2,7] <- 0

       MatrizPraia[2,8] <- 0

       MatrizPraia[2,9] <- 1

       MatrizPraia[2,10] <- 0

       MatrizPraia[2,11] <- 1

   senao

   

   se (direcaodovento = 5) então

       MatrizPraia[2,1] <- 0

       MatrizPraia[2,2] <- 0

       MatrizPraia[2,3] <- 0

       MatrizPraia[2,4] <- 0

       MatrizPraia[2,5] <- 1

       MatrizPraia[2,6] <- 0

       MatrizPraia[2,7] <- 0

       MatrizPraia[2,8] <- 0

       MatrizPraia[2,9] <- 1

       MatrizPraia[2,10] <- 0

       MatrizPraia[2,11] <- 0

   senao

   

   se (direcaodovento = 6) então

       MatrizPraia[2,1] <- 0

       MatrizPraia[2,2] <- 0

       MatrizPraia[2,3] <- 1

       MatrizPraia[2,4] <- 0

       MatrizPraia[2,5] <- 1

       MatrizPraia[2,6] <- 0

       MatrizPraia[2,7] <- 0

       MatrizPraia[2,8] <- 0

       MatrizPraia[2,9] <- 1

       MatrizPraia[2,10] <- 0

       MatrizPraia[2,11] <- 0

   senao

   

   se (direcaodovento = 7) então

       MatrizPraia[2,1] <- 0

       MatrizPraia[2,2] <- 1

       MatrizPraia[2,3] <- 1

       MatrizPraia[2,4] <- 1

       MatrizPraia[2,5] <- 1

       MatrizPraia[2,6] <- 0

       MatrizPraia[2,7] <- 0

       MatrizPraia[2,8] <- 1

       MatrizPraia[2,9] <- 0

       MatrizPraia[2,10] <- 0

       MatrizPraia[2,11] <- 0

   senao

   

   se (direcaodovento = 8) então

       MatrizPraia[2,1] <- 0

       MatrizPraia[2,2] <- 1

       MatrizPraia[2,3] <- 1

       MatrizPraia[2,4] <- 0

       MatrizPraia[2,5] <- 1

       MatrizPraia[2,6] <- 1

       MatrizPraia[2,7] <- 0

       MatrizPraia[2,8] <- 1

       MatrizPraia[2,9] <- 0

       MatrizPraia[2,10] <- 1

       MatrizPraia[2,11] <- 0

   senao

   

   se (condicaodamare = 1) então

       MatrizPraia[3,1] <- 1

       MatrizPraia[3,2] <- 1

       MatrizPraia[3,3] <- 1

       MatrizPraia[3,4] <- 0

       MatrizPraia[3,5] <- 1

       MatrizPraia[3,6] <- 1

       MatrizPraia[3,7] <- 0

       MatrizPraia[3,8] <- 0

       MatrizPraia[3,9] <- 1

       MatrizPraia[3,10] <- 1

       MatrizPraia[3,11] <- 0

   senao

   

   se (condicaodamare = 2) então

       MatrizPraia[3,1] <- 1

       MatrizPraia[3,2] <- 1

       MatrizPraia[3,3] <- 1

       MatrizPraia[3,4] <- 1

       MatrizPraia[3,5] <- 1

       MatrizPraia[3,6] <- 1

       MatrizPraia[3,7] <- 1

       MatrizPraia[3,8] <- 0

       MatrizPraia[3,9] <- 1

       MatrizPraia[3,10] <- 1

       MatrizPraia[3,11] <- 0

   senao

   

   se (condicaodamare = 3) então

       MatrizPraia[3,1] <- 0

       MatrizPraia[3,2] <- 1

       MatrizPraia[3,3] <- 1

       MatrizPraia[3,4] <- 1

       MatrizPraia[3,5] <- 1

       MatrizPraia[3,6] <- 1

       MatrizPraia[3,7] <- 0

       MatrizPraia[3,8] <- 0

       MatrizPraia[3,9] <- 0

       MatrizPraia[3,10] <- 1

       MatrizPraia[3,11] <- 0

   senao

   

   se (movimentacaodamare = 1) então

       MatrizPraia[4,1] <- 0

       MatrizPraia[4,2] <- 1

       MatrizPraia[4,3] <- 0

       MatrizPraia[4,4] <- 0

       MatrizPraia[4,5] <- 1

       MatrizPraia[4,6] <- 1

       MatrizPraia[4,7] <- 0

       MatrizPraia[4,8] <- 0

       MatrizPraia[4,9] <- 1

       MatrizPraia[4,10] <- 1

       MatrizPraia[4,11] <- 0

   senao

   

   se (movimentacaodamare = 2) então

       MatrizPraia[4,1] <- 0

       MatrizPraia[4,2] <- 1

       MatrizPraia[4,3] <- 0

       MatrizPraia[4,4] <- 0

       MatrizPraia[4,5] <- 1

       MatrizPraia[4,6] <- 1

       MatrizPraia[4,7] <- 1

       MatrizPraia[4,8] <- 0

       MatrizPraia[4,9] <- 1

       MatrizPraia[4,10] <- 1

       MatrizPraia[4,11] <- 0

   senao

        Escreval ("ERRO")



    fimse

    fimse

    fimse

    fimse

    fimse

    fimse

    fimse

    fimse

    fimse

    fimse

    fimse

    fimse

    fimse

    fimse

    fimse

    fimse

    fimse

    fimse



para i:=1 ate 4 faca

     se MatrizPraia[i,1] = 1 então

        Praia_do_Diabo <- Praia_do_Diabo + 1

     fimse

fimpara



   Arpoador <- MatrizPraia[1,2] + MatrizPraia[2,2] + MatrizPraia[3,2] + MatrizPraia[4,2]

   Leblon <- MatrizPraia[1,3] + MatrizPraia[2,3] + MatrizPraia[3,3] + MatrizPraia[4,3]

   Sao_Conrado <- MatrizPraia[1,4] + MatrizPraia[2,4] + MatrizPraia[3,4] + MatrizPraia[4,4]

   Joatinga <- MatrizPraia[1,5] + MatrizPraia[2,5] + MatrizPraia[3,5] + MatrizPraia[4,5]

   Barra_da_Tijuca_posto8 <- MatrizPraia[1,6] + MatrizPraia[2,6] + MatrizPraia[3,6] + MatrizPraia[4,6]

   Reserva <- MatrizPraia[1,7] + MatrizPraia[2,7] + MatrizPraia[3,7] + MatrizPraia[4,7]

   Recreio <- MatrizPraia[1,8] + MatrizPraia[2,8] + MatrizPraia[3,8] + MatrizPraia[4,8]

   Praia_da_Macumba <- MatrizPraia[1,9] + MatrizPraia[2,9] + MatrizPraia[3,9] + MatrizPraia[4,9]

   Prainha <- MatrizPraia[1,10] + MatrizPraia[2,10] + MatrizPraia[3,10] + MatrizPraia[4,10]

   Grumari <- MatrizPraia[1,11] + MatrizPraia[2,11] + MatrizPraia[3,11] + MatrizPraia[4,11]





   Escreval ("Praia do Diabo", " =", Praia_do_Diabo)

   Escreval ("Arpoador", " =", Arpoador)

   Escreval ("Leblon", " =", Leblon)

   Escreval ("São Conrado", " =", Sao_Conrado)

   Escreval ("Joatinga", " =", Joatinga)

   Escreval ("Barra da Tijuca posto8", " =", Barra_da_Tijuca_posto8)

   Escreval ("Reserva", " =", Reserva)

   Escreval ("Recreio", " =", Recreio)

   Escreval ("Praia da Macumba", " =", Praia_da_Macumba)

   Escreval ("Prainha", " =", Prainha)

   Escreval ("Grumari", " =", Grumari)

   

   







fimalgoritmo

Link para o comentário
Compartilhar em outros sites
  • 4 semanas depois...
Visitante
Este tópico está impedido de receber novas respostas.
 Compartilhar
Ir à lista de tópicos

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mais

×
×
  • Criar novo...