Contoh soal pertukaran dua variable :
Temukan logika dan buatlah algoritma beserta program untuk menukarkan dua bilangan pada variable, dengan catatan dua bilangan tersebut di masukkan oleh user !


Untuk melakukan 2 pertukaran bilangan pada suatu variable kita membutuhkan wadah atau variable tambahan.

Logikanya : sama seperti kita akan menukarkan 1 gelas air susu dengan 1 gelas air kopi kita anggap gelas A berisi air susu dan gelas B berisi air kopi, gelas yang mula mula berisi air susu ingin menjadi air kopi dan juga sebaliknya gelas yang mula mula berisi kopi ingin menjadi berisikan air susu.
Untuk menukarkannya tentu kita membutuhkan gelas tambahan sebagai penampung salah satu air yang akan ditukar, kita anggap gelas C yang akan menampung sementara. Benar begitu kan ? Kalo tidak ada gelas tambaha mau bagaimana hayoh tuh nukerinnya ? :D

A ← Air Susu {mula mula gelas A berisi Air Susu}

B ← Air Kopi {mula mula gelas B berisi Air Kopi}

C ← A {gelas C diisi Air Susu, gelas A menjadi kosong}

A ← B {gelas A diisi Air Kopi, gelas B menjadi kosong}

Dan Program Pascal pertukaran dua bilangan variable sebagai berikut :

program pertukaranduavariabel;
{ I.S. : mengubah variabel angka 1 menjadi variabel angka 2 dan variabel angka 2 menjadi variabel angka 1 }
{ F.S. : menampilkan output angka 1 dan angka 2 yang bertukar dengan variabel bantuan }
uses crt;
var
   angka1,angka2,temp : integer;
begin
   { memasukan variabel angka yang mau ditukar }
   writeln('Pertukaran Angka');
   writeln('----------------');
   write('Masukan Angka ke-1 = ');readln(angka1);
   write('Masukan Angka ke-2 = ');readln(angka2);
   writeln;
   { proses Pertukaran }
   angka1 := angka1;
   angka2 := angka2;
   temp := angka1;
   angka1 := angka2;
   angka2 := temp;
   { menampilkan hasil pertukaran angka }
   writeln('Angka ke-1 menjadi = ',angka1);
   write('Angka ke-2 menjadi = ',angka2);
   readln;
end.

Tampilan program :

Gambar 2.1 User telah memasukkan dua bilangan


Gambar 2.2 Menampilkan hasil pertukaran dua bilangan




Dan untuk 3 buah variable sampai banyak Bilangan pada Variable juga konsepnya sangat sama dengan pertukaran untuk 2 variable, yaitu membutuhkan 1 variable bantuan sebagai penampung sementara variable untuk dipindahkan ke variable lainnya.
Misalnya
Buatlah algoritma untuk menukarkan 3 bilangan pada variable ! Dengan catatan ke-3 bilangan tersebut dimasukkan oleh user !
Algorimanya sebagai berikut :

menukar_tiga_buah_bilangan_bulat
{ I.S. : user memasukan nilai x,y dan z dengan bilangan bulat }
{ F.S. : menampilkan hasil pertukaran tempat x,y,z menjadi y,z,x }
Kamus :
   x,y,z,temp : integer
Algoritma :
   Input(x)
   Input(y)
   Input(z)
   x ←x
   y ← y
   z ← z
   temp ← x {temp sebagai variable bantuan}
   x ← y
   y ← z
   z ← temp
   Output('Nilai x menjadi = ',x)
   Output('Nilai y menjadi = ',y)
   Output('Nilai z menjadi = ',z)

Bila anda tidak mempunyai aplikasi pemrograman pascalnya, bisa anda download dan anda pelajari tipsnya disini Download Dev-Pascal 1.9 dengan Penjelasan serta Tipsnya

Semoga bermanfaat bagi kita semua !





Tolong bantu untuk isi survei singkat ini teman teman, semoga bantuan teman teman mendapat balasan yang berlipat ganda dari Allah SWT, Amin. KLIK DISINI ! untuk mulai mengisi survei !