0
Hallo, ini adalah contoh coding random number perulangan antara 1 sampai dengan 9 yang dimasukan dalam array.


Program RandomArray;
Var
   A:Array[1..9] Of Integer;
   I,j,N:Integer;
   Found:Boolean;
Begin
     Randomize;
     For I:=1 To 9 Do
     Begin
          N:=Random(9)+1;
          Found:=True;
          While Found Do
          Begin
              Found:=False;
              J:=1;
              While (J<I) And (Not Found) Do
              Begin
                   If A[J]=N Then
                      Found:=True;
                   J:=J+1;
              End;
              If Found Then
                 N:=Random(9)+1;
          End;
          A[I]:=N;
     End;
     For I:=1 To 9 Do
         WriteLn(a[I]);
     ReadLn;
End.

SUMBER

Poskan Komentar

 
Top