Minggu, 16 Juni 2013

Membuat menu matriks dengan aplikasi pascal 2

Selanjutnya saya akan menampilkan program menu matriks sama seperti program sebelumnya, hanya saja untuk isi menu diubah menjadi untuk perkalian, determinan dan transpose matriks. Untuk Codingnya :



usescrt;
type t=object
m1,m2 : array [1..2,1..2] of integer;
lok : array [1..4] of integer;
procedure input;
proceduretampil;
procedure kali;
proceduredeterminan;
procedure transpose;
end;
var m : t;
i,j,k,pil,b,c : integer;

proceduret.input;
begin
clrscr;
writeln ('-----input matrik-----');
for i:= 1 to 2 do
begin
for j:=1 to 2 do
begin
write ('elemenmatrik [',i,',',j,']: ');
readln (m1[i,j]);
end;
end;
gotoxy (35,1); writeln('-------input matrik II------');
k:=2;
fori := 1 to 2 do
begin
for j:= 1 to 2 do
begin
gotoxy(35,k);
inc (k);
write('elemenmatrik [',i,',',j,']: ');
readln(m2[i,j]);
end;
end;
end;

proceduret.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[2,1]:5,m2[2,2]:5);
readln;
end;

proceduret.kali;
begin
gotoxy (26,12); writeln ('---- hasilperkalianmatrik----');
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 (32,14); writeln (lok[1]:5,lok[2]:5);
gotoxy (32,16); writeln (lok[1]:5,lok[2]:5);
readln;
end;

proceduret.determinan;
begin
gotoxy (28,11); writeln('---determinanmatrik---');
writeln;
lok[1] := m1[1,1] * m1[2,2];
lok[2] := m1[1,2] * m1[2,1];
lok[3] := m2[1,1] * m2[2,2];
lok[4] := m2[1,2] * m2[2,1];
b := lok[1] - lok[2];
c := lok[3] - lok[4];
gotoxy (27,12); writeln (' determinanmatrik I : ',b);
gotoxy (27,14); writeln (' determinanmatrik II : ',c);
readln;
end;

proceduret.transpose;
begin
gotoxy (6,10);
writeln ('---hasil transpose matrik I--');
lok[1] := m1[1,1];
lok[2] := m1[2,1];
lok[3] := m1[1,2];
lok[4] := m1[2,2];
gotoxy (12,12); writeln(lok[1]:5,lok[2]:5);
gotoxy (12,13); writeln(lok[3]:5,lok[4]:5);
gotoxy (42,10); writeln('--hasil transpose matrik II--');
lok[1] := m2[1,1];
lok[2] := m2[2,1];
lok[3] := m2[1,2];
lok[4] := m2[2,2];
gotoxy (49,12); writeln(lok[1]:5,lok[2]:5);
gotoxy (49,13); writeln(lok[3]:5,lok[4]:5);
readln;
end;

begin
repeat
clrscr;
gotoxy (25,1); writeln ('------menu matrik ------');
gotoxy (25,2); writeln ('1. input matrik         ');
gotoxy (25,3); writeln ('2. perkalianmatrik     ');
gotoxy (25,4); writeln ('3. determinanmatrik    ');
gotoxy (25,5); writeln ('4. transpose matrik     ');
gotoxy (25,6); writeln ('5. keluar               ');
gotoxy (25,7); writeln ('========================');
gotoxy (25,8); write ('pilihan [1..5] : '); readln(pil);

casepil of
1 : begin
m.input;
m.tampil;
end;

   2: m.kali;
   3: m.determinan;
   4: m.transpose;
end;
until (pil) = 5;
end.

Tampilan menu yang akan dihasilkan seperti di bawah ini :

 

Untuk pilihan pertama gunanya untuk membuat matriks dengan menginput angka angka elemen matriks yang kita inginkan :

 

Pilihan Kedua gunannya untuk menghasilkan proses perkalian dari matriks yang kita input.

 

Dan pilihan yang ketiga berguna untuk melalukakn proses determinannya.

 

Pilihan Keempat yaitu untuk mentranspose matriks


0 komentar:

Poskan Komentar