domingo, 21 de enero de 2007

Division matrices en pascal

División de dos matrices en pascal.
Para el uso de este procedmiento son necesarios los siguientes procedimientos.
Matriz Inversa
Multiplicar matrices

Dado la siguiente declaración de tipos:
type
tDimension = 1..100;
eMatriz(f,c: tDimension) = array [1..f,1..c] of real;

tRango = record
f,c: tDimension value 1;
end;

tpMatriz = ^eMatriz;


procedure Dividir(m1, m2: tpMatriz; var resul: tpMatriz);
var inversa: tpMatriz;
begin
{ Calcular inversa de m2 }
new (inversa, m2^.f, m2^.c);
MatrizInversa(m2,inversa);

Multiplicar(m1,inversa,resul);
end;

2 comentarios:

Anónimo dijo...

Gracias por lod tutoriales, esta muy bueno! :):):):):):)

CCM dijo...

si quieren una pagina copn numerosos ejemplos de programas desarrollados en pascal o C: http://cypascal.blogspot.com.es/

SAlud!