Assalamualaikum
tutorial kani ini membahas algoritma tukar dua bilangan menggunakan bahasa pemograman PASCAL,
kasus : buatlah untuk menukarkan dua bilangan pada variable, dengan catatan dua bilangan tersebut di masukkan oleh user
untuk melakukan pertukaran dua variebel kita memerlukan satu wadah kosong untuk melaukan pertukran
logikanya : jika kita ingin menukar 1 ember berisi cet merah dengan 1 ember berisi cat biru, misalkan ember A berisi cat merah dan ember B berisi cat biru, kita ingin ember A berisi cat biru dan ember B berisi cat merah.
untuk melakukan pertukaran tersebut maka kita memerlukan satu ember kosong, kita namakan saja emeber C . jika tidak ada emeber kosong gi mana cara kita menukarnya hayooooooo hehehe,
A← cat merah {mula mula gelas A berisi cat merah}
B ← cat biru {mula mula gelas B berisi cat biru}
proses pertukaran :
C ← A {gelas C diisi A, gelas A menjadi kosong}
A ← B {gelas A diisi cat biru, gelas B menjadi kosong}
B ←C {gelas B diisi cat merah dari gelas C, gelas C menjadi kosong lagi}
Itulah logikanya , sekerang langsung aja masuk ke programnya :
program tukar;
uses crt;
var a,b,c,temp : integer;
procedure tukar(var a,b,c : integer);
begin
temp:=a;
a:=b;
b:=temp;
end;
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;
0 komentar:
Posting Komentar