Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: randomize problem

    Delphi
    by himitsu, 3. Nov 2009
  so als Tipp () man darf auch sich bei Anderen Tipps holen ... aka Abgucken
  
  Lotto
• Forum: Object-Pascal / Delphi-Language

  Re: randomize problem

    Delphi
    by himitsu, 2. Nov 2009
  tja, erst Runden und dann mit +0.5 den Fehler wieder ausmerzen ...
  kennt ihr schon Trunc? :mrgreen:
  
  ein bissl dynamischer für noch mehr input
  und auch noch Trunc+Random, sowie RandomRange reingemacht
  
  
  schon schlimm, wie die OH-Beschreibung vom Code abweicht :wall: (RandomRange)
• Forum: Object-Pascal / Delphi-Language

  Re: randomize problem

    Delphi
    by himitsu, 2. Nov 2009
  Dann stimmt aber die Implementierung nicht, denn
  RandomRange gibt einen zufälligen Integer-Wert im Bereich von AFrom bis ATo zurück (inklusive)
• Forum: Object-Pascal / Delphi-Language

  Re: randomize problem

    Delphi
    by himitsu, 2. Nov 2009
  @Wolfgang: joar, immer dieses gemeine C&P :oops:
  
  @helgew:
  stümmt, aber irgendwie hatte ich es zu sehr "vereinfacht"
  
  Random(49) + 1 = RandomRange(1, 49) = 1 bis 49
  und das unter Beibehaltung der "Gleichverteilung"
• Forum: Object-Pascal / Delphi-Language

  Re: randomize problem

    Delphi
    by himitsu, 2. Nov 2009
  macht nix ... ihr hatte zumindestens die ursprüngliche Rechnung beibehalten
  random(49) und dann die 0 ignorieren macht Max(Random(49), RandomRange(1, 49))
  und dieses entspricht random(48)+1 *tröst*
  
  Aber bei "6 aus 49" aka "6 mal 1..49" ist eigentlich:
  random(49) = 0..48
  random(49) + 1 = 1..49
  
  
  PS: ansonsten ist das da oben aber "6 * 1 aus 49" und nicht "6 aus 49"
• Forum: Object-Pascal / Delphi-Language

  Re: randomize problem

    Delphi
    by himitsu, 2. Nov 2009
  random(49) + 1 = 1 bis 49
  
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  randomize;
  
  for i := 1 to 6 do begin
  test := random(49);