METODE NUMERIK

METODE NUMERIK

{program Transpose dan Determinan}
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]);
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;
end.




2 : m.transpos;
3 : m.deter;
end;

until (pil)=4
end.