Más matrices
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 simétrica
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 así no me la escribe como yo quiero. ¿Cómo hago?
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 simétrica
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 así no me la escribe como yo quiero. ¿Cómo hago?
1 Respuesta
Respuesta de taquimon
1
No se si todavía te sirva esto.
program matriz_vector;
const
N=4;
M=4;
L=10;
type
matriz = array[1..N,1..M] of integer;
vector = array[1..L] of integer;
var
i,j,k,x:Integer;
v:vector;
mat:matriz;
begin
writeln('vector: ');
for i:=1 to L do
begin
v:=i;
write(v,' ');
end;
writeln;
writeln('La Matriz: ');
{llenamos la matriz con los valores del vector}
for j:=1 to N do
begin
x:=j;
for k:=1 to M do
begin
mat[j][k]:=v[x];
x:=x+k;
write(mat[j][k],' ');
end;
writeln;
end;
readln;
end.
program matriz_vector;
const
N=4;
M=4;
L=10;
type
matriz = array[1..N,1..M] of integer;
vector = array[1..L] of integer;
var
i,j,k,x:Integer;
v:vector;
mat:matriz;
begin
writeln('vector: ');
for i:=1 to L do
begin
v:=i;
write(v,' ');
end;
writeln;
writeln('La Matriz: ');
{llenamos la matriz con los valores del vector}
for j:=1 to N do
begin
x:=j;
for k:=1 to M do
begin
mat[j][k]:=v[x];
x:=x+k;
write(mat[j][k],' ');
end;
writeln;
end;
readln;
end.
