RE:suma y producto de matrices
este es el programa
{Programa para Sumar y Multiplicar Matrices de orden nXn}
PROGRAM opera_Mat;
USES Crt;
CONST n=10;
TYPE Mat=ARRAY[1..n,1..n] OF Real;
VAR A,B,C:Mat; Suma,Producto:Boolean;
RA,RB,CA,CB,RX,CX:Integer;
PROCEDURE Encabezado;
VAR contador:integer;
BEGIN
ClrScr;
GOTOXY(23,2);
Writeln('SUMA Y MULTIPLICACION DE MATRICES');
FOR contador:=1 TO 80 DO
write('='); Writeln
END;
PROCEDURE Dim;
BEGIN
Writeln('DIMENSIONES DE LA MATRIZ A'); Writeln;
Write('Numero de renglones ==> '); Readln(RA);
Write('Numero de columnas ==> '); Readln(CA);
Writeln; Writeln;
Writeln('DIMENSIONES DE LA MATRIZ B'); Writeln;
Write('Numero de renglones ==> '); Readln(RB);
Write('Numero de columnas ==> '); Readln(CB);
END;
PROCEDURE CSuma;
BEGIN
IF ((RA <> RB) OR (CA <> CB)) THEN
BEGIN
Writeln;
Writeln('Las Matrices [A] y [B] son Incompatibles para la Suma');
Suma:=false
END
ELSE
Suma:=true
END;
PROCEDURE CProd;
BEGIN
IF CA <> RB THEN
BEGIN
Writeln;
Writeln('Las matrices A y B son Incompatibles para la multiplicacion');
Producto:=false
END
ELSE
Producto:=true
END;
PROCEDURE Lee(NM:char; Var X1:Mat; VarRX,CX:Integer);
VAR
i,j :integer;
begin
Writeln; Writeln('ELEMENTOS DE LA MATRIZ : ',NM); writeln;
for i:=1 to RX DO
for j:=1 to CX DO
Begin
write('Escriba el elemento ',NM,' [',i,',',j,'] = ');
readln(X1[i,j])
end
end;
PROCEDURE Imprime(NM:char; X1:Mat; RX,CX:Integer);
var i,j:integer;
BEGIN
Writeln;
Writeln('MATRIZ',NM);
FOR i:=1 TO RX DO
BEGIN
FOR j:=1 TO CX DO
Write(X1[i,j]:16:1,' '); Writeln;
END;
Writeln;
Write('Oprima una tecla para continuar.....'); readkey;
Writeln
END;
PROCEDURE SumaM;
Var
i,j :integer;
begin
writeln; writeln('la suma de A y B es:');
FOR i :=1 TO RA DO
FOR j :=1 TO CA DO
C[i,j] :=A[i,j] + B[i,j]
end;
BEGIN
encabezado;
Dim;
CSuma;
CProd;
IF Suma or Producto THEN
Begin
Lee('A',A,RA,CA); Lee('B',B,RB,CB);
Imprime('A',A,RA,CA); Imprime('B',B,RA,CB);
IF Suma Then
Begin
SumaM;
Imprime('C',C,RA,CB);
End;
IF Producto THEN
Begin
ProductoM;
Imprime('D',D,RA,CB);
End
End
END.
.... necesito saber komo hacer ke la entrada de datos para las dimenciones y elementos de las matrices A y B que esten en las mismas lineas.. y que las matrices resultantes de C(suma) y D(producto) tambien esten en las mimas lineas ..
gracias =)