Program Pascal - Penjumlahan Matrik, Pengurangan Matrik, dan Perkalian Matrik (Array dan Record)

  Source Code Program

program MATRIK; uses crt; type data = array[1..100,1..100] of integer; var matrikI,matrikII : data;     baris,kolom,pil : integer; procedure isimatrik; var  i,j : integer; begin      writeln('MATRIK I');      write('Masukan banyak baris = ');readln(baris);      write('Masukan banyak kolom = ');readln(kolom);      for i:=1 to baris do          for j:=1 to kolom do              begin              gotoxy(j*10,i*5);              readln(matrikI[i,j]);              end;      clrscr;      writeln('MATRIK II');      write('Masukan banyak baris = ');readln(baris);      write('Masukan banyak kolom = ');readln(kolom);      for i:=1 to baris do          for j:=1 to kolom do              begin              gotoxy(j*10,i*5);              readln(matrikII[i,j]);              end; end; procedure jumlahmatrik(m1,m2 : data); var hasil : data;     i,j   : integer; begin      for i:=1 to baris do          for j:=1 to kolom do              begin                  hasil[i,j]:=m1[i,j]+m2[i,j];              end;      clrscr;      writeln('Hasil Penjumlahan MATRIK');      for i:=1 to baris do          for j:=1 to kolom do              begin              gotoxy(j*10,i*5);              write(hasil[i,j]);              end;      readln; end; procedure kurangmatrik(m1,m2 : data); var hasil : data;     i,j   : integer; begin      for i:=1 to baris do          for j:=1 to kolom do              begin                  hasil[i,j]:=m1[i,j]-m2[i,j];              end;      clrscr;      writeln('Hasil Penngurangan MATRIK');      for i:=1 to baris do          for j:=1 to kolom do              begin              gotoxy(j*10,i*5);              write(hasil[i,j]);              end;      readln; end; procedure kalimatrik(m1,m2 : data); var hasil : data;     i,j,z   : integer;     begin      for i:=1 to baris do          for j:=1 to kolom do              begin                   hasil[i,j]:=0;                   for z:=1 to baris do                   hasil[i,j]:=hasil[i,j]+matrikI[i,z]*matrikII[z,j];              end;      clrscr;      writeln('Hasil Perkalian MATRIK');      for i:=1 to baris do          for j:=1 to kolom do              begin              gotoxy(j*10,i*5);              write(hasil[i,j]);              end;      readln; end; BEGIN    repeat      Clrscr;      writeln;      writeln;      writeln('--->>> MENU UTAMA <<<---');      writeln;      writeln('[1] Penjumlahan Matrik');      writeln('[2] Pengurangan Matrik');      writeln('[3] Perkalian Matrik');      writeln('[4] Exit Program');      writeln;      write('Pilihan = ');readln(pil);      clrscr;      case pil of      1 : begin               isimatrik;               jumlahmatrik(matrikI,matrikII);          end;      2 : begin               isimatrik;               kurangmatrik(matrikI,matrikII);          end;      3 : begin               isimatrik;               kalimatrik(matrikI,matrikII);          end;      4 : ;      end;    until pil=4; end.