Program pencarian nilai

2. Source Code

Program searchnilai;

uses crt;

const nnim = 1;

   nmax = 100;

type arrint = array [nnim..nmax] of integer;

var tabint : arrint;

    x,n,i,indeks,max,min,maks :  integer;

function seqsearch(xx : integer): integer;

var i : integer;

begin

   i:= 1 ;

  while ((i<n) and (tabint[i] <> xx )) do

  i:=i+1;

  if tabint[i]=xx then

  seqsearch:=i else

  seqsearch:=0;

end;

function maksimum(tabint:arrint;n :integer): integer;

var i,max : integer;

begin

  for i:=2 to n do

  if max<tabint[i] then

  max:=tabint[i];

  maksimum:=max;

end;

function minimum (tabint:arrint; n:integer):integer;

var i,min : integer;

begin

  for i :=1 to n do

  if min>tabint[i] then

  min:=tabint[i];

  minimum:=min;

end;

begin

clrscr;

  writeln('+----------------------------------+');

  writeln('| Masukkan Jumlah data :       |');

  writeln('|------------------------------------|');

  gotoxy(26,2);readln(n);

  for i:=1 to n do

  begin

   writeln('|----------------------------------|');

   writeln('|         Data ke-',i,'                  |');

   writeln('|----------------------------------|');

   writeln('|      Masukkan Nilai  :           |');

   writeln('|-----------------------------------|');

   gotoxy(26,6+(4*(i-1)));readln(tabint[i]);

 end;

 begin

   writeln('|----------------------------------|');

   writeln('|                                             |');

   writeln('| Temukan Nilai   :                |');

   writeln('|                                             |');

   writeln('|----------------------------------|');

   gotoxy(21,9+(4*(i-1)));readln(x);

   writeln('|                                             |');

   writeln('|----------------------------------|');

   writeln('|                                             |');

   writeln('| Nilai ',x,'                                  |');

   indeks:=seqsearch(x);

   if indeks <> 0 then

   writeln('| Berada di indeks ke-',indeks,'            |')

   else

   writeln('| tidak ditemukan !');

   writeln('|                                         |');

   writeln('|-------------------------------|');

 end;

 begin

   maks:=maksimum(tabint,n);

   min:=minimum(tabint,n);

   writeln('|                                           |');

   writeln('| Nilai maksimum :             |');

   writeln('| Nilai minimum  :              |');

   writeln('|                                           |');

   writeln('+------------------------------+');

   gotoxy(20,18+(4*(i-1)));writeln(maks);

   gotoxy(20,19+(4*(i-1)));writeln(min);

   readkey;

 end;

end.
2. Screenshot program