Program Pascal Menu Transpose

        ilab oh oh ilab,,,setiap senin ilab yang membuat diri ini stress ditambah dengan ikut matakuliah kelas atas,(sok coba-coba,hehhe).Pertemuan tang paling enak ilab yah pas ngerjain program transpose matriks ini,soalnya gampang,gk perlu cape-cape ngetik di pascal tapi langsung aja copy-paste di notepad++ trus tinggal disave pakai extention .PAS .Tapi jangan ditiru yah cara ini,,gk baik,hehhe

oke langsung aja nh program pascal-nya.Insyaallah berhasil deh,,

uses crt;

type t = object
m1,m2 : array [1..2,1..2] of integer;
lok : array [1..4] of integer;
procedure input;
procedure deter;
procedure tampil;
procedure transpos;
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]);
11
end;
end;
end;

procedure t.tampil;
begin
writeln;
writeln(‘ *Matrik I*’);
writeln (m1[1,1]:5,m1[1,2]:5);
writeln (m1[2,1]:5,m1[2,2]:5);
gotoxy(35,7);writeln(‘* Matrik II *’);
gotoxy (35,8);writeln (m2[1,1]:5,m2[1,2]:5);
gotoxy (35,9);writeln (m2[1,1]:5,m2[2,2]:5);
readln;
end;

procedure t.deter;
begin
det1 := (m1[1,1]*m1[2,2])-(m1[1,2]*m1[2,1]);
det2 := (m2[1,1]*m2[2,2])-(m2[1,2]*m2[2,1]);
writeln;
writeln (‘Determinan Matrik I = ‘,det1);
writeln (‘Determinan Matrik II = ‘,det2);
readln;
end;

Procedure t.transpos;
begin
writeln;writeln (‘* Transpose Matrik I *’);
writeln(m1[1,1]:5,m1[2,1]:5);
writeln(m1[1,2]:5,m1[2,2]:5);
gotoxy(35,9);writeln(‘* Transpose Matrik II *’);
gotoxy(35,10);writeln(m2[1,1]:5,m2[2,1]:5);
gotoxy(35,11);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. Transpose Matrik’);
gotoxy(25,4);writeln (’3. Determinan Matrik’);
gotoxy(25,5);writeln (’4. Keluar’);
gotoxy(27,7);write (‘pilihan [1..4] :’);
readln(pil);

case pil of
1 : begin
m.input;
m.tampil;
end;
2 : m.transpos;
3 : m.deter;
end;
until (pil)=4
end.