Program Pascal : Menukar Nilai dari Dua Variabel

Senin, 17 Januari 2011

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 :

 
 
 

Chat

Pengikut

Statistik