Kamis, 27 Maret 2014

09.12

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;
end.

output dari program di atas :


Algoritma tukar dua  bilangan








Posting Lebih Baru
Previous
This is the last post.

0 komentar:

Posting Komentar