PASCAL AJUDA

[jose1997 0]

Esse é meu primeiro post então me desculpem se postei no lugar errado.

Estou com um pequeno problema para resolver um problema de programação pascal envolvendo matrizes e vetores.

O problema é o seguinte:

1. Desenvolver um procedimento que escreva uma matriz 3x3.

2. Utilizando a solução do exercício 1, armazene a diagonal principal da matriz em um vetor e depois escreva os valores armazenados nesse vetor.

Esses foi o mais próximo que consegui chegar, o problema 1 eu fiz mais o 2 to empacado.

procedure Trabalho01 ();

Var

Mat : array [1..3] of array [1..3] of integer;

Vet : array [1..3] of integer;

Linha, Coluna, Valor : Integer;

Begin

Valor := 0;

For Linha := 1 to 3 do

Begin

For Coluna :=1 to 3 do

Begin

Valor := Valor + 2;

Mat[Linha][Coluna] := Valor;

End;

End;

If Linha = Coluna then

Begin

Vet[1] := Mat

Vet[2] := Mat

Vet[3] := Mat

escr(IntToStr(Vet[Mat]);

End;

End;

Minha duvida é a seguinte. Eu preciso usar If ? Da maneira que estou usando ele dará todos os valores no qual linha = coluna, isso me daria mais dados do que preciso. Como eu posso filtrar para que me dê as posições [1,1] [2,2][3,3] ?

[SBits 1]

Utilize a função FORMAT;

Utilizando

Format("[%s,%s]",[intToStr(VARIAVELDACOLUNA),IntToStr(VARIAVELDALINHA)]);