Bilangan terbesar dan terkecil

Posted: 10 Mei 2010 in Algoritma Pemrograman

>menentukan Bilangan terbesar dan terkecil dengan array menggunakan pascal

Program terbesar_terkecil_array;
uses wincrt;
var
dafbil:array[1..100] of integer;
terbesar :integer;
terkecil :integer;
i,n :integer;
begin
write(‘Masukkan cacah bilangan =’);readln(n);
for i:= 1 to n do
begin
write(‘Bilangan ke ‘,i,’ = ‘);readln(dafbil[i]);
end;
terbesar:=dafbil[1];
terkecil:=dafbil[1];
for i:= 1 to n do
if dafbil[i] > terbesar then
terbesar:=dafbil[i]
else
if dafbil[i] < terkecil then
terkecil:=dafbil[i];
writeln(‘Bilangan terbesar =’,terbesar);
writeln(‘Bilangan terkecil =’,terkecil);
end.


syntax pascal klik disini.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s