Pascal - Mengurutkan Angka Menggunakan Metode Bubble Sort

1. Screenshot Program

2. Source Code

program bubblesort;

    uses crt;

   var

     i,n,j : integer;

     a : array [1..10] of integer;

    procedure urutkan;

     var

      z : integer;

      begin

       for i:=1 to n-1 do

        begin

         for j:=n downto i+1 do

          begin

           if a[j] > a[j-1] then

            begin

             z:=a[j];

             a[j]:=a[j-1];

             a[j-1]:=z;

            end;

          end;

        end;

      end;

    begin

     clrscr;

     writeln('Program : Mengurutkan Nilai menggunakan Bubble Sort');

     writeln;

     write ('Masukkan banyak data yang ingin di urut : '); readln(n);

     for i:=1 to n do

      begin

       write ('Data ',i,' : '); readln(a[i]);

      end;

     urutkan;

     write('Data setelah diurutkan : ');

     for j:=1 to n do

      write (a[j],' ');

    readln;

    end.

Baca Selengkapnya »

Tipe Karakter Seseorang Dalam Pandangan Gamers

Ternyata sifat-sifat umum pada seseorang bisa di bawa pada karakter di dunia game, apa saja karakter seseorang yang menyerupai job dunia game ?


1. Fighter / Warrior

Tipe menyerang dah bertahan. Job ini bisa di katakan keren di kalangan gamers, selain keren job ini juga sangat di butuhkan dalam kelompok.. hmm.. lantas apa?

• Seorang yang percaya diri
• Mudah akrab dengan orang lain
• Seorang yang serius dalam menghadapi setiap masalah
• Berani tampil depan umum
• Biasanya menjabat sebagai ketua (Kelas,OSIS,Organisasi.dsb)
• Banyak serius dari pada bercanda.
• Berani menghadapi masalah.
• Suka membantu Teman
• Selalu mengutamakan musyawarah

2. Assassin / Scout

Tipe serangan dengan mengandalkan kekuatan Critical dan jebakan, job ini tidak terlalu di harapkan dalam kelompok/party.. hmm.. tapi jangan salah, Job ini mematikan bagi lawannya, dia suka menghilang dan membuat lawannya kaget..

• Seorang yang misterius / pendiam
• Tidak mudah akrab dengan orang
• Tampil dibelakang layar
• Bersikap santai, namun pemikir keras
• Terlalu sering curiga
• Suka memantau gerak-gerik orang di sekitar
• Suka mendengarkan pembicaraan orang
• Mundur dari masalah, perlahan menyelesaikannya. 
• Dalam sebuah kelompok ia adalah orang yang tidak percaya diri  
• Seorang yang ingin menyelesaikan masalah dengan sendirinya
• Sendiri tidak masalah

3. Elf / Healing

Job yang tidak berfokus pada serangan ,namun job ini berguna bagi kelompok/party. Job ini mengandalkan serangan Magic dan Skill Recovery bagi party..

• Seorang yang santai dan penyabar
• Netral, selalu dekat dengan siapa pun.
• Kehadirannya membuat Kelas/Kelompoknya menjadi hidup (dengan candaannya).
• Terkadang  ia harus tampil depan umum secara tiba-tiba
• Memberi Motivasi/lelucon pada temannya yang lagi galau.
• Suka menolong orang (tidak memandang siapa pun)
• Selalu berprasangka baik pada setiap hal yang di hadapi.

4. Archer / Gunner

Job ini memiliki kemampuan serangan jarak jauh, meski memiliki pertahanan yang lemah, namun cukup membuat lawannya kesusahan.

• Seorang yang percaya diri jika dalam kelompoknya
• Akrab dengan kelompok tertentu
• Membicarakan/menusuk seseorang dari belakang
• Orang yang berani mengungkapkan pendapat di depan umum
• Biasanya tipe ini adalah Playboy/playgirl
• Berani menghadapi masalah.
• Suka membantu Teman (masih pakai hitung-hitung)
• Orang yang asik bagi kelompoknya
• Memiliki egois yang labil

5. Wizard 

Tipe Penyihir dengan mengandalkan kekuatan  magicnya, job ini mampu mengimbangi lawannya dengan skill magic yang bisa di katakan super power karena mempunyai area serang yang luas, dan lawannya pun bisa kewalahan menghadapi serangannya yang bertipe magic meski job ini juga lemah dalam pertahanan fisik..

• Seorang yang pendiam
• Aktif dalam suatu komunitas
• Bersikap santai dan pemikir keras
• Pasif dalam bergaul dengan orang
• Seorang pendengar yang baik
• Meski pendiam ia bukan seorang yang tertutup
• Sendiri tidak masalah

6. Dan Sebagainya..


Hmm..  Dalam dunia game berbagai macam karakter itu lah yang membuat game itu menarik. Sama halnya dengan sifat-sifat seseorang, dunia akan lebih berwarna jika perbedaan itu saling melengkapi. Bukan membenci karena perbedaan, maka dari itu jadilah karakter mu sendiri.


Jadi, Kamu masuk kategori mana ?

Baca Selengkapnya »

Catatan Si Pendiam

    Orang pendiam kadang-kadang mamang bawaan, mungkin orang mendiam itu.. kadang - kadang mereka bingung apa yang harus mereka katakan,atau mereka tidak tau topik yang tepat untuk dibicarakn dengan yang lain, kadang-kadang mereka juga takut kepada komunitas, merka jarang bersosialisasi dan biasanya mereka lebih suka memilih pekerjaan yang tidak bayak bicara. (yaa.. namanya juga pendiam)


   Tapi, ada juga orang pendiam yang sebenarnya tidak murni pendiam tapi karena memang dia sedikit bicaraya, tapi jika berbicara depan umum it's ok..

Beberapa masalah yang di temui pada si pendiam, mungkin bagi ane ini bisa di bilang fakta, karena ane pendiam..


1. Pendiam identik dengan hal negatif

    Tentang orang pendiam, Masyarakat lebih memandang/menjugde seorang pendiam identik dengan hal negatif seperti: pendiam itu pelaku bunuh diri, pendiam itu pelaku teroris, pendiam itu Psikopat, pendiam itu di kira sombong..

2. Tidak pandai berbasa-basi

    Bicara apa adanya, langsung ke point nya. Suka menyimpan rahasia dan pada dasarnya, mereka adalah orang yang tulus. Orang yang pendiam juga biasanya pemalu dan tidak suka cari masalah tapi jangan sekali kali menyakiti orang yang pendiam, bahaya! bisa di ingat sampai seumur hidupnya..

3. Susah dalam sebuah komunitas

    Misalnya sulit memperoleh teman, jarang mendapat kesempatan untuk menjadi wakil dari suatu komunitas, bahkan masuk dalam komunitas pun sulit dalam hal wawancara, dll. Namun begitu, orang pendiam tidak selalu berarti minus. Ada bahkan banyak orang pendiam yang justru lebih berprestasi dari pada orang yang cerewet. Biasanya mereka menyimpan ide kreatif namun sukar untuk di sampaikan. Apa yg harus kita lakukan jika punya teman pendiam ? berusaha menggali potensi yang ada dalam dirinya, berusaha merubah sifatnya dengan jalan memberikan contoh cara beradaptasi dengan lingkungan dimana dia berada sampai dia benar benar mampu melakukan itu tanpa harus didorong dorong lagi.





4. Mempunyai Alam semesta dalam pikirannya

    Seorang introvert punya alam semestanya sendiri atau bisa dibilang surga dalam imajinasinya, bukan berarti gila. Tapi disini mereka mempunyai bakat dalam dunia seni. Itulah mengapa orang introvert tidak menyukai keramaian.
 

5. Mempunyai dua Roh

    Orang pendiam seakan memiliki dua roh dalam satu raga. Otak mereka bertanya pada hatinya. Dia adalah seorang pemikir dan selalu berfikir dan seorang penyendiri. Otak mereka seperti server yang mengolah data tanpa henti. terkadang apa yang ia sampaikan tidak sesuai dengan yang ia rencanakan/pikirkan.

6. Kehidupan tertutup untuk umum

 Ia berjalan seolah di kiri dan kanan tidak ada orang lain. Pandangannya lurus dan terkadang menunduk, enggan menatap orang di sekitar.

7. Teman Terbatas

     Pendiam terkadang lebih memilih bersama keluarga di bandingkan teman, terkadang satu persatu temannya mulai meninggalkannya. Namun, pendiam jika punya teman akrab, pasti jadi sahabat.





8. Sifat Sabar dan Santai

     Sifatnya mungkin jarang terlihat bisa dikatakan misterius. Sifat pendiam edentik dengan sabar, namun sabarnya hanyalah menampung rasa marah dan jengkel, terkadang jika sudah mencapai puncak emosi biasanya marahnya sudah seperti kerasukan.


Sudut pandang sebagian orang
     Setiap hari manusia disibukan denga berbagi aktivitas yang menyibukan. Para pekerja serta pelajar bergegas menyambut hari bersama mentari yang bersinar. Waktu yang panjang tak ubahnyta seperti sekecil jarum jam yang bergerak cepat. Orang-orang sibuk dengan urusannya masing-masing. Terkadang terlihat mereka tertawa bercanda dalam kelompok yang berkumpul.

    Namun, di sisi lain, Terlihat seorang disudut ruangan duduk manis sambil memandang orang-orang tersebut. Dari kejauhan ia terlihat tenang dan menikmati kesendiriannya, terlihat seperti tak ada beban hanya tersenyum tenang. Akan tetapi, tahukan bahwa orang-orang yang sering duduk sendiri atau terpisah dari orang banyak mereka lebih membutuhkan teman? Mereka bersikap tenang karena berusaha menyembunyikan ketidak mampuannya dalam bersosialisasi dengan lingkungan. Apa sebenarnya hal-hal yang tersembunyi dibalik orang yang pendiam yang orang-orang tidak ketahui? 

    Orang pendiam mempunyai banyak perbedaan dari kebanyakan orang terutama dalam hal kepribadiannya. Hal yang paling menonjol adalah mereka labih suka menyendiri dan tidak suka dengan keramaian. Pada umumnya meraka mempunya emosi yang labil. Itu sebabnya kenapa saat marah terkadang mereka lebih menyeramkan (kayak kerasukan setan) dari pada yang lain walaupun sangat jarang ditemukan. Biasanya orang yang pendiam cenderung agak lama dalam hal mengambil keutusan untuk menentukan tindakan meskipun tidak menutup kemungkinan juga mereka lebih menonjol dalah suatu hal. 

    Terkadang kita lihat ada teman kita yang harus berdiam terlebih dahulu sebelum berbicara atau bertindak.
Kenapa orang pendiam lebih suka menyendiri daripada bergaul dengan orang-orang? Ada beberapa alasan yang menyebabkannya. 

1. Pertama, terkadang mereka lebih nyaman ketika menyendiri karena biasanya orang pendiam tidak suka dengan keributan atau kebisingan. Tapi jangan salah, sekalipun menyukai kesendirian, mereka akan merasa diasingkan ketika sendiri dalam sebuah kelompok. 
2. Yang kedua, pemikiran atau prinsip dapat melakukan suatu hal dengan kemampuan sendiri dan merasa tidak butuh orang lain akan mendorong seseorang untuk menyendiri. Percaya pada diri sendiri memang diperlukan, tapi ternyata tidak bagus juga jika terlalu berlebihan. 
3. Kemudian, seseorangt tidak terlau aktif karena berusaha menutupi kekurangnya, baik itu karena tidak pandai berbicara atau sulit bergaul dengan orang lain. Tapi jangan salah, terkadang ketika orang berdiam diri mungkin saja ia lebih memilih menjaga lisannya ketimbang menguacapkan hal yang tidak perlu. Meskipun hal-hal diatas terkesan sebagai kekurangan akan tetapi orang pendiam bukan berarti tidak mempunyai kelebihan.

     Jika kita mau melihat lebih jauh, terdapat banyak kelebihan yang dimiliki orang-orang yang cenderung berdiam. Karena penggunaan otaknya lebih dipakai untuk mereneung dan berfikir, biasanya mereka akan lebih bisa mengontrol kamampuannya dalam memilah mana yang benar dan mana yang salah. Selain itu, kamampuan berimajinasi akan menjadikan seseorang berjiwa seni tinggi karena bisanya mereka meluangkan pendapat/idenya melalui karya yang dihasilkannya, baik itu berupa lukisan, karya ilmiah atau yang lainnya. Orang pendiam biasanya lebih unggul dalam hal eksak yang membutuhkan pemikiran ketimbang berhubungan langsung dengan praktek dalam hal sosialisasi.
     Meskipun seseorang yang pendiam lebih suka menyendiri, tapi tahukah kita yang sebenarnya mereka butuhkan? Kita mungkin pernah melihat teman ktia yang duduk sendirian jauh dari yang lain. Ia terlihat sangat tenang dan nampak menikmati kesendiriannya sehingga kitapun menjadi enggan untik mendekatinya. Akan tetapi, pemikiran ini sepertinya harus agak di rubah. Pada kenyataannya orang tersebut akan lebih senang jika kita hampiri dan temani. Apakah kita tahu kenapa? Mereka akan merasa diakui karena yang benar-benar mereka butuhkan adalah “Teman”.

Sumber : Yahoo answer

Baca Selengkapnya »

Source Code Rekursif dan Flowchart

BAB III

IMPLEMENTASI

3.1       Deskripsi Program

        Program ini dibuat dengan menggunakan aplikasi pascal yang sering digunakan. Program ini dibuat untuk membantu perhitungan dalam mengubah biner ke desimal. Dengan menggunakan program ini pengguna akan dibantu, dalam menghitung angka yang akan kita ubah tersebut. Dalam program ini juga terdapat function yang membantu. Pada program digunakan rekursif untuk membantu proses perulangan yang terjadi didalam source code. Sehingga program yang dibuat jadi lebih mudah dan lebih sederhana.

3.2       Alur Program

             3.2.1    Program Utama

3.2.2 Procedure px

3.2.2    Function Desbin

 

3.3       Source Code

Program Rekursif; uses crt; procedure px(x:integer); begin   if x>0 then begin    px(x-1);    write(x:5);    px(x-1);  end; end; function desbin(n:integer):string; Begin   if n=0 then begin   desbin:='0'; end else   if n=1 then desbin:='1'   else desbin:=desbin(n div 2) + desbin(n mod 2); End; var n:integer; begin clrscr;   while true do begin   write('desimal='); readln(n);   writeln('biner=',desbin(n));  end; end.

[1]    [2]    [3]

Baca Selengkapnya »

Pengertian Rekursif pada Pascal

2.1      Procedure Dan Fungsi Rekursif

Prosedur dan fungsi merupakan sub program yang sangat bermanfaat dalam pemrograman, terutama untuk program atau proyek yang besar. Manfaat penggunaan sub program antara lain adalah :

1.      meningkatkan readibility, yaitu mempermudah pembacaan program.

2.      meningkatkan modularity, yaitu memecah sesuatu yang besar menjadi modul-modul atau bagian-bagian yang lebih kecil sesuai dengan fungsinya, sehingga mempermudah pengecekan, testing dan lokalisasi kesalahan.

3.       meningkatkan reusability, yaitu suatu sub program dapat dipakai berulang kali dengan hanya memanggil sub program tersebut tanpa menuliskan perintah-perintah yang semestinya diulang-ulang.

(Mustofa, 2008)

Rekursif adalah salah satu teknik pemograman dengan cara memanggi sebuah fungsi atau procedure dari dirinya sendiri, baik itu secara langsung atau tidak langsung. Pemanggilan fungsi rekursif secara langsung berarti dalam fungsi tersebut terdapat statement untuk memanggil dirinya sendiri sedangkan secara tidak langsung berati fungsi rekursif memanggil 1 atau lebih fungsi lain sebelum memanggil dirinya sendiri (Endra, 2008).

Sub Program Rekursif adalah sub program yang memanggil dirinya sendiri selama kondisi pemanggilan dipenuhi. Dengan melihat sifat sub program rekursif di atas maka sub program rekursif harus memiliki :

1.      kondisi yang menyebabkan pemanggilan dirinya berhenti (disebut kondisi khusus atau special condition)

2.      pemanggilan diri sub program (yaitu bila kondisi khusus tidak dipenuhi)

Secara umum bentuk dari sub program rekursif memiliki statemen kondisional :

if kondisi khusus tak dipenuhi then panggil diri-sendiri dengan parameter yang sesuai  else lakukan instruksi yang akan dieksekusi bila kondisi khusus dipenuhi Sub program rekursif umumnya dipakai untuk permasalahan yang memiliki langkah penyelesaian yang terpola atau langkah-langkah yang teratur.

Bila Kita memiliki suatu masalah dan mengetahui algoritma penyelesaiannya, terkadang sub program rekursif menjadi pilihan bila memang memungkinkan untuk dipergunakan. Secara algoritmis (dari segi algoritma, yaitu bila kita mempertimbangkan penggunaan memori, waktu eksekusi sub program) sub program rekursif sering bersifat tidak efisien.

Dengan demikian sub program rekursif umumnya memiliki efisiensi dalam penulisan perintah, tetapi kadang tidak efisien secara algoritmis. Meskipun demikian banyak pula permasalahan-permasalahan yang lebih sesuai diselesaikan dengan cara rekursif (misalnya dalam pencarian / searching, yang akan dibahas pada pertemuan-pertemuan yang akan datang) (Mustofa, 2008).

Contoh sub program rekursif dalam bahasa Pascal.

1. Contoh sederhana

PROCEDURE TULIS_1(banyak : integer;kata : string);
begin
if banyak > 1 then TULIS_1(banyak-1,kata);
writeln(kata, banyak:5);
end;  
OUTPUT (misal dipanggil dengan TULIS_1(5,"Cetakan ke "))
Cetakan ke 1
Cetakan ke 2
Cetakan ke 3
Cetakan ke 4
Cetakan ke 5

(Mustofa, 2008).

2.2       Proses Rekursif

Untuk memahami proses rekursif yang terjadi dalam sebuah fungsi rekursif, perhatikan contoh sederhana di bawah ini. Contoh di bawah ini menyajikan satu fungsi untuk menghitung harga faktoral suatu integer seperti yang telah dijelaskan di atas

Function FAKT(N:integer):integer;

Begin

If N= 0 then

FAKT := 1

Else

FAKT := N* FAKT (N-1)

end;

(Gunawan,2005).

Sumber :
http://khabib.staff.ugm.ac.id/index.php?option=com_content&view=article&id=82:prosedur-dan-fungsi-rekursif&catid=28:introduction-to-algorithm-and-programming

http://enzieblack.blogspot.com/2008/11/reekkuurrssiiff.html

  

[1]    [2]    [3]

Baca Selengkapnya »