Program Ekstrim Search Bahasa Pascal

Hai, hari ini akan saya posting contoh bahasa pemrograman Pascal mengenai Searching(pencarian) ekstrim search berdasarkan inputan data...
algoritma mencari nilai ekstrim adalah perbandingan antara nilai elemen pertama array (diasumsikan sebagai nilai ekstrim) dengan nilai elemen-elemen sesudahnya.

Berikut contoh untuk mencari nilai maksimum :

program ekstrim_search;
uses crt;
type
  arrint = array [1..100] of integer;
var
  maks   : integer;
  tabint : arrint;
  nn, i  : integer;
  function maksimum(tabint : arrint; n : integer) : integer;
  var
    i   : integer;
    max : integer;
  begin
    for i:=1
     to n do
      if max< tabint[i] then
        max:= tabint[i];
    maksimum:=max;
  end;

begin
  clrscr;
  write('jumlah elemen = '); readln(nn);
  writeln;
  for i:= 1 to nn do
    begin
      write('elemen ke-',i,' = '); readln(tabint[i]);
    end;
  maks:= maksimum(tabint, nn);
  writeln('nilai Maksimum = ',maks);
writeln;
writeln('Selamat Berkarya ya');
readln;
end.

Berikut hasil running programnya :

 

Untuk mempermudah dalam penulisan kode program, Anda cukup mengkopi kode programnya, lalu paste kan ke notepad dan simpan dengan ekstensi .pas  

contoh :      ekstrim.pas

jika terjadi kesalahan dalam program, mohon di komen agar bisa kami perbaiki, oce kawan :D 

Silahkan dikembangkan lebih jauh lagi, karna kami hanya menyediakan program-program sederhana untuk dikembangkan oleh para pembaca sekalian...

mohon maaf apabila ada salah-salah kata dari kami ya!!
Terima Kasih  :D  

Sudah Baca Yang Ini..?