![1. Mulai
2. Definisikan variabel i,j, B, BT
3. Input Data Matriks
4. Cari Transpose :
a. Buat perulangan i dari 1 hingga n. Jika i>n, lanjutkan langkah 5.
b. Buat perulangan j dari 1 hingga m. Jika j>m, lanjutkan langkah 4.a
c. 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
Selesai
Cetak A (I,j)
For I := 1 to m
do
For j := 1 to n do
Mulai
Var : I,J,M,N,
Input A (I,j)
For I := 1 to m
do
For j := 1 to n do
M, N](https://image.slidesharecdn.com/programtransposematriks-150401172247-conversion-gate01/85/Program-transpose-matriks-2-320.jpg)
![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, maka anda dapat melanjutkan
program Invers Matriks.](https://image.slidesharecdn.com/programtransposematriks-150401172247-conversion-gate01/85/Program-transpose-matriks-3-320.jpg)
Program transpose matriks
- 1. Program Transpose Matriks Transpose matrik B dinotasikan dengan simbol BT. 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 BT berukuran nxm dan elemen yang ke Bij menjadi elemen Bji. Bentuk Transpose dari Matrik B adalah : Contoh : B = 2 5 4 8 3 9 Transpose B’ = 2 4 3 5 8 9 Bentuk matriks berubah dari 3 baris menjadi 2 baris dan 2 kolom menjadi 3 kolom atau Jumlah baris berubah 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 :
- 2. 1. Mulai 2. Definisikan variabel i,j, B, BT 3. Input Data Matriks 4. Cari Transpose : a. Buat perulangan i dari 1 hingga n. Jika i>n, lanjutkan langkah 5. b. Buat perulangan j dari 1 hingga m. Jika j>m, lanjutkan langkah 4.a c. 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 Selesai Cetak A (I,j) For I := 1 to m do For j := 1 to n do Mulai Var : I,J,M,N, Input A (I,j) For I := 1 to m do For j := 1 to n do M, N
- 3. 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, maka anda dapat melanjutkan program Invers Matriks.
- 4. Semoga bermanfaat God bless you all Sponsor : www.kliklm.com. Contact HP/PIN BB : 0811444521/516A2798