Program Transpose Matriks

Transpose matrik B dinotasikan dengan simbol B'.  Hasil Transpose diperoleh dengan cara menukar elemen baris menjadi elemen kolom. Artinya baris pertama menjadi kolom pertama, baris kedua menjadi kolom kedua, dan seterusnya.

Proses penukaran dengan cara menukar elemen baris ke i matrik B menjadi elemen kolom ke j. Bila matrik B berukuran mxn, maka B' berukuran nxm dan elemen  yang ke Bij menjadi elemen Bji.

Bentuk Transpose dari Matrik B adalah :
 

Contoh :

Bentuk matriks berubah dari  3 baris menjadi 2 baris dan 2 kolom menjadi  3 kolom atau  Jumlah baris berubah menjadi jumlah kolom dan jumlah kolom menjadi jumlah baris.

Cara Kerja :

• Bentuk Matriks B memperlihatkan bawah untuk mencetak data tiap baris, indeks yg tetap adalah indeks baris (m) sedangkan indeks kolom (n) berubah dari 1 hingga n.
• Bentuk transpose memperlihatkan bawah untuk mencetak data tiap baris, indeks yg tetap adalah indeks kolom (n) sedangkan indeks baris (m) berubah dari 1 hingga m.
• Mencetak tiap data pada Transpose dengan bentuk Bmn, artinya indeks baris dulu baru indeks kolom.

Algoritma Transpose:

Berdasarkan cara kerja di atas maka Algoritma transpose adalah sebagai berikut :

1.  Mulai
2.  Definisikan variabel i,j, B, BT
3.  Input Data Matriks
4.  Cari Transpose :

• Buat perulangan i dari 1 hingga n dan lanjutkan ke langkah 4.b. Jika i>n, lanjutkan ke langkah 5.
• Buat perulangan j dari 1 hingga m dan kerjakan langkah 4.c. Jika j>m, lanjutkan ke langkah 4.a.

• Cetak Transpose B(j,i)

5. Selesai

Flowchart :

Kode Program:

Program TransposeMatrix;
Uses crt;

Var  B,BT: Array [1..10,1..10] of integer;
i,j,baris,kolom :integer;

Begin
     Clrscr;
     {Tentukan Jumlah Baris dan Kolom Matriks B}
     Write('Masukkan Jumlah Baris : ');Readln(baris);
     Write('Masukkan Jumlah Kolom : ');Readln(kolom);
     Writeln;

{Input Data Matriks}
     Gotoxy(1,5);Write('B= ');
     for i := 1 to baris do
         for j := 1 to kolom do
         begin
              Gotoxy(j*5,i*2+3);
              Readln(B[i,j]);
         end;

     {Cari Transpose dan Cetak Hasilnya}
     Gotoxy(20,5);Write('BT=');
     for i := 1 to kolom do
         for j := 1 to baris do
         begin
              Gotoxy(j*5+20,i*2+3);
              Write(B[j,i]);
         end;
readln;
End.

Hasil Program :
 

Setelah memahami program Transpose Matriks, maka anda dapat melanjutkan program Invers Matriks.

Semoga bermanfaat
God bless you all
 
Download artikel ini : Saya mau download

Sponsor :
www.kliklm.com.
Contact  HP/PIN BB : 0811444521/516A2798