Program Mencari Nilai Maks dan Min Tipe Data Extreme Search

hay hay, nih aku berbagi contoh program extreme search sederhana dan belum sempurna sih . Program disini yaitu mencari nilai maksimum dan nilai minimum dengan tipe data extreme search. Algoritma nyaaa :

http://coretanku-online.blogspot.com/2012/01/pencarian-search-pada-pascal.html#.VSErQCwfq00

de dasar algoritma mencari nilai ekstrim adalah dengan membandingkan nilai elemen pertama array (diasumsikan sebagai nilai ekstrim) dengan nilai elemen-elemen sesudahnya.

Kunjungi Link Sumber: http://coretanku-online.blogspot.com/2012/01/pencarian-search-pada-pascal.html#.VSErQCwfq00

de dasar algoritma mencari nilai ekstrim adalah dengan membandingkan nilai elemen pertama array (diasumsikan sebagai nilai ekstrim) dengan nilai elemen-elemen sesudahnya.

Kunjungi Link Sumber: http://coretanku-online.blogspot.com/2012/01/pencarian-search-pada-pascal.html#.VSErQCwfq00

de dasar algoritma mencari nilai ekstrim adalah dengan membandingkan nilai elemen pertama array (diasumsikan sebagai nilai ekstrim) dengan nilai elemen-elemen sesudahnya.

Kunjungi Link Sumber: http://coretanku-online.blogspot.com/2012/01/pencarian-search-pada-pascal.html#.VSErQCwfq00

Ide dasar algoritma mencari nilai ekstrim adalah dengan membandingkan nilai elemen pertama array (diasumsikan sebagai nilai ekstrim) dengan nilai elemen-elemen sesudahnya.

Kunjungi Link Sumber: http://coretanku-online.blogspot.com/2012/01/pencarian-search-pada-pascal.html#.VSErQCwfq00

Ide dasar algoritma mencari nilai ekstrim adalah dengan membandingkan nilai elemen pertama array (diasumsikan sebagai nilai ekstrim) dengan nilai elemen-elemen sesudahnya.

Kunjungi Link Sumber: http://coretanku-online.blogspot.com/2012/01/pencarian-search-pada-pascal.html#.VSErQCwfq00

    Program extreme_search;
uses crt;
var a, nn : integer;
nilai, total, maksimum, minimum : real;

begin
clrscr;
writeln('Program Pencarian Nilai Maksimum & Minimum');
writeln('******************************************');
total := 0;
write ('Jumlah elemen : '); readln (nn);
writeln;
for a := 1 to nn do

begin
write ('elemen ke ',a,' : '); readln (nilai);
total := total + nilai;
if a = 1 then begin
maksimum := nilai;
minimum := nilai;
end
else begin
if nilai>maksimum then maksimum := nilai
else begin
if nilai<minimum then minimum := nilai;

end;
end;
end;
writeln;
writeln ('Nilai Minimum : ', minimum :1:1 );
writeln ('Nilai Maksimum : ', maksimum :1:1 );
readkey;
end.

Output yang dihasilkan adalah ...



Nah, semoga bermanfaat gays .. indahnya berbagi :)