Programación General > Pascal

 Mas matrices

(1/1)

pegui:
Dado un vector construir la matriz.
1 2 3 4 5 6 7 8 9 10

1 2 4 7       donde de la diagonal para abajo son los
2 3 5 8       números del array, quedando una matriz simetrica
4 5 6 9
7 8 9 10

PROGRAM Matriz;
Type
tMatriz=ARRAY [1..N,1..M]OF Integer;
tVector=ARRAY [1..K]OF Integer;
Var
Matriz:tMatriz;
Vector:tVector;
PROCEDURE Diagonal (Vector:tVector;VAR Matriz:tMatriz)
VAR
I,J,Z:Integer;
BEGIN
FOR I:=1 TO K DO {recorro vector}
FOR J:=1 TO N DO {Filas}
FOR Z:=1 TO M DO {Columnas}
Vector:= Matriz[N,M]
END;

pero asi no me la escribe como yo quiero. Como hago??

Enko:
hola, no logro entender bien que es lo que te piden.
Podrías hacer un ejemplo un poquitin más claro?

pegui:
pues lo que me piden es que del vector que me dan lo pase a una matriz, es decir me dan un vector con: 1,2,3,4,5,6,7,8,9,10 osea un array de 10 posiciones y lo meta en la matriz de esta manera
1
2 3
4 5 6
7 8 9 10
y supuestamente al hacer esto la matriz queda simetrica y se convierte en:
1 2 4 7
2 3 5 8
4 5 6 9
7 8 9 10

Enko:

--- Código: Delphi --- var   matriz: array[1..4, 1..4] of byte;   vector: array[1..10] of byte;   i,j,k: integer;begin   //inicializamos el vector y la matriz   //leemos los valores del vector   k := 1;   for i:=1 to 4 do      for j:=1 to i do      begin          matriz[i,j] := vector[k];          k := k + 1;       end;end.      No lo tengo probado, pero deberá funcionar si no me falla la cabeza.
Saludos

Navegación

[0] Índice de Mensajes