- Beranda
- Komunitas
- Tech
- Programmer Forum
[Ask] tolong di koreksi alogaritma pascal pencarian ini plase help [Urgen]


TS
devanya2
[Ask] tolong di koreksi alogaritma pascal pencarian ini plase help [Urgen]
Teknik Analisis Data
Algoritma pencarian yang digunakan pada aplikasi ini sangat sederhana dimana dipakai sistem filter data pada aplikasi dengan memanfaatkan bahasa SQL, dan fitur combobox bawaan dari Delphi. Dimana untuk mendapatkan data yang dicari, pertama harus ditentukan terlebih dahulu data yang dicari, misal pada kasus ini adalah pencarian data jemaat, user harus memilih pencarian data dengan memilih master jemaat, dan dalam aplikasi ini hanya dibatasi pada 2 kata kunci yaitu berdasarkan nama dan alamat, dimana sistemnya dicari kecocokan rangkaian huruf pada kata kunci untuk dicocokkan pada basisdata, jika ditulis dengan kata kunci “ANDAYANI”, maka yang akan muncul adalah semua data yang mengandung kata “ANDAYANI”.
ALGORITMA
Kamus
Const N : integer = 8 { misalkan jumlah elemen array maksimum = 8 }
Type A = array [ 1 ..... N ] of integer
Cari, BatasAtas, BatasBawah, Tengah : Integer
Ketemu : boolean
ALGORITMA
Input (cari) { meminta nilai data yang akan dicari}
BatasAtas 1 { indeks array dimulai dari 1 }
BatasBawah N
Ketemu False
While (BatasAtas < BatasBawah) and (not ketemu) do
Tengah (BatasAtas + BatasBawah) div 2
If A [Tengah] = cari then
Ketemu true
Else
If ( A [Tengah] < cari ) then { cari di bagian kanan }
BatasAtas Tengah + 1
Else
BatasBawah Tengah – 1 { cari di bagian kiri }
Endif
Endif
EndWhile
If (ketemu) then
Output ( ‘Data berada di index nomor’, Tengah )
Else Output ( ‘Data tidak ditemukan’ )
Endif
Pengertian diatas bisa dijelaskan menggunakan contoh kasus sebagai berikut.
Cara penyelesaian :
Pergi ke Record dengan nilai 8
Pergi ke Record dengan nilai 2 bagian 4 + 4
Pergi ke bagian kanan jika nilai tengah 4 dicari maka baris atas 4 + 1 = 5
Pergi ke begian kiri jika nilai tengah 3 dicari maka baris 4 – 1 = 3
Jika ditemikan maka 4 x 2 = 8 output berada di index nomor
data ditemukan.
Penjelasan :
Pergi atau input nama (memilih nama yang akan dicari “ANDAYANI”)
Batas atas nama ANDAYANI (batas atas dinilai dari “A”)
Batas bawah nama selain yang ditemukan “I”
Ketemu atau tidak
Apabila nama atas dan nama bawah belum ketemu maka nama atau huruf lain dicari/diinput
Dibagian kanan dimasukan huruf “A” nama yang telah ditemukan
Dibagian kiri di search nama atas, bawah, dan nama tengah akan di search
Apabila semua data perhuruf telah dicari maka Output nama yang dicari ditemukan dan apabila data huruf salah maka data tidak ditemukan
=========================================
mohon di bantu masta masta semua, jika ada yang salah mohon di benerin jika ada yang kurang mohon di tambahkan dengan keterangan agar ane mengerti gan terimakasih
Algoritma pencarian yang digunakan pada aplikasi ini sangat sederhana dimana dipakai sistem filter data pada aplikasi dengan memanfaatkan bahasa SQL, dan fitur combobox bawaan dari Delphi. Dimana untuk mendapatkan data yang dicari, pertama harus ditentukan terlebih dahulu data yang dicari, misal pada kasus ini adalah pencarian data jemaat, user harus memilih pencarian data dengan memilih master jemaat, dan dalam aplikasi ini hanya dibatasi pada 2 kata kunci yaitu berdasarkan nama dan alamat, dimana sistemnya dicari kecocokan rangkaian huruf pada kata kunci untuk dicocokkan pada basisdata, jika ditulis dengan kata kunci “ANDAYANI”, maka yang akan muncul adalah semua data yang mengandung kata “ANDAYANI”.
ALGORITMA
Kamus
Const N : integer = 8 { misalkan jumlah elemen array maksimum = 8 }
Type A = array [ 1 ..... N ] of integer
Cari, BatasAtas, BatasBawah, Tengah : Integer
Ketemu : boolean
ALGORITMA
Input (cari) { meminta nilai data yang akan dicari}
BatasAtas 1 { indeks array dimulai dari 1 }
BatasBawah N
Ketemu False
While (BatasAtas < BatasBawah) and (not ketemu) do
Tengah (BatasAtas + BatasBawah) div 2
If A [Tengah] = cari then
Ketemu true
Else
If ( A [Tengah] < cari ) then { cari di bagian kanan }
BatasAtas Tengah + 1
Else
BatasBawah Tengah – 1 { cari di bagian kiri }
Endif
Endif
EndWhile
If (ketemu) then
Output ( ‘Data berada di index nomor’, Tengah )
Else Output ( ‘Data tidak ditemukan’ )
Endif
Pengertian diatas bisa dijelaskan menggunakan contoh kasus sebagai berikut.
Cara penyelesaian :
Pergi ke Record dengan nilai 8
Pergi ke Record dengan nilai 2 bagian 4 + 4
Pergi ke bagian kanan jika nilai tengah 4 dicari maka baris atas 4 + 1 = 5
Pergi ke begian kiri jika nilai tengah 3 dicari maka baris 4 – 1 = 3
Jika ditemikan maka 4 x 2 = 8 output berada di index nomor
data ditemukan.
Penjelasan :
Pergi atau input nama (memilih nama yang akan dicari “ANDAYANI”)
Batas atas nama ANDAYANI (batas atas dinilai dari “A”)
Batas bawah nama selain yang ditemukan “I”
Ketemu atau tidak
Apabila nama atas dan nama bawah belum ketemu maka nama atau huruf lain dicari/diinput
Dibagian kanan dimasukan huruf “A” nama yang telah ditemukan
Dibagian kiri di search nama atas, bawah, dan nama tengah akan di search
Apabila semua data perhuruf telah dicari maka Output nama yang dicari ditemukan dan apabila data huruf salah maka data tidak ditemukan
=========================================
mohon di bantu masta masta semua, jika ada yang salah mohon di benerin jika ada yang kurang mohon di tambahkan dengan keterangan agar ane mengerti gan terimakasih
0
1.2K
6


Komentar yang asik ya
Urutan
Terbaru
Terlama


Komentar yang asik ya
Komunitas Pilihan