Monday, April 24, 2017

Program Searching Binary and Sequential Pascal


Program Perpustakaan Pascal Versi 2.

Sesuai janji saya , akan menyelesaikan share untuk source code lanjutan
Hingga final update untuk program perpustakaan pascal

Sebelum lanjut ke final update sebaiknya kita membahas array dalam
Program Searching Sequential dan Searching Binary,  apakah program itu ?

 Sequential Search adalah 

  • Merupakan teknik yang sederhana dan langsung dapat digunakan pada struktur data array.
  • Pencarian data secara urut mulai dari data pertama sampai kunci yang dicari ditemukan atau sampai seluruh data telah dicari dan tidak ditemukan 
  • Dilakukan pada data yang tidak terurut 

Binary Search adalah


  • Pencarian data dimulai dari pertengahan data yang telah terurut.
  • Jika kunci pencarian lebih kecil daripada kunci posisi tengah, maka kurangi lingkup pencarian pada separuh data pertama.
  • Begitu juga sebaliknya jika kunci pencarian lebih besar daripada kunci tengah, maka pencarian ke separuh data kedua.
  • TeknikBinary Search hanya dapat digunakan pada sorted array.


Ingat sob saat mengikuti harap pahami alur nya , fungsinya , jadi bukan hanya menyalin saja , tapi kita dapat memahaminya dengan mudah . jangan lupa setelah paham dibuat sendiri tanpa selalu melihat terus ..

Searching Binary and Sequential Pascal
spoilernya gan

berikut items requiretment saya tambahkan lagi , supaya terhubung ( tidak membingungkan )

  • Install ini gan DOSBox  
  • Kalau sudah lanjut kebawah
  • Agar sobat tidak bingung saya jelaskan secara singkat tentang tutorial iniPertama saya buat program pilihan dengan nama save as PILIHAN.PAS
    Kedua saya buat program searching dengan nama save as SEARCH.PAS
    Ketiga saya buat program gabungan dari program di atas tersebut gan save as PERPUS.PAS
  • Untuk tutorial kali ini kita bahas yang Kedua
  • Di akhir kalimat ada [UPDATE POST]  dan Pastebin to raw embed etc .
    update post dimaksudkan lanjutan dari post sebelumnya

lets play . . .


  1. Open DOSBox nya
  2. Ketik " mount c: c:\tp7 " ( sesuaikan lokasi tp7 nya kalau saya simpanya di c )
  3. Ketik " c: "
  4. Ketik " cd BIN "
  5. Ketik " TURBO.EXE "  
  6. Setelah itu write code nya
  7. Compile code nya (alt+f9)
  8. Run (ctrl+f9)
  9. Jangan lupa nih ... gan , jangan langsung copy paste source code tersebut . Carilah referensi mengenai alur dan maksud dari masing-masing script agar kita paham . Mungkin di lain waktu akan saya bahas untuk penjelasan atas script yang di inputkan :)

    Sequential Code Pascal
    program searching;

    uses crt; var         yogi1           : integer;         yogi2           : array[1..100] of integer;         n,i,j,indeks    : integer;         yogi_bIackhat   : char;  function sequen(yogi1: integer): integer; begin         i:=1;         while ((iyogi1)) do         i:= i+1;                 if yogi2[i]= yogi1 then                         sequen:=i                 else                         sequen:=0; end; { * www.yogithesymbian.blogspot.com     www.yogi-aw.id *}  function binary(yogi1: integer):integer; var         awal,akhir,tengah: integer;         ketemu:boolean;         indeksxx: integer; begin         awal:= 1;         akhir:= n;         ketemu :=false;         indeksxx := 0;         while ((awal <= akhir) and (not ketemu)) do         begin                 tengah:= (awal+akhir) div 2;                 if yogi1 = yogi2[tengah] then                 begin                         ketemu := true;                         indeksxx := tengah;                 end                 else                 begin                         if yogi1 < yogi2[tengah] then                         akhir :=  tengah-1                         else                         awal := tengah+1;                 end;         end;         binary:=indeksxx; end;   procedure insert; var     min,urut,k : integer;         l,m:string; begin urut:= 1;         for i:= 1 to n-1 do         begin         min:=i;                 for j:= urut to n do                 begin                         if yogi2[j] < yogi2[min] then                         min:=j;                          if yogi2[i] <> yogi2[min] then                         begin                         k:= yogi2[i];                        end;                          if yogi2[i] > yogi2[min]  then                         begin                                 yogi2[i] := yogi2[min];                                 yogi2[min]:= k;                         end;                 end;         urut:=urut+1;         end; end;  procedure menu1; begin   writeln('____________________________________');         writeln;         writeln('         Pencarian Sequential       ');         writeln('____________________________________');         write('Jumlah data : '); readln(n);         writeln;                 for i:= 1 to n do                 begin                 write('Indeks [',i,'] : '); readln(yogi2[i]);                 end;                 writeln; { * www.yogithesymbian.blogspot.com     www.yogi-aw.id *}         write('Search     : '); readln(yogi1);         indeks:=sequen(yogi1);         writeln;         if indeks <> 0 then         begin                 writeln('Data yang dicari : ',yogi1);                 writeln('Ditemukan pada indeks ke-',indeks);         end         else                 write(yogi1,' Tidak ditemukan'); end; 


    Binary Code Pascal

    procedure menu2; begin   writeln('______________________________________');         writeln;         writeln('           Pencarian Binary           ');         writeln('______________________________________');         write('Jumlah data : '); readln(n);         writeln;                 for i:= 1 to n do                 begin                 write('Indeks [',i,'] : '); readln(yogi2[i]);                 end;                 writeln;         insert;         write('Data setelah diurutkan : ');         for i:= 1 to n do         write(yogi2[i]:2); { * www.yogithesymbian.blogspot.com     www.yogi-aw.id *}         writeln;         writeln;         write('Search     : '); readln(yogi1);         indeks:=binary(yogi1);         writeln;         if indeks <> 0 then         begin                 writeln('Data yang dicari : ',yogi1);                 writeln('Ditemukan pada indeks ke-',indeks);         end         else                 write(yogi1,' Tidak ditemukan'); end;   begin         repeat         clrscr;         textcolor(10);         writeln('______________________________________________');         writeln;         writeln('   P r o g r a m     I     S e a r c h i n g  ');         writeln('______________________________________________');         writeln;         writeln('       [1] Searching Sequential               ');         writeln('       [2] Searching Binary                   ');         writeln('       [0] Exit                               ');         writeln('______________________________________________');         writeln;         writeln('   pilih :                                     ');         writeln('______________________________________________');         writeln;         writeln;         writeln; { * www.yogithesymbian.blogspot.com     www.yogi-aw.id *}         writeln('                                                       Thanks For Google');         writeln('                                                        Recoding By Yogi');         writeln('                                                               (C) 2016 ');         writeln('______________________________________________');         writeln;         writeln('    Nama  : Yogi Arif Widodo');         writeln('    Kelas : XI - TKJ        ');         writeln('    Tugas : Program Searching');         writeln('______________________________________________');         gotoxy(17,11);         readln(yogi_bIackhat);         case yogi_bIackhat of              '1':begin                       clrscr;                       menu1;                       readkey;                       end;              '2':begin                       clrscr;                        menu2;                       readkey;                       end;              '0':exit;                       end;              until yogi_bIackhat='0';         end. 


    setelah itu jalankan programnya dan jangan lupa di compiler hhahaha compile , ( alt + f9 )

    Full Code



    sampai disini program pemilihan sudah selesai dan bisa di coba compile lalu jalankan programnya
    jika tidak ada kendala lanjut simak membuat program gabunganya click disini.
    [ UPDATE ] Post Program Pilihan click disini
    [ UPDATE ] Post Program Search  click disini
    [ UPDATE ] Post Program Gabunganya click disini

    ok sekian sob

    semoga bermanfaat


    EmoticonEmoticon