Steam ID : littlehox

Rabu, 03 Juni 2015

Program Matriks Determinan dan Transpose pd Turbo Pascal

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