Alguém tem exemplos de matrizes no Visualg?

http://prntscr.com/hfewdg

Exemplo de um programa que lê uma matriz 5x5, em seguida lê um número inteiro e multiplica o número lido por cada elemento presente na matriz:

algoritmo "Exercicio 1"

var

vetA:vetor[1..5,1..5] de real

vetB:vetor[1..5,1..5] de real

i,j,x:inteiro

a : caractere

inicio

// Seção de Comandos

para i de 1 ate 5 faca

para j de 1 ate 5 faca

escreva("Digite os numeros: [",i, " + ", j, " ] ")

leia(vetA[i,j])

fimpara

fimpara

escreval

escreval("Digite Um Número Para Multiplicar")

leia(x)

escreval

para i de 1 ate 5 faca

vetA[i,2] := vetA[i,2]*x

fimpara

para i de 1 ate 5 faca

para j de 1 ate 5 faca

a := numpcarac(vetA[i,j])

se (vetA[i,j] >-1 ) e (vetA[i,j] < 10) ENTÃO

a := " "+a

senao

se (vetA[i,j] >= 10) e (vetA[i,j] < 100) ENTÃO

a := " "+a

senao

se (vetA[i,j] >= 100) e (vetA[i,j] < 1000) ENTÃO

a := " "+a

senao

a := " "+a

fimse

fimse

fimse

se j < 5 ENTÃO

a := a+" - "

fimse

escreva( a )

fimpara

escreval("")

fimpara

fimalgoritmo

Exemplo de um programa que lê uma matriz 5x5, em seguida lê um número inteiro e multiplica o número lido por cada elemento presente na matriz:

algoritmo "Exercicio 1"

var

vetA:vetor[1..5,1..5] de real

vetB:vetor[1..5,1..5] de real

i,j,x:inteiro

a : caractere

inicio

// Seção de Comandos

para i de 1 ate 5 faca

para j de 1 ate 5 faca

escreva("Digite os numeros: [",i, " + ", j, " ] ")

leia(vetA[i,j])

fimpara

fimpara

escreval

escreval("Digite Um Número Para Multiplicar")

leia(x)

escreval

para i de 1 ate 5 faca

vetA[i,2] := vetA[i,2]*x

fimpara

para i de 1 ate 5 faca

para j de 1 ate 5 faca

a := numpcarac(vetA[i,j])

se (vetA[i,j] >-1 ) e (vetA[i,j] < 10) ENTÃO

a := " "+a

senao

se (vetA[i,j] >= 10) e (vetA[i,j] < 100) ENTÃO

a := " "+a

senao

se (vetA[i,j] >= 100) e (vetA[i,j] < 1000) ENTÃO

a := " "+a

senao

a := " "+a

fimse

fimse

fimse

se j < 5 ENTÃO

a := a+" - "

fimse

escreva( a )

fimpara

escreval("")

fimpara

fimalgoritmo