visualg com erros em matriz

[gabi faccioni 0]

estou com alguns erros no meu algoritmo até a questão 5, ficaria muito grata se alguém pudesse me ajudar...

 

 

algoritmo "MATRIZ 4 X 5"

// Função : Dado uma Matriz de 4 x 5:

// Autor : GABRIELA BORGES

// Data : 13/10/2015

// Seção de Declarações

var

M: VETOR [1..4,1..5] DE INTEIRO

//---------------------------------------

C, L, AUX, MINVERTIDA: INTEIRO

//---------------------------------------

SOMAL, SOMAC: VETOR [1..4]DE INTEIRO

//---------------------------------------

VPAR, VIMPAR VETOR[1..50] DE INTEIRO

VPARI, VIMPARI: INTEIRO

inicio

 

 

//1. Escreva um Algoritmo que alimente esta matriz com valores randômicos até 50;

ESCREVAL( "|_________________________MATRIZES______________________|")

ESCREVAL("")

ESCREVAL (" MATRIZ 4 X 5:")

ESCREVAL("")

PARA L DE 1 ATE 4 FACA

PARA C DE 1 ATE 5 FACA

SE C=1 ENTAO

ESCREVA ("|")

FIMSE

M[L,C]:= RANDI(50)

ESCREVA (M[L,C]:3:0,"|")

 

FIMPARA

ESCREVAL("")

FIMPARA

 

//2. Escreva um procedimento (Código) que ordene esta Matriz em Ordem Crescente

 

PARA L DE 1 ATE 4 FACA

PARA L1 DE 1 ATE 3 FACA

SE M[L1] > M[L1+1] ENTAO

AUX := M[L1]

M[L1] := M[ L1+1]

M[L1+1] := AUX

FIMSE

FIMPARA

FIMPARA

ESCREVAL("ORDENANDO...")

PARA L DE 1 ATE 4 FACA

ESCREVAL("ORDENANDO LINHAS: [", L, "] = ", M[L])

FIMPARA

 

PARA C DE 1 ATE 5 FACA

PARA C1 DE 1 ATE 4 FACA

SE M[C1] > M[C1+1] ENTAO

AUX := M[C1]

M[X] := M[ C1+1]

M[C1+1] := AUX

 

FIMSE

FIMPARA

FIMPARA

ESCREVAL("ORDENANDO...")

PARA C DE 1 ATE 5 FACA

ESCREVAL("ORDENANDO COLUNAS: [", C, "] = ", M[C])

FIMPARA

 

 

//3. Escreva um procedimento que some as Colunas , e some as Linhas desta Matriz

 

 

PARA L DE 1 ATE 4 FACA

PARA C DE 1 ATE 5 FACA

SE C=1 ENTAO

ESCREVA ("|")

FIMSE

SOMAL[L] := SOMAL[L] + M[L,C]

SOMAC[C] := SOMAC[C] + M[L,C]

ESCREVA (M[L,C]:3:0,"|")

FIMPARA

ESCREVAL (SOMAL[L]:3:0)

ESCREVAL ("+___+___+___+___=___")

FIMPARA

PARA C DE 1 ATE 4 FACA

SE C =1 ENTAO

ESCREVA ("|")

FIMSE

ESCREVA (SOMAC[C]:3:0,"|")

FIMPARA

 

//4. Escreva um procedimento que A última posição será a primeira, a penúltima a segunda e assim sucessivamente.

 

PARA L DE 1 ATE 4 FACA

PARA C DE 1 ATE 5 FACA

LEIA (MINVERTIDA)

M [L,C]:= MINVERTIDA

FIMPARA

FIMPARA

L:= 4

PARA L DE 4 ATE 1 PASSO -1 FACA

PARA C DE 1 ATE 5 FACA

FIMPARA

ESCREVAL (M [L,C])

FIMPARA

 

//5. Crie 2 Vetores um para Valores Pares e Outro para Valores Impares, e alimente ele com os valores da Matriz,

//Valor par no Vetor Par, Valor Impar no Vetor Impar

 

ESCREVAL (" EXEMPLO DE MATRIZ:")

ESCREVAL("")

 

VPARI:= 1

 

PARA L DE 1 ATE 5 FACA

PARA C DE 1 ATE 10 FACA

M[L,C]:=RANDI(20)

SE ((M[L,C] MOD 2) =0 ) ENTAO

 

VPAR[VPARI] := M[L,C]

VPARI := VPARI+1

SENAO

VIMPAR[VIMPARI] := M[L,C]

VIMPARI:= VIMPARI+1

ESCREVA ("|")

FIMSE

FIMPARA

ESCREVA( VPAR :3:0,"|")

ESCREVA( VIMPAR :3:0,"|")

FIMPARA

[L. Henrique 179]

Gabi, acho que está em área errada. O código em questão é um Portugol (prog. C).

Lembrando que ninguém vai fazer os trabalhos da faculdade por você. Corra atrás e pesquise no google uma forma de resolver.