Teknik Informatika: Program Matriks Pada Delphi

Program matriks pada delphi

Assalamualaikum semuanyaa,, jumpa lagi nih nulis blog lagi nih..

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 (A^t), 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.

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.

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.

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.