PENJUMLAHAN MATRIK DAN TRANSPOSE MATRIK program Matriks; uses wincrt; type matrik=array[1..10,1..10]of integer; var a,b,d,x :matrik; p,l,i,j,pilih:integer; again: char; begin writeln ('MATRIK A'); write('masukkan jumlah baris= ');readln(p); write('masukkan jumlah kolom= ');readln(l); for i:=1 to l do for j:=1 to p do read(a[i,j]); write; writeln('Bentuk Matriknya'); for i:=1 to l do begin for j:=1 to p do write (a[i,j],' ') ; writeln; end; writeln ('MATRIK B'); write('masukkan jumlah baris= ');readln(p); write('masukkan jumlah kolom= ');readln(l); for i:=1 to l do for j:=1 to p do read(b[i,j]); write; writeln('Bentuk Matriknya'); for i:=1 to l do begin for j:=1 to p do write (b[i,j],' ') ; writeln; end; begin write ('PROGRAM PENJUMLAHAN'); for i:=1 to l do for j:=1 to p do begin d[i,j]:=a[i,j]+b[i,j]; end; clrscr; writeln('Hasil Penjumlahan MATRIK'); for i:=1 to p do for j:=1 to l do begin gotoxy(j*10,i*5); write(d[i,j]); end; writeln; end; begin writeln ('PROGRAM TRANSPOSE'); write('masukkan baris= ');readln(p); write('masukkan 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; end; end.