Program Pascal : Menukar Nilai dari Dua Variabel

Pernahkah anda diminta untuk menukar isi dari dua buah gelas, gelas A dan gelas B yang masing-masing berisi Teh dan Kopi ? Bisakah gelas A langsung dituang ke dalam gelas B ???

Untuk memecahkan masalah ini diperlukan satu buah gelas kosong (gelas C). Langkah-langkah pemecahan masalah sebagai berikut :

1. Tuangkan isi gelas A (isi Teh) ke dalam gelas C (kosong)
2. Tuangkan isi gelas B (isi Kopi) ke dalam gelas A (kosong)
3. Tuangkan isi gelas C (isi Teh) ke dalam gelas B (kosong)

sehingga kondisi akhir gelas A yang awalnya berisi Teh sekarang berisi Kopi dan gelas B yang awalnya berisi Kopi sekarang berisi Teh.

Berikut ini adalah program pascal yang mirip dengan masalah di atas. Pertama program membaca dua buah nilai untuk variabel A dan B, kemudian mempertukarkan nilai dua variabel tersebut.

program TukarNilai;

uses wincrt;

var

   A,B,C : integer; {deklarasi variabel}

begin

   clrscr;

   write('Masukkan Nilai A : ');

   readln(A);

   write('Masukkan Nilai B : ');

   readln(B);

   writeln;

   {proses tukar Nilai}

   C:=A;

   A:=B;

   B:=C;

   writeln('Setelah ditukar');

   writeln;

   writeln('Nilai A : ',A);

   writeln('Nilai B : ',B);

end.

Tampilan output :