würfeln mit 2 Würfeln (Gauss-Verteilung)

[turningdog]

kannst du mir sagen ob ich auf dem richtigen weg bin oder ganz falsch. ich hab sowas noch nie gemacht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
image2.canvas.rectangle(5,(zahl[1])*10,40,10);
image2.canvas.rectangle(80,(zahl[2])*10,50,10);
end;