Algoritma : Contoh Penggabungan Matrik Menggunakan Prosedur

Kasus : Ada 2 buah larik dengan nama A[] berjumlah n dan B[] berjumlah m.Gabungkan kedua larik tsb menjadi sebuah larik bernama C[] dengan jumlah n+m.

Algoritma Penggabungan_Larik;
{Menggabungkan larik A[] dan B[] menjadi larik C[]}
Deklarasi
integer n,m,o,index;
integer A[n],B[m],C[o];
prosedur Merge_Array (input integer A[], input integer n,
input integer B[], input integer m,
output integer C[], output integer o);
Deskripsi
write("Masukkan jml larik A[] : ");
read(n);
for (index=1 to n step 1) do
write("Elemen A ke-",index ": ");
read(A[index]);
end for;
write("Masukkan jml larik B[] : ");
read(m);
for (index=1 to m step 1) do
write("Elemen B ke-",index ": ");
read(B[index]);
end for;
Merge_Array(n,m,A[],B[],o,C[]);
write("Hasil Merge A[] dan B[]");
write("=======================");
write("Nilai elemen C ke-",index ": ",C[index]);



prosedur Merge_Array (input integer A[], input integer n,
input integer B[], input integer m,
output integer C[], output integer o);
Deklarasi
integer index;
Deskripsi
o <- n+m;
for (index=1 to n step 1) do
C[index] <- A[index];
end for;
for (index=n+1 to o step 1) do
C[index] <- B[index-n];
end for;