Dhen Dian

program searching;
uses crt;

const
nmax = 50;

type
rdata = record
nip : integer;
nama : string[30];
bagian : string[20];
gaji : longint;
end;
adata = array [1..nmax] of rdata;

var
data : adata;
plh, ch : char;
n : integer;

{ini buat ngurutkan data terlebih dulu...}
procedure insertsort(var a :adata; n : integer);
var
pass, i : integer;
temp, temp4 : integer;
temp1, temp2 : string;
begin
for pass := 2 to n do
begin

temp := a[pass].nip;
temp1 := a[pass].nama;
temp2 := a[pass].bagian;
temp4 := a[pass].gaji;
i := pass-1;

while ((temp1)) do

begin
a[i+1].nip := a[i].nip;
a[i+1].nama := a[i].nama;
a[i+1].bagian := a[i].bagian;
a[i+1].gaji := a[i].gaji;
i := i-1;
end;

if (temp < a[i].nip) then
begin
a[i+1].nip := a[i].nip;
a[i+1].nama := a[i].nama;
a[i+1].bagian := a[i].bagian;
a[i+1].gaji := a[i].gaji;
i := i-1;
end;


a[i+1].nip := temp;
a[i+1].nama := temp1;
a[i+1].bagian := temp2;
a[i+1].gaji := temp4;


end;
end;


{prosedur untuk meminta input data}
procedure inputData(var A:adata; var ndata : integer);
var
i : integer;
begin
clrscr;
writeln('--- Input Data ---');
repeat
writeln;
write('Berapa banyak data? ');
readln(ndata);
if ndata>0 then
begin
writeln;
for i:=1 to ndata do
begin
writeln('Pegawai Ke-',i);
write('NIP : '); readln(A[i].nip);
write('Nama : '); readln(A[i].nama);
write('Bagian : '); readln(A[i].bagian);
write('Gaji : '); readln(A[i].gaji);
writeln;
end;
end
else
writeln('Input salah !!!')
until(n>0);
end;

function menu : char;
var
c : char;
begin
clrscr;
writeln('--- Menu Searching ---');
writeln;
writeln('1. Sequential Searching');
writeln('2. Binary Searching');
writeln('3. Keluar Program');
repeat
writeln;
write('Pilih >> ');
c := readkey;
writeln(c);
if not (c in ['1','2','3']) then
writeln('Input Salah !!!');
until(c in ['1','2','3']);
menu := c;
end;

procedure sequential(A : adata; ndata : integer);
var
i : integer;
nonip :integer;
begin
clrscr;
writeln('--- Sequential Searching ---');
writeln;
write('Masukkan NIP pegawai yang ingin dicari : ');
readln(nonip);
insertsort(a,n);
writeln;

{rutin kode utama}
i:=1;
while ((A[i].nip<=ndata)) do
i := i+1;
if (A[i].nip=nonip) then
begin
writeln('Data ditemukan !!!');
writeln('NIP : ',A[l].nip);
writeln('Nama : ',A[i].nama);
writeln('Bagian : ',A[i].bagian);
writeln('Gaji : ',A[l].gaji);
end
else
writeln('Data tidak ditemukan !!!');
end;

procedure binary(A : adata; ndata : integer);
var
bawah, tengah, atas : integer;
nonip : integer;
found : boolean;
begin
clrscr;
writeln('--- Binary Searching ---');
writeln;
write('Masukkan NIP pegawai yang ingin dicari : ');
readln(nonip);
insertsort(a,n);
writeln;

{rutin kode utama}
bawah := 1;
atas := ndata;
found := false;
while ((not found) and (atas>=bawah)) do
begin
tengah := (bawah+atas) div 1;
if (A[tengah].nip=nonip) then
found := true
else
if (A[tengah].nip>nonip) then
atas := tengah-1
else
bawah := tengah+1
end;

if (found) then
begin
writeln('Data ditemukan !!!');
writeln('NIP : ',A[tengah].nip);
writeln('Nama : ',A[tengah].nama);
writeln('Bagian : ',A[tengah].bagian);
writeln('Gaji : ',A[tengah].gaji);
end
else
writeln('Data tidak ditemukan !!!');
end;

{program utama}
begin
inputData(data,n);
ch := '2';
repeat
if (ch='2') then
plh := menu;

case plh of
'1' : sequential(data,n);
'2' : binary(data,n);
'3' : exit;
end;
writeln;
repeat
writeln;
writeln('Tekan >> 1: Cari lagi!, 2: Kembali ke Menu, 3: Keluar Program');
write(' >> ');
ch := readkey;
if not- (ch in ['1','2','3']) then
writeln('Input Salah !!!');
until(ch in['1','2','3']);
until(ch='3');
end.

Yah, segitu dulu artikel dari saya ini. Semoga contoh pencarian dengan Pascal di atas dapat membantu pembaca. Selamat belajar. Salam Informatika.

program nama;
uses wincrt;
type data=record
     no:integer;
     nama:string;
     kelas:string;
     end;
var
ini:array[1..4] of data;
i,j:integer;
temp:data;

begin
clrscr;
for i:=1 to 4 do
 begin
 write(‘Masukan NIM ke-’,i,’: ‘);
 readln(ini[i].no);
 write(‘Nama   : ‘);
 readln(ini[i].nama);
 write(‘Kelas  : ‘);
 readln(ini[i].kelas);
 end;
writeln(‘nim’:5,’nama’:10,’kelas’:10);
for i:=1 to 4 do
begin
writeln(ini[i].no:5,ini[i].nama:10,ini[i].kelas:10);
end;
{proses pengurutan}
begin
for i := 1 to 4 do
 for j := 1 to 3 do
 if ini[i].no < ini[j].no then
 Begin
 temp := ini[i];
 ini[i] := ini[j];
 ini[j] := temp;
 end;
writeln(‘Hasil yang telah diurutkan berdasar NIM :’);
writeln(‘—————————————–’);
writeln(‘nim’:5,’nama’:10,’kelas’:10);
for i := 1 to 4 do
writeln(ini[i].no:5,ini[i].nama:10,ini[i].kelas:10);
end;
readln;
end.
end.

1. Perempuan suka didengarkan. Jadi kalau dia sedang marah,
   dengarkan saja. Kalau diladeni, tujuh hari tujuh malam, dia tahan
   bertengkar!
   
2. Perempuan suka dilembuti. Jangan pernah sekali-kali kasar pada
   perempuan karena perempuan bisa menjadi lebih kasar.
   
3. Perempuan suka diberi kejutan-kejutan kecil. Tidak harus memberi
   emas berlian pada sang istri, cukup kecupan mesra di kening tapi
   penuh cinta nan lembut.
   
4. Sentuhlah perempuan dengan kasih yang sesungguhnya. Kasih ini
   akan membuat perempuan memberikan cinta yang lebih.
   
5. Berikan perhatian setiap saat. Ketika tidur pun sebenarnya
   perempuan ingin diperhatikan. Ketersipuannya menandakan rasa
   senangnya diperhatikan.
   
6. Kirim selalu kata-kata mesra nan menggoda. Walau kata-kata
   cinta terasa biasa, tidak bagi perempuan. Kata-kata "Aku kangen
   kamu sayang", atau "Sehari tanpa mendengar suaramu, aku bisa gila",
   atau "Hanya kamu yang membuatku tergila-gila", sudah cukup membuat
   hati perempuan melambung ke langit tuju. Menggetarkan relung-relung
   hati dan jiwanya.

Posisi duduk :

• Duduk bersila jika terbiasa
• Duduk dikursi
• Tungkai kaki direnggangkan
• Telapak kaki menapak bumi
• Punggung lurus tidak menyandar
• Letakkan kedua telapak tangan bertumpu pada paha

Aksi :

• Ambil posisi paling rileks dan santai
• Ucapkan affirmasi pelan - pelan
• Misal : Ya Tuhan, aktifkan theta stage otak kanan dan kiri saya saat saya bermeditasi
• Lakukan dengan memejamkan mata anda

Nafas :

• Tarik nafas melalui hidung dalam 8 hitungan
• Tahan nafas di dada dalam 8 hitungan
• Buang nafas dalam 9 hitungan pelan - pelan melalui mulut dengan mendesis, lakukan 5 kali putaran
• Bila sudah 8 kali majilis (1 majilis = 5 kali putaran)
• Niatkan seluruh tubuh mulai dari ubun-ubun sampai ujung jari kaki menjadi rileks
• Pasrahkan segalanya ke hadirat Tuhan Yang Maha Pengasih dan Penyanyang
• Bernafaslah alami dengan tarik dan buang nafas melalui hidung dengan kondisi tetap santai
• Dalam kondisi ini menjauhkan kita dari kekuatan negatif

Silakan download disini untuk yang menginginkan file mentah peta jogja dalam bentuk corel.