Asignar
Publicado por Ariel (4 intervenciones) el 24/11/2007 14:54:28
hola a todos ,mi consulta es la siguente:
como asigno un vector en una matriz
para q se mas clara aca les mando el ejercicio , porq lo q me pedia erra realizar con una funccion de la diagonal principal asignando un vector y luego realizar su suma:
Program Matriz1;
Uses Crt;
Type
Matriz=array [1..20,1..20] of real; {declaracion de la matriz}
Var
mat:Matriz;
f,c,i,j,h:integer;
Begin
clrscr;
repeat {Comprueba la cantidad de Filas}
begin
writeln('Ingrese Cantidad de ');
write('Filas de la Matriz : ');
read(f);
end;
until ((f > 0) and (f <= 20));
repeat {Comprueba la cantidad de Columnas}
begin
writeln('Ingrese Cantidad de ');
write('Columnas de la Matriz: ');
read(c);
end;
until ((c > 0) and (c <= 20));
for i:=1 to f do {Se carga la Matriz}
for j:=1 to c do
begin
write('Ingrese Elemento [',i,' ',j,']: ');
read(mat[i,j]);
end;
writeln('Toque Cualquier Tecla para salir');
readkey;
end.
como asigno un vector en una matriz
para q se mas clara aca les mando el ejercicio , porq lo q me pedia erra realizar con una funccion de la diagonal principal asignando un vector y luego realizar su suma:
Program Matriz1;
Uses Crt;
Type
Matriz=array [1..20,1..20] of real; {declaracion de la matriz}
Var
mat:Matriz;
f,c,i,j,h:integer;
Begin
clrscr;
repeat {Comprueba la cantidad de Filas}
begin
writeln('Ingrese Cantidad de ');
write('Filas de la Matriz : ');
read(f);
end;
until ((f > 0) and (f <= 20));
repeat {Comprueba la cantidad de Columnas}
begin
writeln('Ingrese Cantidad de ');
write('Columnas de la Matriz: ');
read(c);
end;
until ((c > 0) and (c <= 20));
for i:=1 to f do {Se carga la Matriz}
for j:=1 to c do
begin
write('Ingrese Elemento [',i,' ',j,']: ');
read(mat[i,j]);
end;
writeln('Toque Cualquier Tecla para salir');
readkey;
end.
Valora esta pregunta


0