Contoh Program Swap dalam ARRAY

sebelumnya  perna dibahas tentang penyimpanan data dengan array, dimana array mampu menampung data lebih dari satu data dengan tipe data yang semuanya sama, salah satu operasi dalam array adalah operasi tranversal atau operasi dimana user melakukan kunjungan terhadap indeks atau alamat ayang ada didalam array satu-persatu, dalam operasi tranversal tersebut dibagi menjadi beberapa operasi lain diantarnya adalah melakukan penjumlahan nilai dalam array, mengurutkan dst..

salah satu contoh program transversal kali ini adalah memindahkan data dari satu variabel kevariabel lainnya secara bergantian, misalnya memindahkan isi gelas A ke gelas B, dan  isi gelas B ke gelas A, istilah ini sering kita kenal dengan istilah SWAP.

SWAP

jika di ilustrasikan dalam sebuah variabel maka misalkan Nilai awal masing-masing variabel A=32 dan B=41 maka ketika terjadi proses swap nilai keduannya berubah menjadi A=41 dan B=32

Metode SWAP dalam pascal dapat di tulis sebagai berikut:

// Sugeng-Piksi Ganesa
//Desember 2013
Type
data=array[1..10] of integer;Var
NilaiA,NilaiB,NilaiC :data;
j,A,B,C,i :Integer;begin // awal program
//Masukkan Data untuk SWAP 1data
writeln(‘Nama: SUGENG/10210800/TIK 2006’);
writeln(‘=========================================’);
writeln();
write(‘Masukkan Nilai A = ‘);
read(A);
write(‘Masukkan Nilai B = ‘);
readln(B);writeln(‘Hasil Swap Adalah = ‘);
//Proses Algoritma
C:=B;
B:=A;
A:=C;

// Cetak Hasil proses
writeln(‘Nilai A sekarang = ‘,A);
writeln(‘Nilai B sekarang = ‘,B);
writeln();

//Masukkan Data untuk SWAP data ARRAY
//–>Untuk Array A
writeln(‘Masukkan Data Array A’);
for i:=1 to 10 do
begin
write(‘NilaiA ke-‘,i,‘= ‘);
readln(NilaiA[i]);
end;
writeln();
writeln();
//–>INPUT Untuk Array B
writeln(‘Masukkan Data Array B’);
for i:=1 to 10 do
begin
write(‘NilaiB ke-‘,i,‘= ‘);
readln(NilaiB[i]);
end;

//Proses SWAP ARRay A to C
for i:=1 to 10 do
begin
NilaiC[i]:=NilaiA[i];
end;
//Proses SWAP ARRay B to A
for i:=1 to 10 do
begin
NilaiA[i]:=NilaiB[i];
end;

//Proses SWAP ARRay C to B
for i:=1 to 10 do
begin
NilaiB[i]:=NilaiC[i];
end;
writeln();
//Cetak hasil SWAP
writeln(‘Hasil SWAP Array A dan Array B :’);
for i:=1 to 10 do
begin
writeln(‘NilaiA ke-‘,i,‘= ‘, NilaiA[i]);
end;
writeln();
for i:=1 to 10 do
begin
writeln(‘NilaiB ke-‘,i,‘= ‘, NilaiB[i]);
end;

readln(); //Berfungsi Untuk menahan layar keluaran
end. //Akhir program
?>

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s