Matriz 7x7 visualG

Superatus · 15 de junho de 2011

1) Faça um algoritmo que gere, de forma automática, a seguinte Matriz 7x7:

1 1 1 1 1 1 1

1 2 2 2 2 2 1

1 2 3 3 3 2 1

1 2 3 4 3 2 1

1 2 3 3 3 2 1

1 2 2 2 2 2 1

1 1 1 1 1 1 1

O meu código esta assim:

só que a matriz não sai com no exemplo de cima e sim uma fora da outra, por exemplo

1111

22

(mais ou menos isso)

alguem pode me ajudar a consertar

o código

var

m :vetor [1..7,1..7] de inteiro

i,j :inteiro

inicio

// Seção de Comandos

escreval ("A matriz é:")

para i de 1 ate 7 faca

para j de 1 ate 7 faca

m[i,j]<-1

escreva (m[i,j])

fimpara

escreval ("")

fimpara

para i de 2 ate 6 faca

para j de 2 ate 6 faca

m[i,j]<-2

escreva (m[i,j])

fimpara

escreval ("")

fimpara

para i de 3 ate 5 faca

m[i,j]<-3

escreva (m[i,j])

fimpara

escreval ("")

fimpara

para i de 4 ate 4 faca

para j de 4 ate 4 faca

m[i,j]<-4

escreva (m[i,j])

fimpara

escreval ("")

fimpara

PSyKoKiLLeR · 16 de junho de 2011

É só você usar 2 "para" (for) encadeado, um para dar valores a matriz e outro para imprimir.

algoritmo "Matriz com valores automaticos"

var

m: vetor [1..7,1..7] de inteiro

i,j : inteiro

inicio

// Seção de Comandos

para i de 1 ate 7 faca

para j de 1 ate 7 faca

se (i=1) ou (i=7) ou (j=1) ou (j=7) então //Se for a linha 1 ou 7 ou a coluna 1 ou 7

m[i,j] <- 1

fimse

se ((i>=2) e (i<=6)) e ((j>=2) e (j<=6)) então //Se for a linha ou coluna 2 ou maior e 6 ou menor

m[i,j] <- 2

fimse

se ((i>=3) e (i<=5)) e ((j>=3) e (j<=5)) então //Se for a linha ou coluna 3 ou maior e 5 ou menor

m[i,j] <- 3

fimse

m[4,4] <- 4 //A única matriz que sobra é essa.

fimpara

fimpara

para i de 1 ate 7 faca

escreval //pula linha

para j de 1 ate 7 faca

escreva (m[i,j]) //escreve a matriz

fimpara

fimpara

fimalgoritmo