Lotto-Programm -.-

[Deedo]

hi ^^

also ich hab da en "tolles" problem beim programmiern (anmerkung: bin totale anfängerin) und zwar müssn wir für info son lotto-programm schreiben. Das heißt,...es werden durch randomize 70 zahlen erstellt (also 60 lotto-zahlen und 10 zusatzzahlen für die nächsten 10. wochen) und die sollen dann je nach woche angeordnet und gleichzeitig sortiert werden.

Bsp.:
(durch randomize ausgesucht und letztere ist immer zusatzzahl)
12 32 6 7 4 34 18
34 45 5 32 11 20 6
(...usw bis zur 10. zeile!)

1. woche: 4 6 7 12 32 34 | 18 (zusatzzahl)
2. woche: 5 11 20 32 34 45 | 6
(...usw bis zur 10. wochen!)

zudem soll ja die letzte, die zusatzzahl nich sortiert werden, sondern gleichbleibn,...logisch. So, den anfang hab ich ja ->
-------------------------------------------------------------------------------------------------

Delphi-Quellcode:

program ProLotto;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  zahlen:array[1..10,1..7]of integer;
  i,j:integer;

begin
  randomize;
  for i:= 1 to 10 do
    begin
      for j:= 1 to 7 do
        begin
          zahlen[i,j]:= random (49)+1; 
          write(zahlen[i,j]:2,'   '); 
        end;
      writeln;
    end;
  readln;
end.

-------------------------------------------------------------------------------------------------
jetzt fehlt mir halt nurnoch die sortierung und zuordnung der zahlen...ich hoffe ma das mir hier hobbyprogrammierer helfen könn ^^; und das mein problem verstanden wurde!

cYa Deedo

PS: Ich hoffe doch, das ich ins richtige Forum gepostet hab O.o;

[edit=r_kerber]Delphi-Tags eingefügt. Mfg, r_kerber[/edit]

[r_kerber]

Hallo Deedo,

zunächst erst mal herzlich willkommen in der Delphi-Praxis.
Dieses Forum hat auch eine Suchfunktion. Wenn Du folgende Suche suaführst sortierung sortieren, dann bekommst Du u.a auch einen Link auf Tutorial zu Sortier-Algorithmen!
Vielleicht solltest Du auch einen aussagekräftigeren Titel einfallen lassen, der Dein Problem besser beschreibt!

[Seniman]

Hallo Deedo,

ersteinmal Hallo und Herzlich Willkommen bei DP. :dp:

Die Frage, wie man Zahlen sortiert ist nicht die neuste hier im Forum, deswegen empfehle ich dir ersteinmal mit der Suchfunktion hier im Forum zu schauen, was es dazu gibt. Sortieralgorithmen oder BubbleSort
Als Anfänger empfehle ich dir unbedingt BubbleSort, das ist nicht der schnellste Sortieralgorithmus, aber der einfachste und für je 6 Zahlen absolut ausreichend.
Wenn du damit nicht weiterkommst, dann wäre es hilfreich, wenn du konkretere Fragen zu deinem Problem stellst.

Grüße
Seniman

[Seniman]

:-D :-D :-D
Zwei Dumme, ein Gedanke...

[negaH]

Das Thema hatten wir schon mal. Hier der Thread http://www.delphipraxis.net/internal...r=asc&start=50 der auch ausführlich die Fallstricke bei einer Lotto Ziehung beschreibt.

Gruß Hagen

[nailor]

aber ob das für

Zitat:

Zitat von Deedo

bin totale anfängerin

die richtige Lektüre ist?

[negaH]

Jo, wie will frau sich weiterentwicklen wenn frau nur einfache Lösungen erlernt ??
In dem Thread wurde alles beschrieben was wichtig ist, eigentlich wurden alle möglichen Wege, ob korrekt oder nicht, beschrieben.

Damit ist dieses Forum besser als jedes Buch zu diesem Thema was man kaufen könnte :)

Gruß Hagen

PS: am besten sie druckt den Thread aus, sortiert die Posting um, und lernt alles was sie zum Thema wissen muß daraus ! Es nützt ihr NICHTS eine fertige oder falsche Lösung zu kennen, sie muß sie auch kapiert haben.

[Deedo]

erstma thx für antwortn ^^

wegn der suchfunktion -> die hatte ich nachm anmelden vergessn zu nutzn :roll:
aber ich mach mich dann heute ma nach der schule ran und durchstöber mal so einige threads ^.~

(Anmerkung:...ich hab öfters in solchn programmen jetzt das wort "procedure" gelesen, aber das hattn wir noch nich :freak: )

[r_kerber]

Zitat:

Zitat von Deedo

(Anmerkung:...ich hab öfters in solchn programmen jetzt das wort "procedure" gelesen, aber das hattn wir noch nich :freak: )

Das kann ich aber gar nicht glauben, da ja jedes Delphi aus Prozeduren (procedure) und Funktionen (function) besteht bzw. diese nutzt (Bei Dir z.B writeln, write, ...).

[The-X]

es sei denn man schreibt nur sog. Splatter-Sources ohne Unter-Prozeduren oder Funktionen...
so wie ich bis vor einigen Jahren (*an uralt Pascal erinnert*) ... :stupid: