Hallo liebe Delphi-Praxis User.
Ich brauche eure Hilfe.
In der Schule arbeiten wir momentan mit dem Programm "Turbo Pascal" und irgendwie werden wir nicht so richtig Freunde.
Heute in der Schule sollten wir dann einen "Lotto Rechner" schreiben.
Unser Lehrer schrieb uns das meiste an der Tafel vor und wir durften abschreiben.
Mein eigentliches Problem ist nun, dass ich zuhause weiter arbeiten soll und mein Vista 64 Bit das TP nicht mag.
Zur nächsten Woche sollen wir die ausgegebenen Zahlen sortieren lassen.
Hierzu habe ich auch schon diverse Verfahren gefunden. Unser Lehrer riet uns zum "Bubble Sort".
Hierzu fand ich hier in der Code-Library diesen Link: http://www.delphipraxis.net/internal...ect.php?t=6237
Nun weiß ich jedoch nicht, wie ich das 1. in Turbo Pascal übersetzen kann und 2. testen kann ich es leider auch nicht, da es bei mir nicht funktioniert.
Hier mal den Source aus der Schule:

markieren

Code:

program lottozahlen;
uses crt;
var lotto:array [1..6] of integer;
    i:integer;

procedure ziehung;
Begin

  for i:=1 to 6 do
  Begin
  lotto[i]:=1+random(49); {1+0-48}
  End;
End;

Begin
Textbackground(Black);Textcolor(white);
  clrscr;
  randomize;
  ziehung;
  if (lotto[1]=lotto[2]) or (lotto[1]=lotto[3]) or (lotto[1]=lotto[4])
  or (lotto[1]=lotto[5]) or (lotto[1]=lotto[6]) or (lotto[2]=lotto[3])
  or (lotto[2]=lotto[4]) or (lotto[1]=lotto[5]) or (lotto[2]=lotto[6])
  or (lotto[3]=lotto[4]) or (lotto[3]=lotto[5]) or (lotto[3]=lotto[6])
  or (lotto[4]=lotto[5]) or (lotto[4]=lotto[6]) or (lotto[5]=lotto[6])
  then ziehung
  else         {Vor else nie ein Simikolon :-)}
Begin
  gotoxy(28,25);

  for i:=1 to 6 do
  Begin
  write(lotto[i],' ');
  End;
End;
  readkey;
End.

Ich hoffe, dass jemand von euch mir weiterhelfen kann. In 1-2 Wochen werden wir dann hoffentlich mit Delphi anfangen, denn das läuft Flüssig auf meinem Pc .

MfG,
Christian

Guten Abend,

schau mal hier

und die vielen or willst Du doch sicherlich nicht so lassen.
Wäre es nicht einfacher das Array nach der gezogenen Zahl zu durchsuchen?

Grüße
Klaus

Hi,

also
erstens :solltest nicht nur "eine" Zahl ziehen sondern 6
zweitens:schau dir mal die Befehle Repeat Until an..die helfen dir da
drittens: nen Zaehler..der bei "doppelt auftretenden Zahlen evtl. "nicht" erhoeht wird in der Schleife.

P.S.: Turbopascal geht doch "Flott" auf sonem "neuen" rechner..kannste flink kompilieren *ggg*

Zitat von Klaus01:

die vielen or willst Du doch sicherlich nicht so lassen.

Hauptsache es funktioniert.

Zitat von Der.Kaktus:

solltest nicht nur "eine" Zahl ziehen sondern 6
zweitens:schau dir mal die Befehle Repeat Until an..die helfen dir da
drittens: nen Zaehler..der bei "doppelt auftretenden Zahlen evtl. "nicht" erhoeht wird in der Schleife.

P.S.: Turbopascal geht doch "Flott" auf sonem "neuen" rechner..kannste flink kompilieren *ggg*

Er zieht auch 6 Zahlen und nicht nur eine . Wurde von mir in der Schule getestet.
Bei doppel Zahlen macht er auch einen neuen Wurf, also alle Zahlen nochmal neu und zeigt die vorherigen nicht an.
Das einzigste was fehlt ist ebend die Sortierung von klein nach groß.
Ich hab einen "neueren" Rechner. Habe auch schon versucht eine VM in gang zu bringen, aber irgendwie wollte das nicht so wie ich.

MfG,
Christian

Zitat von crisbinfranke:

Bei doppel Zahlen macht er auch einen neuen Wurf, also alle Zahlen nochmal neu und zeigt die vorherigen nicht an.

Damit ist aber nicht sichergestellt, dass bei der zweiten Ziehung alle Zahlen unterschiedlich sind.
Wäre es da nicht sinnvoller schon bei der Ziehung zu schauen ob eine Zahl schon gezogen wurde
und dann nur für diese Zahl einen weitere ziehen.
Das dann solange wiederholen bis alle 6 Zahlen unterschiedlich sind.

Grüße
Klaus

Zitat von Klaus01:

Zitat von crisbinfranke:

Bei doppel Zahlen macht er auch einen neuen Wurf, also alle Zahlen nochmal neu und zeigt die vorherigen nicht an.

Damit ist aber nicht sichergestellt, dass bei der zweiten Ziehung alle Zahlen unterschiedlich sind.
Wäre es da nicht sinnvoller schon bei der Ziehung zu schauen ob eine Zahl schon gezogen wurde
und dann nur für diese Zahl einen weitere ziehen.
Das dann solange wiederholen bis alle 6 Zahlen unterschiedlich sind.

Grüße
Klaus

genau..er zieht 6 Zahlen..aber!!! wenn doppelte sind..wird nur!!! die erste behandelt und somit neu gezogen.

Zitat von crisbinfranke:

Mein eigentliches Problem ist nun, dass ich zuhause weiter arbeiten soll und mein Vista 64 Bit das TP nicht mag.

Hast du mal versucht, TurboPascal in Dosbox zu installieren?

Zitat von Klaus01:

Zitat von crisbinfranke:

Bei doppel Zahlen macht er auch einen neuen Wurf, also alle Zahlen nochmal neu und zeigt die vorherigen nicht an.

Damit ist aber nicht sichergestellt, dass bei der zweiten Ziehung alle Zahlen unterschiedlich sind.
Wäre es da nicht sinnvoller schon bei der Ziehung zu schauen ob eine Zahl schon gezogen wurde
und dann nur für diese Zahl einen weitere ziehen.
Das dann solange wiederholen bis alle 6 Zahlen unterschiedlich sind.

Grüße
Klaus

Das wäre natürlich einfacher, aber ich hab keine Ahnung.
Wie gesagt, er hat uns "vorgeschrieben" und ein bisschen erklärt und wir haben "abgeschrieben" und Hasuaufgabe ist ebend die Sortierung einzubauen und weil das Programm ja nicht bei mir läuft ist das irgendwie nicht das gelbe vom Ei.

Zitat von NamenLozer:

Zitat von crisbinfranke:

Mein eigentliches Problem ist nun, dass ich zuhause weiter arbeiten soll und mein Vista 64 Bit das TP nicht mag.

Hast du mal versucht, TurboPascal in Dosbox zu installieren?

Nein noch nicht probiert. Werde ich mal testen.

MfG,
Peter

Zitat von crisbinfranke:

Habe auch schon versucht eine VM in gang zu bringen, aber irgendwie wollte das nicht so wie ich.

Sollte doch funktionieren:
1. vmplayer laden und installieren
2. unter www.easyvmx.com Startdateien erstellen lassen
3. dos installieren
4. Turbo Pascal installieren

Grüße
Klaus

Hallo Christian,

für Lottozahlen bietet sich der Datentyp Menge also "set of" an.
Durch das Auslesen mit der Abfrage "IN" erübrigt sich das Sortieren.

zusammenfalten · markieren

Delphi-Quellcode:

program lottozahlen;
uses crt;

type
  TLottozahl = 1..49;
  TLottotipp = set of TLottozahl;

var Lottozahl: TLottozahl;
    Lottotipp: TLottotipp;
    i:integer;

begin
  Lottotipp := []; { Der Lottotipp ist zunächst die Leere Menge }                  

  Randomize;
  for i:=1 to 6 do { Es werden 6 Lottozahlen gezogen }
    begin
      Repeat
        Lottozahl := Random(49)+1; { Wird so lange wiederholt bis eine neue Zahl gefunden wird }
      Until not(Lottozahl in Lottotipp);
      Lottotipp := Lottotipp + [Lottozahl]; { Vereinigungsmenge aus Lottotipp und der neuen Lottozahl }
    end;

  for Lottozahl:=1 to 49 do
    begin
      if Lottozahl in Lottotipp then { Sucht die gezogenen Zahlen der Größe nach heraus }
         write( Lottozahl , ' ' );
    end;
end.

Kann sein, dass noch einige Syntaxfehler enthalten sind, da ich den Code nicht mit Turbo-Pascal erstellt habe.