1/03/2011

Program Sequential Search menggunakan pascal


16.50 |



program sequential_searh2_boolean;
uses crt;
const nmax=100;
type tabinteger=array[1..nmax] of integer;
var
   tabint:tabinteger;
   jml_data,data,indeks:integer;
   found:boolean;
   cari:char;
   procedure inputdata(n:integer; var t:tabinteger);
   var
   i:integer;
   begin
     for i:=1 to n do
     begin
       write ('nilai ke - ',i,' : ');
       readln(t[i]);
     end;
   end;
   procedure seqsearch(t :tabinteger; n,x :integer;var idx:integer);
   var i:integer;
   begin
     i:=1;
     found :=false;
     while (i<=n) and (not found) do
     begin
       if t[i]=x then
         found:=true
       else
         i:=i+1;
   end;
       if found then
       idx:=i
       else
       idx:=0;
       end;
begin
  clrscr;
  write("banyaknya integer : ");readln(jml_data);
  inputdata(jml_data,tabint);
  repeat
    write("data yang akan dicari : ");readln(data);
    seqsearch(tabint, jml_data,data,indeks);
    if indeks=0 then
      writeln("data tidak ditemukan")
    else
      writeln("data ditenukan pada posisi ke-",indeks);
   write("cari data lagi (y/t) ? ");readln(cari);
   until(cari='t')or (cari='T');
   readln;
end.


You Might Also Like :


0 comments:

Posting Komentar