Losowanie liczb w tablicy - Kilka prostych poleceń

W tym artykule postaram się przedstawić oraz w miarę możliwości wyjaśnić działanie poniższego kodu.

Zacznijmy od określenia bloku VAR:

var
Tab :Array [1..10] of Integer; 
Pom :Array [1..22] of Byte;  
Buff :Integer;

W tym miejscu warto objaśnić znaczenie zmiennych :

• Tablica Tab - Określa ilość liczb które chcemy wylosować.
• Tablica Pom - Będzie przyjmowała dwa stany 0 i 1 gdzie 0 będzie znaczyło że liczby jeszcze nie wylosowaliśmy, a 1 znaczy że liczbę już wcześniej wylosowaliśmy.
• Zmienna Buff - Będzie się tam kryła wylosowana liczba.

A teraz przejdźmy do kodu:

Na samym początku musimy wyzerować tablice pom:

For i:=1 to 22 do
    begin
      Pom[i]:=0 ;
    end;

Następnie możemy już losować nasze liczby :

Randomize;  
  For i:=1 to 10 do 
    begin
      Repeat Buff:=Random(22)+1; until (pom[Buff]=0) ;
      Tab[i]:=Buff;          
      pom[buff]:=1 ;        
    end;

Zakres tablicy Pom musi odpowiadać ilości liczb które chcemy losować. Czyli jeżeli chcemy losować spośród 100 liczb tablica ta musi być w zakresie [1..100]

A teraz kilka słów objaśnienia:

Określamy ile liczb wylosujemy, służy do tego pętla for to do. Następnie losowana jest liczba która zostaje zapisana do 'Tymczasowej' zmiennej buff, liczba ta ma swoje miejsce w tablicy pom. Jeśli pom=0 wtedy przypisywana jest liczba w buff do tablicy Tab a tablicy pom o indeksie buff zostaje nadana wartość 1 - co oznacza ze taka liczba została wylosowana. Jeśli na samym początku pom o indeksie buff wynosi 1 wtedy następuje ponowne losowanie i tak do skutku.

W całości nasz program powinien wygladac tak:

program foo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
Tab :Array [1..10] of Integer;
Pom :Array [1..22] of Integer;
Buff :Integer;
begin
  For i:=1 to 22 do
    begin
      Pom[i]:=0 ;
    end;
  Randomize;
   For i:=1 to 10 do 
    begin
      Repeat Buff:=Random(22)+1; until (pom[Buff]=0) ;
      Tab[i]:=Buff;          
      pom[buff]:=1 ;        
    end;
end.