Terlebih dahulu ketikkan listing programnya seperti berikut :
uses crt;
type t = object
m1, m2 : array [1..2,1..2] of integer;
lok : array [1..4] of integer;
procedure input;
procedure tampil;
procedure tambah;
procedure kali;
procedure determinan;
procedure transpose;
end;
var m : t;
i,j,k,pil,det1,det2 : integer;
procedure t.input;
begin
clrscr;
writeln (' Input Matrik I');
for i:= 1 to 2 do
begin
for j:= 1 to 2 do
begin
write ('Elemen Matrik [',i,',',j,']:');
readln (m1[i,j]);
end;
end;
gotoxy (35,1); writeln(' Input Matrik II');
k:=2;
for i:= 1 to 2 do
begin
for j:= 1 to 2 do
begin
gotoxy (35,k);
inc (k);
write ('Elemen Matrik [',i,',',j,']: ');
readln (m2[i,j]);
end;
end;
end;
procedure t.tampil;
begin
writeln;
gotoxy (5,7);writeln('* Matrik I *');
gotoxy (5,8);writeln (m1[1,1]:5,m1[1,2]:5);
gotoxy (5,9);writeln (m1[2,1]:5,m1[2,2]:5);
gotoxy (40,7);writeln('* Matrik II *');
gotoxy (40,8);writeln (m2[1,1]:5,m2[1,2]:5);
gotoxy (40,9);writeln (m2[2,1]:5,m2[2,2]:5);
readln;
end;
procedure t.tambah;
begin
gotoxy (25,11);writeln ('Hasil Penjumlahan Matrik');
lok[1] := m1[1,1]+m2[1,1];
lok[2] := m1[1,2]+m2[1,2];
lok[3] := m1[2,1]+m2[2,1];
lok[4] := m1[2,2]+m2[2,2];
gotoxy (30,12);writeln (lok[1]:5,lok[2]:5);
gotoxy (30,13);writeln(lok[3]:5,lok[4]:5);
readln;
end;
procedure t.kali;
begin
gotoxy (4,12);writeln('Hasil Matrik I * Matrik II ');
lok [1] := m1[1,1]*m2[1,1]+m1[1,2]*m2[2,1];
lok [2] := m1[1,1]*m2[1,2]+m1[1,2]*m2[2,2];
lok [3] := m1[2,1]*m2[1,1]+m1[2,2]*m2[2,1];
lok [4] := m1[2,1]*m2[1,2]+m1[2,2]*m2[2,2];
gotoxy (9,13);writeln(lok[1]:5,lok[2]:5);
gotoxy (9,14);writeln(lok[3]:5,lok[4]:5);
gotoxy (40,12);writeln ('Hasil Matrik II * Matrik I');
lok [1] := m2[1,1]*m1[1,1]+m2[1,2]*m1[2,1];
lok [2] := m2[1,1]*m1[1,2]+m2[1,2]*m1[2,2];
lok [3] := m2[2,1]*m1[1,1]+m2[2,2]*m1[2,1];
lok [4] := m2[2,1]*m1[1,2]+m2[2,2]*m1[2,2];
gotoxy (46,13);writeln (lok[1]:5,lok[2]:5);
gotoxy (46,14);writeln(lok[3]:5,lok[4]:5);
readln;
end;
procedure t.determinan;
begin
det1 := m1[1,1] * m1[2,2]-m1[2,1] * m1[1,2];
det2 := m2[1,1]*m2[2,2]-m2[2,1]*m2[1,2];
gotoxy (25,12);writeln('Determinan Matrik I = ',det1);
gotoxy (25,14);writeln('Determinan Matrik II = ',det2);
readln;
end;
procedure t.transpose;
begin
writeln;
gotoxy (7,12);writeln('Hasil Transpose Matrik I');
gotoxy (11,13);writeln (-m1[1,1]:5,m1[2,1]:5);
gotoxy (11,14);writeln (m1[1,2]:5,-m1[2,2]:5);
gotoxy (42,12);writeln('Hasil Transpose Matrik II');
gotoxy (46,13);writeln (-m2[1,1]:5,m2[2,1]:5);
gotoxy (46,14);writeln (m2[1,2]:5,-m2[2,2]:5);
readln;
end;
begin
repeat
clrscr;
gotoxy (25,1);writeln('***** Menu Matrik *****');
gotoxy (25,2);writeln('1. Input Matrik');
gotoxy (25,3);writeln('2. Penjumlahan Matrik');
gotoxy (25,4);writeln('3. Perkalian Matrik');
gotoxy (25,5);writeln('4. Determinan Matrik');
gotoxy (25,6);writeln('5. Transpose Matrik');
gotoxy (25,7);writeln('6. Keluar');
gotoxy (25,8);writeln('************************');
gotoxy (27,9);write('Pilihan [1..6] :');readln (pil);
case pil of
1 : begin
m.input;
m.tampil;
end;
2 : m.tambah;
3 : m.kali;
4 : m.determinan;
5 : m.transpose;
end;
until (pil) = 6;
end.
Berikut ini adalah sebagian contoh tampilannya jika pada program pascalnya dengan command prompt :
Setelah mengetikkan listing programnya, kemudian kita dapat mencoba untuk merunningnya dengan cara klik ctrl-F9 atau memilih menu pilihan yang terdapat pada lebar kerja pascal, jika tidak terdapat kesalahan atau eror, maka tampilannya akan seperti berikut ini :
Tampilan diatas adalah tampilan menu utama, jika kita mengetikkan angka 1, dan kemudian mengetikkan input angkanya, maka tampilan selanjutanya yang akan muncul adalah :
Tekan enter kembali untuk kembali ke menu utama dan melakukan proses operasi perhitungan sesuai dengan menu yang ada.
Jika menekan input angka maka tampilannya adalah :
Jika menekan inputan angka 3 maka tampilannya adalah :
Jika mengetik inputan angka 4, maka akan muncul :
Jika mengetik input angka 5, maka tampilannya adalah seperti berikut :
Jika mengetik angka 6, maka akan keluar dan kembali ke command prompt.