Program matriks pada delphi

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 (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.