Ciptakan Bilangan Acak dengan Random dan Randomize

RANDOM
Ada kalanya kita membutuhkan bilangan acak. Misal, untuk membuat program simulasi atau untuk menghasilkan suara acak. Delphi menggunakan perintah random untuk menghasilkan bilangan random.

Ada dua jenis bilangan yang akan dihasilkan, yaitu: bilangan berkoma (floating point number) atau bilangan bulat (integer).

Definisi Random untuk bilangan berkoma adalah:
var
    A : Double;
begin
    A := Random;
 .........................
bilangan yang dihasilkan adalah bilangan berkoma antara 0 s.d 1


Definisi Random untuk bilangan bulat adalah:
var
    B : Int;
begin
  B  := 1 + Random(10)

...........................
bilangan yang dihasillkan pada program diatas adalah bilangan bulat antara 1 sampai 10

RANDOMIZE
Fungsi Random memang menghasilkan bilangan random. Tetapi bilangan random yang dihasilkan akan selalu sama setiap kali program dijalankan. Agar berbeda, Anda harus menambahkan fungsi Randomize.


Contoh:

Program dibawah ini akan menghasilkan dua jenis bilangan random, yaitu bilangan berkoma dan bulat. Jangkuan bilangan berkoma sudah pasti dari 0 sampai dengan 1, sedangkan jangkuan bilangan bulat dari 1 sampai dengan 50;

program BilanganRandom;

{$APPTYPE CONSOLE}

uses
    SysUtils;

var
    A ,I ,BilBul: Integer;
    BilKoma : Double;
begin
    Writeln('Cetak Bilangan Random');
    Writeln('=====================');
    Writeln;
    Write('Batas Cetak: ');
    Readln(A);

    Randomize;
    Writeln;
    Writeln('Random Bilangan Berkoma');
    Writeln('=======================');
    for I:= 1 to A do
    begin
       BilKoma := Random;
       WriteLn(FloatToStr(BilKoma));
    end;

    Writeln; Writeln;
    Writeln('Random Bilangan Bulat');
    Writeln('=======================');
    for I:= 1 to A do
    begin
       BilBul := 1+ Random(50);
       WriteLn(IntToStr(BilBul));
    end;

    Readln;
end.

hasil dari eksekusi:

Ciptakan Bilangan Acak dengan Random dan Randomize 2015-08-12T10:35:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer