Mesran

Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain.

Mencari Bilangan Terkecil dan Terbesar (PASCAL)

Dibawah ini program untuk mencari bilangan terbesar dan terkecil.

Web Hosting Murah Indonesia | Web Hosting Murah dan Handal

Uses crt;
Var bil:array[1..100] of integer;
max,min,i,n:integer;

Begin
     Write('Masukkan jumlah bilangannya gan = '); readln(n);
     Max:=1;
     Min:=30000;

     For i:=1 to n do
     Begin
          {Menginputkan Nilai Bilangan Ke I}
          Write('Bilangan ke ',i,' = '); readln(bil[i]);

          {Mencari Bilangan Terbesar}
          If bil[i]>Max then Max := bil[i] ;

          {Mencari Bilangan Terkecil}
          If bil[i]<Min then Min := bil[i] ;

     End;

     Writeln('Bilangan Terbesar = ', Max);
     Writeln('Bilangan Terkecil = ', Min);
     Readln ;
End.
Selamat Mencoba :D

Artikel Terbaru


Advertisements

Filed under: Pemrograman Pascal,

Terima kasih telah memberikan komentar anda.

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Archives Per Tahun

%d bloggers like this: