Einzelnen Beitrag anzeigen

Reap3r

Registriert seit: 19. Mär 2009
87 Beiträge
 
#8

Re: Zahlen nur einmal vorkommen lassen

  Alt 28. Apr 2010, 22:47
Ich hab mir überlegt das ganze so zu gestalten, aber irgendwas stimmt nicht.

Delphi-Quellcode:
 var a: array [1..13] of integer;
 var i, x, j : integer; ok: boolean;
begin
 fori:=1 to 13 do
  begin
   x:= random(13)+1;
   ok:= true;
   for j:=1 to 13 do
    if x = a[j]
     then ok:= false;
   if ok then a[i] := x;
end;
end;
  Mit Zitat antworten Zitat