Procedimento - Portugol - Visualg

[Demoner 0]

Boa noite pessoal!!

Fiz uma lógico mas não sei colocar a mesma em procedimento, se alguem puder por favor!!

var
n,m,i,j,soma,max:inteiro
c:vetor[1..10,1..10] de inteiro
inicio
Escreva ("Informe quantidade de ruas: ")
leia(n)
escreva ("Informe quantidade de avenidas: ")
leia(m)
para i de 1 ate n faca
   para j de 1 ate m faca
      leia(c[i,j])
   fimpara
fimpara
para i de 1 ate n faca
   para j de 1 ate m faca
      soma<-soma+c[i,j]
      se i=1 entao
         max<-soma
      senao
         se soma>max entao
            max<-soma
         fimse
      fimse
   fimpara
   soma<-0
fimpara
para j de 1 ate m faca
   para i de 1 ate n faca
      soma<-soma+c[i,j]
      se soma>max entao
         max<-soma
      fimse
   fimpara
   soma<-0
fimpara
escreva(max)
fimalgoritmo

[quitZAUMMM 18]

É soh jogar td num bloco soh e fazer sua chamada, você só precisa ficar atento nos parametros!

 

[]s

 

---

Tópico Movido:

 

Outras Linguagens de Programação http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Lógica de Programação e Algoritmos

[Demoner 0]

É soh jogar td num bloco soh e fazer sua chamada, você só precisa ficar atento nos parametros!

Já tentei fazer isso váias vezes, mas na hora da chamada sempre da errado!

[quitZAUMMM 18]

Poste como está fazendo a chamada!

 

[]s