Source Code :
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 Matriks I : ');
for i:= 1 to 2 do
begin
for j := 1 to 2 do
begin
write ('Elemen Matriks [',i,',',j,']:');
readln (m1[i,j]);
end;
end;
gotoxy (35,1); writeln('Input Matriks II : ');k:=2;
for i:= 1 to 2 do
begin
for j := 1 to 2 do
begin
gotoxy (35,k);inc (k);
write ('Elemen Matriks [',i,',',j,']: ');
readln (m2[i,j]);
end;
end;
end;
procedure t.tampil;
begin
writeln;
writeln(' * Matriks I * ');
writeln (m1[1,1]:5,m1[1,2]:5);
writeln (m1[2,1]:5,m1[2,2]:5);
gotoxy(35,7);writeln(' * Matriks II * ');
gotoxy(35,8);writeln(m2[1,1]:5,m2[1,2]:5);
gotoxy(35,9);writeln(m2[2,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 Matriks I = ',det1);
writeln (' Determinan Matriks II = ',det2);
readln;
end;
procedure t.transpos;
begin
writeln;writeln (' * Transpose Matriks 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 Matriks');
gotoxy(25,3);writeln ('2. Transpose Matriks');
gotoxy(25,4);writeln ('3. Determinan Matriks');
gotoxy(25,5);writeln ('4. Keluar');
gotoxy(25,6);writeln ('<-------------------------------->');
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.
Output :
Tidak ada komentar:
Posting Komentar