HAUSAUFAGBEN Feld mit Zufallsfolge von Zahlen

[Chris1986]

Hi
Ich bin auch in Wahnalarms Info-Kurs. Um euch aufzuklären poste ich mal die Type-Deklaration und meine Lösung:

Delphi-Quellcode:

Const
  Stufenstaerke = 100;
Type
  TZufall = Array[1..Stufenstaerke] of word;

procedure bilde_zahlenfolge (VAR was: TZufall; Anzahl_Schueler: word);
var vorhanden: Array[1..Stufenstaerke] of boolean;
    lauf: word;
    zufall: word;
    eingetragen: boolean;
begin
  for lauf := 1 to Anzahl_Schueler do
  begin
    eingetragen := false;
    while not eingetragen do
    begin
      Zufall := random(Anzahl_Schueler)+1;
      if vorhanden[zufall] = false
        then begin
               was[lauf]         := zufall;
               vorhanden[zufall] := true;
               eingetragen       := true;
             end;
    end;
  end;
end;

Das ganze habe ich noch nicht in Delphi getestet, aber von der Struktur her sollte es funktionieren.

MfG
Christian