Minggu, 25 Januari 2009

Menukar Nilai Dua Variabel dengan Variabel Bantu

program penukaran_dengan_variabel_bantu;
uses wincrt;
var
a,b,c:integer;
begin
write('inputkan a = ');readln(a);
write('inputkan b = ');readln(b);
c:=a;
a:=b;
b:=c;
writeln('Setelah ditukar');
writeln('a = ',a);
writeln('b = ',b);
readln;
end.

Tidak ada komentar:

Posting Komentar

Kirim Komentar Anda
(Send Your Comment)