Belajar pascal lagi yuk, kali ini kita akan membuat sebuah program mengurutkan bilangan dengan sistem bagi dua, dimana bilangannya harus dalam keadaan terurut menaik/membesar/ascending. langsung ajah yaa....cap..cip..cus...
program BagiDuaMembesar;
uses wincrt;
type Larik = array[1..1000] of integer;
var
L : Larik;
Batas, target : integer;
procedure InPut(var L : Larik; n : integer);
var
i : integer;
begin
for i := 1 to n do
begin
write('Data Ke-',i,' : ');
readln(L[i]);
end;
end;
procedure Cari(n,x : integer);
var
ketemu : boolean;
i : integer;
k,j,idx : integer;
begin
i := 1;
j := n;
ketemu := false;
while(not ketemu) and (i <= j) do
begin
k := (i+j) div 2;
if L[k] = x then
begin
Ketemu := true;
idx := k;
end
else
if L[k] > x then j := k-1
else i := k+1;
end;
if ketemu then writeln('Ditemukan di index ke ',idx) else
writeln('Not found');
end;
begin
write('Masukkan banyak data : ');
readln(Batas);
writeln;
writeln('Masukkan data secara teurut menaik : ');
InPut(L,batas);
writeln;
write('Data yang ingin dicari : ');
readln(target);
writeln;
cari(batas,target);
end.
Setelah di run, maka akan muncul penampakan seperti berikut :
Home »
Bahasa Pemrograman »
Pascal »
Tugas Kuliah »
Program Pencarian Bagi Dua Membesar dengan Pascal
30 Mei 2011
Program Pencarian Bagi Dua Membesar dengan Pascal
Diposting Oleh
Didit Rinjano
Pada
10.19
Tags :
Bahasa Pemrograman,
Pascal,
Tugas Kuliah
Langganan:
Posting Komentar (Atom)
0 Komentar:
Posting Komentar
Terimakasih telah meninggalkan Komentar di Didit Blog | Silahkan berkomentar dengan bebas, tidak mengandung SARA | komentar dengan link HIDUP akan dihapus | Terimakasih ^_^