Tugas Praktikum Ke-5 Algoritma Pemrograman II

1. Source Code
    program searching;
    uses crt;
      label awal;
      var pil:char;
            lg :char;

     const nmin =1;
       nmax =100;

     type arrint = array [nmin..nmax] of integer;
     var tabint : arrint;
     x,n,i,indeks,max,min,maks : integer;

     function seqsearch1(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
         seqsearch1:=i
         else
         seqsearch1:=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;
       write('Masukkan Jumlah Data = '); readln(n);
       writeln;
      clrscr;
      for i:=1 to n do
      begin
        write('   Data[',i,'] = '); readln(tabint[i]);
      end;
      writeln;
         write ('  Nilai yang dicari : '); readln(x);
      indeks:=seqsearch1(x);
      if indeks <> 0 then
      write ('  Nilai : ',x,' ditemukan pada indeks ke-',indeks)
       else
      write('   Nilai : ',x,'tidak ditemukan !');
      writeln;

      begin
       writeln;
       maks:=maksimum(tabint,n);
       min:=minimum(tabint,n);
       writeln;
       writeln ('  Nilai maksimum : ',maks);
       writeln ('  Nilai minimum  : ',min );
      readkey;
      end;
     end.

2. Output Program
    2.1 Input Jumlah Data

 Gambar 2.1

    2.2 Input Data

Gambr 2.2

    2.3 Input Nilai yang Ingin Dicari

Gambar 2.3

     2.4 Output Hasil Data

Gambar 2.4