Fabalous

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