Program membaca data=Math 2011

Ini dia program buatan saya.walaupun hanya di coba2 semoga bermanfaat:

program Test;

uses crt;

var

     L:array[1..100] of integer;

     i,j,k,idx,n,x : integer;

     find:boolean;

begin

     clrscr;

     write('Jumlah data : ');readln(n);

     for i:=1 to n do

        begin

            write('Nilai L',i,' : ');readln(L[i]);

        end;

     writeln;

     write('Nilai yang akan dicari : ');readln(x);

     writeln;

     i:=1;

     j:=n;

     find:=false;

     while (i<=j) and (find=false) do

        begin

            k:= i+(j-i) div 2;

            if  L[k] = x then find:=true

                else

                 if (L[k]<x) then i:=k+1

               else

                  j:=k

        end;

     if find then

        begin

           idx:=k;

           writeln('Nilai ',x,' ada pada elemen ke-',idx);

        end

     else

        begin

           idx:=-1;

           writeln('Nilai ',x,' tidak ditemukan');

        end;

     readln;

end.

Untuk Program di atas data terlebih dahulu harus di buat datanya dalam bentuk notepad.

Untuk Pertanyaan silahkan tanya di melkysepang@gmail.com.

^_^ 
Post: 23 November 2012