Tutorial Menentukan Bilangan Maksimal / Bilangan Terbesar

Baiklah.
Kali ini saya akan share tentang bagaimana Script untuk menentukan Bilangan Maksimal / Bilangan Terbesar.
Disini, saya akan memberi 2 Cara. Pertama yaitu dengan menggunakan kondisi (If...Then), dan kedua dengan menggunakan Array (larik).

Keduanya akan megahasilkan hasil output / keluaran yang sama namun, script dengan menggunakan kondisi lebih terbatas. Karena itu saya batasi dengan "Menentukan Bilangan Maksimal dari 3 Angka"
Berikut adalah Scriptnya :

uses wincrt;
var x, y, z, maks : integer;
begin
     writeln;
     writeln ('## Program Menentukan Nilai Terbesar Dari 3 Angka ##');
     writeln;
     write ('                  masukkan angka = ');
     readln (x);
     write ('                  masukkan angka = ');
     readln (y);
     write ('                  masukkan angka = ');
     readln (z);
     if x > y then
        begin
        if x > z then
           write ('               Nilai terbesar / maks = ',x)
        end
     else if z > y then
           write ('               Nilai terbesar / maks = ', z)
     else if y > z then
           write ('               Nilai terbesar / maks = ', y);
end

###====###

Berikut dengan menggunakan Array :

uses wincrt;
type larik = array [1..10] of integer;
var data : larik;
    i,n,max: integer;
   
    begin
    writeln;
    writeln;
    writeln('                    _______________________________________________');
    writeln('                   ~|      Program Menampilkan Bilangan Maximal    |~');
    writeln('                    _______________________________________________');
    writeln;
    writeln('                                      By: v3©2011');
    writeln;  
    writeln;
    write('Masukkan banyak angka= ');
    readln(n);
    writeln;
    for i := 1 to n do
          begin
               write('Masukkan angka ke',i,' : ');
               readln(data [i]);
          end;
    max := data[i];
    for i := 1 to n do
          begin
               if data [i] > max then
                  begin
                  max := data [i];
                  end;
          end;
    writeln;
    writeln('Nilai maksimal = ',max);
    readln;
    end.

Silahkan mencoba...
Jika ada pertanyaan bisa kontak saya di @v3biebs on twitter