Transpose Matrik dengan Bahasa Pascal

Halo Sahabat Edushare,
Kali ini saya akan berbagi source code atau tutorial membuat Tanspose Matrik dengan bahasa pemograman pascal. Dalam program kali ini saya menggunakan array dua dimensi karena matrik bentukya terdiri atas baris dan kolom. bagi temen-temen yang belum mengerti silahkan membaca artikel di blog ini tentang array dua dimensi dulu biar paham. Selain diatas saya menggunakan perulangan jenis For do.
Ok,langsung saja silahkan download source codenya

var
a:array [1..10,1..10] of integer;
b,k,i,j,l,m:integer;
begin
writeln('masukkan jumlah baris:');
read (b);
writeln('masukkan jumlah kolom:');
read(k);
for i:= 1 to b do begin
 for j:= 1 to k do begin
        read (a[i,j]);
         if (j=k) then
                writeln;
         end;
        end;
for m:= 1 to b do begin
 for l:= 1 to k do begin
        write (a[l,m],' ');
        if (l=k) then
        writeln;
        end;
        end;
writeln('=========Terimakasih telah Menggunakan Aplikasi ini===========');
writeln( '--------------------by : Sugeng Wahyudi---------------------');
readln;
end.

Download source code disini

Klik Disini untuk download 

 

ANALISIS

b--> variabel buat jumlah baris
k--> variabel jumlah kolom

For(input)
Karena jumlah baris yang dimasukkan adalah b maka fungsi For menggunakan b sedangkan kolom menggunakan For k sbg kolo,. Ingat For disini adalah For bersarang sehingga sewaktu b=1 maka akan melakukan fungsi  for j:= 1 to k do sebanyak kolomya dan seterusya sampai nilai b sesuai dengan yang di input. Dengan ini saya bermaksud untuk membaca data yang dimasukkan pengguna ke dalam array sehingga bisa dimengerti komputer.

For (Output)
Setelah proses penginputan data selesai, selanjutnya kita proses sekalian dengan menampilkan di monitor karena ini hanya mengubah urutan maka kita langsung memanipulasi dalam write saja dengan menukar baris menjadi kolom, dan kolom menjadi baris yaitu fungsinya write (a[l,m],' '); yang merupakan kebalikan dari read (a[i,j]); .Sehingga secara otomatis kolom dan baris akan tertukar sesuai dengan konsep Tranpose Matrik.

Kalau mau bertanya lebih lanjut silahkan kontak saya
email:sugengw07@gmail.com
fb     :  https://www.facebook.com/Sugengdream