6 aus 45

[vlees91]

Delphi-Quellcode:

function zufallsZahlen():Array[0..5] of Integer;
var
  numbers: array[0..5] of integer;
  tempNumber, lastNumber: Integer;
begin
  for lastNumber := 0 to 5 do
  begin
    numbers[lastNumber] := 0;
  end;

  lastNumber := -1;

  while numbers[5] = 0 do
  begin
    tempNumber := random(45) + 1;
    if tempNumber not in numbers then
    begin
      numbers[lastNumber + 1] := tempNumber;
      inc(lastNumber);
    end;
  end;
  result := numbers;
end;

Sowas?