contoh program pascal matriks

Algoritma dengan bahasa sehari-hari:

1. Mulai
2. Ketikan angka 1 untuk melanjutkan program
3. Ketikan angka 2 untuk membatalkan program
4. Jika angka 2 dimasukan maka program dibatalkan
5. Jika angka 1 dimasukan maka program dijalankan
   • Penentuan ordo matrik I dijalankan
   • Masukan banyak baris matrik
   • Masukan banyak kolom matrik
   • Input nilai sampai semua baris dan kolom terpenuhi
   • Penentuan ordo matrik II dijalankan
   • Masukan banyak baris matrik II
   • Masukan banyak kolom matrik II
   • Input nilai sampai semua baris dan kolom terpenuhi
   • Hasil
6. Selesa
7. Kode Program 
8. program matrik;
   
   uses wincrt;
   type data = array[1..5,1..5] of integer;
   var
   matrikI,matrikII : data;
   baris,kolom,pil : integer;procedure isi;
   var i,j :integer;
   begin
   writeln(‘Penentuan ORDO MATRIK I’);
   write(‘Masukan banyak baris matrik I : ‘);readln(baris);
   write(‘Masukan banyak kolom matrik I : ‘);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(‘Penentuan ORDO MATRIK II’);
   write(‘Masukan banyak baris matrik II : ‘);
   readln(baris);
   write(‘Masukan banyak kolom matrik II : ‘);
   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 gagal;
   begin
   writeln(‘Program Dibatalkan’);
   end;procedure kali(a1,a2 : 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’);
   for i:=1 to baris do
   for j:=1 to kolom do
   begin gotoxy(j*10,i*5);
   write(hasil[i,j]);
   end;
   end;
   begin
   writeln(‘MENU’);
   writeln(‘Ketik(1) Perkalian Matrik’);
   writeln(‘ketik(2) Batal Program’);
   write(‘Pilihan = ‘);
   readln(pil);
   clrscr;
   case pil of
   1:begin
   isi;
   kali(matrikI,matrikII);
   end;
   2:begin
   gagal;
   end;
   end;
   end.