MATRIK

PENJUMLAHAN MATRIK ENGAN MATRIK TRANSPOSE MENGGUNAKAN BAHASA PASCAL

program MatriksTranspose;
uses wincrt;
var
x,d:array[1..100,1..100]of integer;
p,l,i,j:integer;
begin
write('MASUKKAN JUMLAH BARIS= ');readln(p);
write('MASUKKAN JUMLAH KOLOM= ');readln(l);
for i:=1 to l do
for j:=1 to p do
readln(x[i,j]);
writeln;
writeln('Bentuk Matriknya');
for i:=1 to l do
begin
for j:=1 to p do
write (x[i,j],' ') ;
writeln;
end;
writeln('Bentuk Matrik transposenya');
for i:=1 to p do
begin
for j:=1 to l do
write (x[j,i],' ') ;
writeln;
end;
writeln ('PROGRAM PENJUMLAHAN');
     for i:=1 to l do
         for j:=1 to p do
             begin
                 d[i,j]:=x[i,j]+x[j,i];
             end;
   
     writeln('Hasil Penjumlahan MATRIK dan MATRIK TRANSPOSE');
     for i:=1 to p do
         begin               
         for j:=1 to l do
             write(d[i,j],' ');
         writeln;
         end;



end.