Program pencarian data dan nilai maksimum

Contoh program eksquenstial dan extrem 

• Input
• Proses
• Output

a. Tampilan saat program dijalankan

(gambar 1)

b. Tampilan saat menginput banyak data

(gambar 2)

c. Tampilan saat menginputkan data-data

(gambar 3)

d. Tampilan saat menginput data yang ingin dicari

(gambar 4)

e. Tampilan saat menekan tombol ENTER untuk melihat hasil data

(gambar 5)

1.       

2.       3.       

4.           

6.       

 Source Code

8.      Program pencarian; 9.      uses crt; 10.  type array1D=array [1..10] of integer; 11.  var  arr:array1D; 12.       a:array1D; 13.       i,hsl,n,cr,maks,mini:integer; 14.  function SequentialSearch(arr:array1D; n,cari:integer):integer; 15.  var i,hasil:integer; 16.  begin 17.   hasil:=0; 18.    for i:=1 to n do 19.     begin 20.      if arr[i] = cari then 21.      begin 22.       hasil:=i; 23.      end; 24.     end; 25.  sequentialSearch:=hasil; 26.  end; 27.  function maximum(a:array1D; n:integer):integer; 28.  var max:integer; 29.  begin 30.   for i:=2 to n do 31.    if max<a[i] then max:=a[i]; 32.    maximum:=max; 33.  end; 34.  begin 35.  clrscr; 36.  write('Banyak Data: ');readln(n); 37.    for i:=1 to n do 38.    begin 39.    writeln; 40.    write('Nilai ke- ',i,' : ');readln(a[i]); 41.    end; 42.    writeln; 43.    write('Data yang dicari: ');readln(cr); 44.    writeln; 45.    hsl:= SequentialSearch(a,n,cr); 46.    writeln('> Data ada pada index ke- ',hsl); 47.    maks:=maximum(a,n); 48.    writeln; 49.    writeln('> Nilai Max data: ',maks); 50.    writeln; 51.    readln; 52.  end.