IF checkbox1.checked=true THEN //von unten nach oben auftragen
begin
...
FOR i:=0 TO image1.width-1 DO
begin
r:=random(bereich);
inc(zaehler[r]); //inkrementiert den Zählerplatz i um die Zufalsszahl r
IF checkbox3.checked=true THEN image1.canvas.pen.color:=clred;
IF checkbox4.checked=true THEN image1.canvas.pen.color:=clgreen;
IF checkbox5.checked=true THEN image1.canvas.pen.color:=clblue;
image1.canvas.moveto(i,200); //nach unten links fahren
image1.canvas.lineto(i,200-r); //Linie ziehen zur Zufallszahl
anzzz:=anzzz+1;
mittelwert:=mittelwert+r;
end;
Delphi-Quellcode:
1: statt if CheckBox1.Checked=True then // es genügt if CheckBox1.Checked then
2: statt Inc(zaehler[r]) // müsste es nicht zaehler[i]:=Random(bereich) heissen?
3: if CheckBox3.Checked=True, ... // siehe 1
4: mittelwert:=mittelwert+zaehler[i] // somit ist r überflüssig
Warum müssen die Farben nach jedem Schleifendurchlauf gesetzt werden? Reicht dies nicht einmal vor Beginn der Schleife?