Hari ini saya akan berbagi program tentang pencarian nilai maksimum dan minimun dengan menggunakan Extreme Search pada Pascal.
Sederhana saja programnya.
Semoga Bermanfaat ^^
Source Code
Berikut source code dari program ini. saya menggunakan aplikasi Free Pascal IDE, apabila tidak mau compile, maka disesuaikan dengan aplikasi yang Anda gunakan
Program
Extreme_Search;
uses
crt;
Type
arrint=array[1..100] of integer;
var
maks : integer;
mini
: integer;
tabint : arrint;
i,nn
: 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;
Function
minimum(tabint:arrint; n:integer): integer;
var
min : integer;
begin
for i:=n downto 1 do
if min>tabint[i] then
min:=tabint[i];
minimum:=min;
end;
Begin
clrscr;
gotoxy(15,1);
writeln('>>> PROGRAM MENEMUKAN
NILAI MAKSIMUM DAN MINIMUM <<<');
writeln;
write
('Jumlah elemen = '); readln(nn);
for i:=1 to nn do
begin
write('Elemen ke-',i,' = ');
readln(tabint[i]);
end;
writeln;
maks:=maksimum(tabint,nn);
mini:=minimum(tabint, nn);
writeln('Nilai Maksimum = ',maks);
writeln('Nilai Minimum = ',mini);
readln;
End.
|
Output
Berikut tampilan program
Selamat Memahami dan semoga sukses. :)
Tidak ada komentar:
Posting Komentar