Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: nochmal n-maliges Würfeln

    Delphi
    by Thorben_K, 4. Feb 2007
  ich würde das eher Optimierung nennen, oder die verbesserung der Lesbarkeit des Codes, aber eigentlich hast du bei einem so einfachen Programm recht. Da ich aber grade lust zu hatte, hab ich meinen ansatz mal weiter entwickelt :)
  
  16.66 % wenn man das ausrechnet wie oft eine Zahl kam, mist mein Mathe lehrer hatte recht ;)
• Forum: Object-Pascal / Delphi-Language

  Re: nochmal n-maliges Würfeln

    Delphi
    by Thorben_K, 4. Feb 2007
  Altanative ginge auch noch
  
  procedure TForm1.Button1Click(Sender: TObject);
  var
  zahlen : array of LongInt;
  wurf, i, count : LongInt;
  Comp : TComponent;
  begin
  
  randomize;
• Forum: Object-Pascal / Delphi-Language

  Re: nochmal n-maliges Würfeln

    Delphi
    by Thorben_K, 4. Feb 2007
  ich weiss nicht wie du das anstellen willst, du kannst doch einem String nicht die Zahl 1 addieren.... So geht das auf keinen fall.
  
  
  procedure TForm1.Button1Click(Sender: TObject);
  var a,b,c,d,e,f,g,h,i:Integer;
  begin
  a:=strtoint(Edit1.Text);
  d:=0; e:=0; f:=0; g:=0; h:=0; i:=0;
  randomize;