Posted by : BayuBayyz Sabtu, 18 Januari 2014

Pertukaran Dua Bilangan

Contoh soal pertukaran dua variable :
Temukan logika dan buatlah algoritma beserta program untuk menukarkan dua bilangan pada variable, dengan catatan dua bilangan tersebut di masukkan oleh user !


Untuk melakukan 2 pertukaran bilangan pada suatu variable kita membutuhkan wadah atau variable tambahan.

Logikanya : sama seperti kita akan menukarkan 1 gelas air susu dengan 1 gelas air kopi kita anggap gelas A berisi air susu dan gelas B berisi air kopi, gelas yang mula mula berisi air susu ingin menjadi air kopi dan juga sebaliknya gelas yang mula mula berisi kopi ingin menjadi berisikan air susu.
Untuk menukarkannya tentu kita membutuhkan gelas tambahan sebagai penampung salah satu air yang akan ditukar, kita anggap gelas C yang akan menampung sementara. Benar begitu kan ? Kalo tidak ada gelas tambaha mau bagaimana hayoh tuh nukerinnya ? :D

A ← Air Susu {mula mula gelas A berisi Air Susu}
B ← Air Kopi {mula mula gelas B berisi Air Kopi}
C ← A {gelas C diisi Air Susu, gelas A menjadi kosong}
A ← B {gelas A diisi Air Kopi, gelas B menjadi kosong}
B ← C {gelas B diisi Air Susu dari gelas C, gelas C menjadi kosong lagi} 


Sehingga kita dapatkan Algoritma untuk menukarkan 2 bilangan pasa suatu variable berbeda sebagai  berikut :

Pertukaran Dua Variabel
{ I.S. : mengubah variabel angka 1 menjadi variabel angka 2 dan variabel angka 2 menjadi variabel angka 1 }
{ F.S. : menampilkan output angka 1 dan angka 2 yang bertukar dengan variabel bantuan }
Kamus :
   angka1,angka2,temp : integer
Algoritma :
   {Judul}

   Output('Pertukaran Angka Dengan Variabel Bantuan')
   Output('----------------------------------------')
  
{ memasukan variabel angka yang mau ditukar }
   Input(angka1)
   Input(angka2)
   { proses Pertukaran }
  
temp    angka1 {temp sebagai variable bantuan}
   angka1 angka2
   angka2
temp
   { menampilkan hasil pertukaran angka }
   Output(angka1)

   Output(angka2)

Dan Program Pascal pertukaran dua bilangan variable sebagai berikut :


program pertukaranduavariabel;
{ I.S. : mengubah variabel angka 1 menjadi variabel angka 2 dan variabel angka 2 menjadi variabel angka 1 }
{ F.S. : menampilkan output angka 1 dan angka 2 yang bertukar dengan variabel bantuan }

uses crt;
var
   angka1,angka2,temp : integer;
begin
   { memasukan variabel angka yang mau ditukar }
   writeln('Pertukaran Angka');
   writeln('----------------');
   write('Masukan Angka ke-1 = ');readln(angka1);
   write('Masukan Angka ke-2 = ');readln(angka2);
   writeln;
   { proses Pertukaran }
   angka1 := angka1;
   angka2 := angka2;
   temp := angka1;
   angka1 := angka2;
   angka2 := temp;
   { menampilkan hasil pertukaran angka }
   writeln('Angka ke-1 menjadi = ',angka1);
   write('Angka ke-2 menjadi = ',angka2);
   readln;
end.


Tampilan program :

Gambar 2.1 User telah memasukkan dua bilangan


Gambar 2.2 Menampilkan hasil pertukaran dua bilangan




Dan untuk 3 buah variable sampai banyak Bilangan pada Variable juga konsepnya sangat sama dengan pertukaran untuk 2 variable, yaitu membutuhkan 1 variable bantuan sebagai penampung sementara variable untuk dipindahkan ke variable lainnya.
Misalnya
Buatlah algoritma untuk menukarkan 3 bilangan pada variable ! Dengan catatan ke-3 bilangan tersebut dimasukkan oleh user !
Algorimanya sebagai berikut :

menukar_tiga_buah_bilangan_bulat
{ I.S. : user memasukan nilai x,y dan z dengan bilangan bulat }
{ F.S. : menampilkan hasil pertukaran tempat x,y,z menjadi y,z,x }
Kamus :
   x,y,z,temp : integer
Algoritma :
   Input(x)
   Input(y)
   Input(z)
   xx
   y y
   z z
   temp x {temp sebagai variable bantuan}
   x y
   y z
   z temp
   Output('Nilai x menjadi = ',x)
   Output('Nilai y menjadi = ',y)
   Output('Nilai z menjadi = ',z)

Bila anda tidak mempunyai aplikasi pemrograman pascalnya, bisa anda download dan anda pelajari tipsnya disini Download Dev-Pascal 1.9 dengan Penjelasan serta Tipsnya

Semoga bermanfaat bagi kita semua ! https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNWCaAtjO_E5ZrECjXC-pIyIwiHfdEACW-tnGBSo98reMQZ7iHwWlvE2P-YrUP6EB-NhEJ6_CKbMgugNKOI6cWpUJMQ4n7d-vrGvvrVOMh9tsgkdhYQW6Z-0ckui1LWW8yS4ZM81tVEkQ/s640/Algoritma.jpg





Tolong bantu untuk isi survei singkat ini teman teman, semoga bantuan teman teman mendapat balasan yang berlipat ganda dari Allah SWT, Amin. KLIK DISINI ! untuk mulai mengisi survei !

{ 6 comments... read them below or Comment }

  1. Balasan
    1. Haloo...
      Mungkin kamu melupakan ';' pada judul programnya atau kamu hapus saja 'uses crt;' nya karna pada kasus diatas tidak membutuhkan perintah yang mengatur tampilan seperti gotoxy, window dsb..
      Semoga membantu :)

      Hapus
    2. Komentar ini telah dihapus oleh administrator blog.

      Hapus
    3. Komentar ini telah dihapus oleh administrator blog.

      Hapus
  2. Kok Runtime Error ya? setelah saya hapus uses crt; nya? minta solusi

    BalasHapus
    Balasan
    1. Seharusnya tidak akan error mas, coba tutup Pascalnya dulu lalu buka dan Compile lagi Mas

      Hapus

Welcome to BIG !!!

Find BIG on Facebook

Popular Post

Copyright © 2013 Bayyz Informatics Gallery. Diberdayakan oleh Blogger.

- Copyright © Big Informatics Gallery by Bayu Wijaya Permana Putra - Powered by Blogger - Supported by Google -