respuesta
Publicado por
jorge (1 intervención) el 18/10/2003 01:54:02
hola loca
con esto te ayudo con lo que pides chao
esta clarito.............
program matriz;
type matriz=array[1..2,1..2]of integer;
var a,b,c:matriz;
d,opcion:integer;
salir:boolean;
i,j,k:integer;
valor:integer;
function menu:integer;
var op:integer;
begin
writeln('1.- suma de matriz');
writeln('2.- multiplicacion dematriz');
writeln('3.- traza de matriz');
writeln('4.- traspuesta de un matriz');
writeln('5.- salir');
repeat
write('seleccione una opcion: ');
readln(op);
until op in [1..5];
menu:=op;
end;
procedure ingreso(var x:matriz);
begin
writeln('ingrese los valores de la matriz');
for i:=1 to 2 do
for j:=1 to 2 do
begin
write('registro [',i,',',j,'] = ');
readln(valor);
x[i,j]:=(valor);
end;
end;
procedure suma(x,y:matriz;var z:matriz);
begin
for i:=1 to 2 do
for j:=1 to 2 do
begin
z[i,j]:=x[i,j]+y[i,j];
end;
end;
procedure traspuesta(x:matriz;var z:matriz);
begin
for i:=1 to 2 do
for j:=1 to 2 do
begin
z[i,j]:=x[j,i];
end;
end;
procedure multiplicac