AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Lotto HILFE´!!!

Ein Thema von school- delphi · begonnen am 9. Dez 2004 · letzter Beitrag vom 18. Dez 2004
Antwort Antwort
Seite 3 von 4     123 4      
Benutzerbild von fiasko
fiasko

Registriert seit: 10. Dez 2002
Ort: Dresden
506 Beiträge
 
#21

Re: Lotto HILFE´!!!

  Alt 9. Dez 2004, 12:15
Hallo,

Zitat von school- delphi:
also wenn man das so versucht- klappts leider nicht--- unendlich viele zahlen in der listbox erscheinen dann.
Das glaub ich dir nicht Der Rechner hat nur endlichen Speicher

Ich meinte das eher so:

Delphi-Quellcode:
begin
  for i:= 1 to 6 do
  begin
    // Solange Zahlen testen bis wir ein neue noch nicht in der Listbox stehende in Y haben
    repeat
      Y:= random(49)+1;
    until ListBox1.Items.IndexOf(IntToStr(y))=-1;

    ListBox1.Items.Add(inttostr(y));
  end;
end;
[edit]
Verdammt, wieder Bummelletzter
[/edit]
Thomas Liske
Posts comes with ABSOLUTELY NO WARRANTY, to the extent
permitted by applicable law.
  Mit Zitat antworten Zitat
school- delphi

Registriert seit: 9. Dez 2004
13 Beiträge
 
#22

Re: Lotto HILFE´!!!

  Alt 9. Dez 2004, 12:16
Hallo,

vielen Dank erstmal. Leider hat die Version nicht geklappt. Und mein grö0tes Problem ist dass es genau um die menge geht (Hauptbestandteil der Arbeit)
Und die Lottozahlen müssen unabdingbar auch diese arbeitsweisen mit mengen besitzen.

danke aber
grüße
lisa
  Mit Zitat antworten Zitat
Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#23

Re: Lotto HILFE´!!!

  Alt 9. Dez 2004, 12:19
Hi Lisa,

in dem Fall solltest du dir mal die Hilfe zu Mengen ansehn. Ein Beispiel mit mengen:

Delphi-Quellcode:
var Menge: set of Byte;
    i: Integer;
begin
  Menge := []; //Menge initialisieren
  Randomize; //Zufallsgenerator initialisieren
  for i := 1 to 6 do
    repeat
      y := Random(49)+1; //Zahl generieren
    until y not in Menge; //Ueberpruefen ob Zahl schon in Menge
    Menge := Menge + [y]; //Zahl zu Menge hinzufuegen
    ListBox1.Items.Add(IntToStr(y)); //Zahl zu Listbox hinzufuegen
  end;
end;
Wichtig: Ich hab den Code nicht getestet, er sollte aber funktionieren.

Greetz
alcaeus
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat
school- delphi

Registriert seit: 9. Dez 2004
13 Beiträge
 
#24

Re: Lotto HILFE´!!!

  Alt 9. Dez 2004, 12:20
DANKE

also jetzt klappt das mit dem überprüfen anhand dem index.
Nur ich muss leider mit den mengen arbeiten.
Leider weiß ich überhaupt nichts mit dem until not anzufangen, obwohl das der Lehrer ausdrücklich betont hat.

Aber vielen vielen dank
Lisa
  Mit Zitat antworten Zitat
Benutzerbild von Treffnix
Treffnix

Registriert seit: 25. Jun 2003
Ort: AC
740 Beiträge
 
Delphi 7 Professional
 
#25

Re: Lotto HILFE´!!!

  Alt 9. Dez 2004, 12:24


Das letzte Beispiel von alcaeus arbeitet doch mit Mengen und repeat. Im Grunde ist das schon deine Lösung.
  Mit Zitat antworten Zitat
Benutzerbild von Orbmu2k
Orbmu2k

Registriert seit: 29. Nov 2004
Ort: Erfurt
254 Beiträge
 
Turbo Delphi für Win32
 
#26

Re: Lotto HILFE´!!!

  Alt 9. Dez 2004, 12:27
Code von alcaeus berichtigt ...

Delphi-Quellcode:
var
  Menge: set of Byte;
  i,y: Integer;
begin
  Menge := []; //Menge initialisieren
  Randomize; //Zufallsgenerator initialisieren
  for i := 1 to 6 do
  begin
    repeat
      y := Random(49)+1; //Zahl generieren
    until not (y in Menge); //Ueberpruefen ob Zahl schon in Menge
    Menge := Menge + [y]; //Zahl zu Menge hinzufuegen
    ListBox1.Items.Add(IntToStr(y)); //Zahl zu Listbox hinzufuegen
  end;
end;
  Mit Zitat antworten Zitat
school- delphi

Registriert seit: 9. Dez 2004
13 Beiträge
 
#27

Re: Lotto HILFE´!!!

  Alt 9. Dez 2004, 12:28
Hallo
die Lösung von alcaeus ist total super und verständlich. Erstmal herzlichen Dank - nur in der Zeile mit dem until not tauchen folgende Fehler auf:

[Fehler] Unit1.pas(41): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(41): Operator ist auf diesen Operandentyp nicht anwendbar

Ich glaube ich schicke nochmal den ganzen quellcode- wie geht das mit dem delpgi tags

vielen dank liebe delphi- Könner
Lisa
  Mit Zitat antworten Zitat
bigg
(Gast)

n/a Beiträge
 
#28

Re: Lotto HILFE´!!!

  Alt 9. Dez 2004, 12:29
Ich weis nicht, aber man hätte ja auch suchen können.
http://www.delphipraxis.net/search.p...69127&start=0&
  Mit Zitat antworten Zitat
Benutzerbild von Treffnix
Treffnix

Registriert seit: 25. Jun 2003
Ort: AC
740 Beiträge
 
Delphi 7 Professional
 
#29

Re: Lotto HILFE´!!!

  Alt 9. Dez 2004, 12:31
@ Bigg: "Keine Beiträge entsprechen Deinen Kriterien."

@ school - delphi: beim Beitrag erstellen oben den Button "Delphi-Code" drücken, Quelltext einfügen und nochmal den gleichen Button drücken
  Mit Zitat antworten Zitat
school- delphi

Registriert seit: 9. Dez 2004
13 Beiträge
 
#30

Re: Lotto HILFE´!!!

  Alt 9. Dez 2004, 12:34
Hallo

es klappt jetzt--- ihr seid echt super
vielen herzlichen dank

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);

 var
  Menge: set of Byte;
  i,y: Integer;
begin
  Menge := []; //Menge initialisieren
  Randomize; //Zufallsgenerator initialisieren
  for i := 1 to 6 do
  begin
    repeat
      y := Random(49)+1; //Zahl generieren
    until not (y in Menge); //Ueberpruefen ob Zahl schon in Menge
    Menge := Menge + [y]; //Zahl zu Menge hinzufuegen
    ListBox1.Items.Add(IntToStr(y)); //Zahl zu Listbox hinzufuegen
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 4     123 4      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:25 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz