1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:

program Nichts;

//freepascal 2.4.2 
{$IFDEF FPC}
  {$Mode delphi}
  {$R-}
  {$I-}
  {$V-}
  {$OPTIMIZATION RegVar}
  {$OPTIMIZATION Peephole}
  {$OPTIMIZATION CSE}
  {$OPTIMIZATION ASMCSE}      
{$ENDIF}  
{$AppType console}

uses
  sysutils;

const
  cZiehungen = 22500000;
  cAnzahlNamen = 4;
  cAnzahlNamen1 = cAnzahlNamen-1;

type
  tIndexNamen = 0..cAnzahlNamen1;
  tNamenFeld = array[tIndexNamen] of string[10];
  tZaehlFeld = array[tIndexNamen] of longint;
  tIndexWahrschFeld = array[tIndexNamen] of double;

const
  cNamen   : tNamenFeld = ('gruen','rot','blau','schwarz');
  cAnteile : tZaehlFeld = (10,30,60,125);//(2,6,12,25);

var
  IndexFeld : array of tIndexNamen;
  ZaehlFeld : tZaehlFeld;
  IndexWahrschFeld : tIndexWahrschFeld;
  T1,T0 : TDateTime;
  SumAnteile,i : longint;

procedure ZaehlfeldLoeschen;
var
  i : longINt;
begin
  For i in  tIndexNamen do
    ZaehlFeld[i] := 0;
end;  

function GesamtAnteile: longInt;
var
  i : longInt;
begin
  result := 0;
  For i in tIndexNamen do
    result := result+cAnteile[i];
end;
  
procedure IndexFeldAufbauen;
var
  i,j,k : longint;
begin
  setlength(IndexFeld,SumAnteile);
  k := 0;
  For i in tIndexNamen do 
    For j := 1 to cAnteile[i] do
      begin
      IndexFeld[k] := i;
      k := k+1;
      end;
end;

procedure IndexWahrschFeldAufbauen;
var
  i,k : longint;
begin
  k := 0;
  For i in tIndexNamen do 
    begin
    k := k + cAnteile[i];
    IndexWahrschFeld[i] := k / sumAnteile;
    end;
end;

procedure ZaehlFeldAusgabe;
var
  i : LongInt;
begin
  For i in tIndexNamen do
    writeln(cNamen[i]:10,ZaehlFeld[i]:11,ZaehlFeld[i]/cZiehungen*sumAnteile:10:3);
end;

procedure IndexZiehungen;
var
  i : longint;
begin
  ZaehlfeldLoeschen;
  For i := 1 to cZiehungen do
    inc(Zaehlfeld[IndexFeld[random(SumAnteile)]]);

  ZaehlFeldAusgabe;
end;

procedure IndexWahrschFeldZiehungen;
var 
  i,j: longint;
  p : double;
begin
  ZaehlfeldLoeschen;
  For i := 1 to cZiehungen do
    begin
    p := random;
    For j in tIndexNamen do 
      if p < IndexWahrschFeld[j] then
        break;
    inc(ZaehlFeld[j]);    
    end;
  ZaehlFeldAusgabe;
end;

begin
sumAnteile := GesamtAnteile;

// Cool and quite abschalten 
for i := 0 to 1000000 do 
  begin
  IndexFeldAufbauen;
  IndexWahrschFeldAufbauen;
  end;

randseed := 47110815;//randomize;
writeln('IndexFeld');
T0 := time;
IndexFeldAufbauen;
IndexZiehungen;
T1 := time;
writeln;
writeln(FormatDateTime('hh:mm:ss.zzz',T1-T0)); 

randseed := 47110815;
writeln('Wahrscheinlichkeitsfeld');
T0 := time;
IndexWahrschFeldAufbauen;
IndexWahrschFeldZiehungen;
T1 := time;
writeln;
writeln(FormatDateTime('hh:mm:ss.zzz',T1-T0)); 

end.
{Ausgabe:
IndexFeld
     gruen    1000930    10.009
       rot    2999414    29.994
      blau    5999577    59.996
   schwarz   12500079   125.001

00:00:00.609
Wahrscheinlichkeitsfeld
     gruen    1000930    10.009
       rot    2999414    29.994
      blau    5999577    59.996
   schwarz   12500079   125.001

00:00:01.107
Drücken Sie eine beliebige Taste . . .}					

1:
2:
3:
4:

Cls: array of integer; //hier sind die Gewichtungen drin
...
Cls[3]:= 17; //Gewichtungen setzen (1x)
...					

1:
2:
3:
4:

R[0]:=Cls[0];
R[1]:=R[0]+Cls[1];
R[2]:=R[1]+Cls[2];
...					

1:
2:

Cls: 1 4 30 17 101 401 
R  : 1 5 35 52 153 554					

1:
2:
3:

R[2] = 35  < 400 //in der Mitte zuerst gucken
R[4] = 153 < 400 //in der Mitte rechts gucken
R[5] = 554 > 400 -> Farbe Nummer 4 ist die gesucht.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

IndexFeld
     gruen     616907    10.008
       rot    1850633    30.021
      blau    3697190    59.977
   schwarz    7702419   124.950
      gelb     801646    13.004
     weisz    7831205   127.040

Laufzeit 00:00:00.605
Wahrscheinlichkeitsfeld
     gruen     616907    10.008
       rot    1850633    30.021
      blau    3697190    59.977
   schwarz    7702419   124.950
      gelb     801646    13.004
     weisz    7831205   127.040

Laufzeit 00:00:00.877
Drücken Sie eine beliebige Taste . . .