Contoh Program Cari Data

program caridata;

uses wincrt;

var deret : array[1..10] of integer;

i,j, n,data, lok : integer;

ada : boolean;

begin

    clrscr;

    write('masukan banyak data  : ');

    readln (n);

    for i:=1 to n do

         begin

           write('bilangan ke  ',i:3, ' = ');

           readln (deret[i]);

         end;

    writeln;

    write('bilangan yang akan dicari  : ');

    readln(data);

    ada:=false;

    i:=0;

    while(i<=n) and (not ada) do

      begin

         if deret [i]=data then

            begin

              ada:=true;

              writeln;

              writeln('bilangan yanga dicari ada pada deter  ',i);

            end

         else

            i:=i+1;

         end;

      if (not ada)then

        writeln('data yang dicari tidak ada...! ');

        readln;

end.