Contoh Program Pascal untuk Bilangan Acak yang Berbeda

Bilangan acak merupakan bilangan yang tidak dapat diprediksi secara pasti dan terjadi secara kebetulan. Dalam pemrograman, bilangan acak sering digunakan untuk menghasilkan data atau nilai yang tidak diketahui sebelumnya atau untuk menghasilkan tindakan yang tidak dapat diprediksi secara pasti. Contohnya, bilangan acak dapat digunakan dalam permainan komputer untuk menentukan hasil dari suatu aksi, seperti menentukan hasil dari kocokan dadu atau pemilihan kartu dalam permainan kartu.

Bilangan acak sangat penting dalam pemrograman karena memungkinkan kita untuk menghasilkan data atau tindakan yang tidak terduga, sehingga membuat aplikasi atau program yang dibuat lebih menarik dan tidak terlalu monoton. Selain itu, bilangan acak juga dapat digunakan dalam pengujian aplikasi atau program untuk memastikan bahwa aplikasi atau program tersebut dapat bekerja dengan baik di bawah kondisi yang tidak diketahui sebelumnya.

Berikut ini contoh program bilangan acak yang berbeda dalam bahasa pemrograman Pascal.

Baca juga: Program Pascal untuk Metode Simpson 3/8

program bilangan_acak;

uses crt;

var i,j,k,a,b : integer;

    acak : array[1..50] of integer;

    cek : integer;

function cekada(p, bil:integer) : integer;

begin

    cek:=0;

    for k:=1 to p do

    if acak[k] = bil then cek:=1;

    cekada:=cek;

end;

begin

    clrscr;

    randomize;

    for i:=1 to 6 do

    begin

        a:=random(6)+5;

        writeln('a_',i,' = ',a);

    end;

    writeln;

    b:=random(16)+20;

    acak[1]:=b;

    writeln('b_1 = ',acak[1]);

    for j:=2 to 16 do

    begin

        b:=random(16)+20;

        while cekada(j,b) = 1 do

        b:=random(16)+20;

        acak[j]:=b;

        writeln('b_',j,' = ',acak[j]);

    end;

    readkey;

end.