Ich benötige den "Zufall"

splinter1990 · Hält's aus hier Beiträge: 2

Also ich habe da ein Problem:Ich muss etwas programmiern,bei dem immer zwei personen einander zugewiesen werden.Also ich wollte das mit zahlen machen,sodass 2 von 12 leuten immer die selbe zahl haben ich weiß aber nicht wie das geht.ich glaube man macht das am besten mit einem array aber so genau weiß ich das auch nicht :cry:

Moderiert von AXMD: Topic aus Algorithmen, Optimierung und Assembler verschoben am Sa 26.03.2005 um 22:11

huhn · Beiträge: 272 Erhaltene Danke: 1 WIN XP D7Pers

also zufall in delphi heist randomize bzw random(zahl)
ausm kopf

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure button1click;
var per1,per2,lauf:integer;
begin
randomize;
per1:=random(11)+1;
repeat
per2:=random(11)+1;
until per1<>per2;
showmessage('Dieser Person:'+inttostr(per1)+'und diese person:'+inttostr(per2));
end;

is mal en ansatz um die 2 personen zu ermitteln.
mfg huhn

_________________
Quod Erat Demonstrandum-Was zu beweisen war! *THX to Chrissivo!*

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme