Assalamualaikum
semuanyaa,, jumpa lagi nih nulis blog lagi nih.. Malem ini Ratih akan
posting tentang aplikasi matriks dengan menggunakan delphi. Masih sama
dengan blog lain, blog ini berisi tugas yang diberikan Bapak Dosen Hedi Ruswanto. S, Kom Jurusan Teknik Informatika di STIMIK YADIKA BANGIL.
Oh
ya temen-temen,,, Udah pada tau pasti yang namanya matriks itu apa??
Hah belum tau?? Masa' sih.. yauda Ratih akan jelasin sedikit aja apa
yang dimaksud dengan matriks..
Matriks dalam matematika adalah sekumpulan bilangan angka atau simbol berbentuk persegi yang disusun berdasar baris dan kolom. (Wikipedia, 2013)
Matriks
memiliki dua komponen yaitu baris dan kolom. Dalam penulisan baris dan
kolom biasanya menggunakan indeks untuk melakukan suatu operasi pada
matriks tersebut. Matriks memiliki beberapa macam jenis dalam
pengoperasiannya, biasanya dibagi menjadi matriks transpose (At), matriks invers (A-1), matriks penjumlahan, matriks perkalian, matriks identitas (I), matriks pengurangan, matriks determinan (D).
Dalam
mengoperasikan suatu matriks memiliki beberapa syarat, misalkan untuk
pengurangan dan penjumlahan matriks bentuk atau ordo antara kedua
matriks haruslah sama yang selanjutnya penjumlahan atau pengurangan
dilakukan operasi pada anggota/elemen yang seletak.
Sedangkan,
untuk perkalian matriks nilai ordo kedua matriks memiliki syarat bahwa
jumlah dari baris matriks A harus sama dengan jumlah kolom pada matriks B
Hmmmm,,
itu tadi sekilas penjelasan tentang matriksnya, selanjutnya Ratih akan
bahas mengenai pembuatan aplikasi dengan delphi mengenai penjumlahan,
perkalian, dan transpose dari masing-masing matriksnya..
mau tau??? Ini nih cara dan kodingan dengan delphi 7 (sudah bisa jalan looh...) :)
Study Kasus 1 :
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
mat:Array[1..10,1..10]of integer;
x,y:integer;
begin
for x:=1 to 5 do
begin
for y:=1 to 5 do
begin
mat[x,y]:=0;
if x>=y then mat[x,y]:=x;
write (mat[x,y]:5);
end;
writeln;
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
{$APPTYPE CONSOLE}
uses
SysUtils;
var
mat:Array[1..10,1..10]of integer;
x,y:integer;
begin
for x:=1 to 5 do
begin
for y:=1 to 5 do
begin
mat[x,y]:=0;
if x>=y then mat[x,y]:=x;
write (mat[x,y]:5);
end;
writeln;
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
Study Kasus 2 :
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
mat:Array[1..10,1..10]of integer;
x,y:integer;
begin
for x:=1 to 5 do
begin
for y:=1 to 5 do
begin
if x+y<=6 then write ('*':5) else
write ('');
end;
writeln;
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
{$APPTYPE CONSOLE}
uses
SysUtils;
var
mat:Array[1..10,1..10]of integer;
x,y:integer;
begin
for x:=1 to 5 do
begin
for y:=1 to 5 do
begin
if x+y<=6 then write ('*':5) else
write ('');
end;
writeln;
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
Study Kasus 3 :
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
mat:Array[1..10,1..10]of integer;
x,y:integer;
begin
for x:=1 to 5 do
begin
for y:=1 to 5 do
begin
mat[x,y]:=0;
if x+y=6 then mat[x,y]:=1;
write (mat[x,y]:5);
end;
writeln;
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
{$APPTYPE CONSOLE}
uses
SysUtils;
var
mat:Array[1..10,1..10]of integer;
x,y:integer;
begin
for x:=1 to 5 do
begin
for y:=1 to 5 do
begin
mat[x,y]:=0;
if x+y=6 then mat[x,y]:=1;
write (mat[x,y]:5);
end;
writeln;
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
Study Kasus 4 :
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
A,B,C:ARRAY[1..10,1..10] OF INTEGER;
X,Y,KOL,BAR:INTEGER;
begin
WRITE('MASUKKAN JUMLAH KOLOM=');READLN(KOL);
WRITE('MASUKKAN JUMLAH BARIS=');READLN(BAR);
WRITELN;
WRITELN('MASUKKAN DATA MATRIKS A');
for X :=1 to BAR do
BEGIN
for Y :=1 to KOL do
BEGIN
WRITE ('MATRIKS A [',X,':',Y,']=');
READLN (A[X,Y]);
END;
END;
WRITELN('MASUKKAN DATA MATRIKS B');
for X :=1 to BAR do
BEGIN
for Y :=1 to KOL do
BEGIN
WRITE ('MATRIKS B [',X,':',Y,']=');
READLN (B[X,Y]);
END;
END;
for X :=1 to BAR do
BEGIN
for Y :=1 to KOL do
BEGIN
C[X,Y]:=A[X,Y]+B[X,Y];
END;
END;
for X :=1 to BAR do
BEGIN
for Y :=1 to KOL do
BEGIN
WRITE(C[X,Y]:6);
END;
WRITELN;
END;
READLN;
end.
{$APPTYPE CONSOLE}
uses
SysUtils;
var
A,B,C:ARRAY[1..10,1..10] OF INTEGER;
X,Y,KOL,BAR:INTEGER;
begin
WRITE('MASUKKAN JUMLAH KOLOM=');READLN(KOL);
WRITE('MASUKKAN JUMLAH BARIS=');READLN(BAR);
WRITELN;
WRITELN('MASUKKAN DATA MATRIKS A');
for X :=1 to BAR do
BEGIN
for Y :=1 to KOL do
BEGIN
WRITE ('MATRIKS A [',X,':',Y,']=');
READLN (A[X,Y]);
END;
END;
WRITELN('MASUKKAN DATA MATRIKS B');
for X :=1 to BAR do
BEGIN
for Y :=1 to KOL do
BEGIN
WRITE ('MATRIKS B [',X,':',Y,']=');
READLN (B[X,Y]);
END;
END;
for X :=1 to BAR do
BEGIN
for Y :=1 to KOL do
BEGIN
C[X,Y]:=A[X,Y]+B[X,Y];
END;
END;
for X :=1 to BAR do
BEGIN
for Y :=1 to KOL do
BEGIN
WRITE(C[X,Y]:6);
END;
WRITELN;
END;
READLN;
end.
