Program Perpustakaan Pascal Versi 2.
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 ..
 |
| 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 . . .
- Open DOSBox nya
- Ketik " mount c: c:\tp7 " ( sesuaikan lokasi tp7 nya kalau saya simpanya di c )
- Ketik " c: "
- Ketik " cd BIN "
- Ketik " TURBO.EXE "
- Setelah itu write code nya
- Compile code nya (alt+f9)
- Run (ctrl+f9)
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;
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