Program Tukar Bilangan (Pascal)

   Berikut adalah contoh program yang di gunakan untuk menukarkan 2 buah bilangan bertife integer. semoga saja program sederhana ini bisa membantu kawan-kawan yang kesulitan membuatnya.  

uses crt;
var a,b,c,temp : integer;
procedure tukar(var a,b,c : integer);
begin
temp := a;
a:= b;
b:=temp;
end;
{program utama}
begin
clrscr;
write('Masukan angka pertama: '); readln(a);
write('Masukan nilai kedua  : '); readln(b);
tukar(a,b,c);
writeln('');
writeln('- - - - - - - - - - - - - - - - -');
writeln('|   Angka pertama:             ', a);
writeln('|   Angka kedua  :             ',b);
writeln('- - - - - - - - - - - - - - - - - -');
readkey;
end.

Penjelasan :

   Sebenarnya tidak sulit, ibarat hendak menukar 2 buah isi air dalam ember maka terlebih dahulu kita menyiapkan ember ketiga (fungsi b:= temp;). dalam artian isi ember ketiga di pindahkan ke ember ketiga, isi ember kedua di masukan ke ember pertama, dan baru kemudian isi yang pertama di masukan ke dalam ember yang kedua.

Kok jadi cerita ember,, hahahaha... :D

Sekian, semoga bermanfaat kawan.