Forum: Programmieren allgemein
by d3g,
5. Feb 2004
Du siehst das richtig. Ich sollte als Strafe aufhören müssen zu programmieren und bis zum Ende meines Lebens dazu verdammt sein, meine Wachphasen im Kunstunterricht zu verfristen.
Forum: Programmieren allgemein
by d3g,
3. Feb 2004
Dass da Joker im Spiel sind hab ich auch überhaupt nicht geplant -- bei mir ist 13 * 4 == 54 :wall:. Schön langsam glaube ich an die Drogen-Sache, vor allem weil ich noch einen weiteren dummen Fehler gefunden habe.
type
TStrArray = array of String;
function PickCards(): TStrArray;
var
Picked, i, count: Integer;
Cards: set of 1..54;
Forum: Programmieren allgemein
by d3g,
3. Feb 2004
Er hat doch nicht etwa für jeden Funktionsaufruf das Programm neugestartet?
Ich hab übrigens noch einen Fehler gefunden... :roll: Mit 0 zu zählen zu beginnen ist ja doch besser. Jetzt tötet mich, ihr Pascal-Only-Jedis! :wink:
function PickCards(): String;
var
Picked, i: Integer;
Cards: set of 1..54;
s: String;
Forum: Programmieren allgemein
by d3g,
3. Feb 2004
Hat mich irgendwer unter Drogen gesetzt? Entweder sind meine Pascal-Kenntnisse total verrottet oder ich merke gar nicht, wie wenig konzentriert ich gerade bin.
Zufall? Ich kann keinen Fehler finden (aber das heißt ja im Moment nichts).
:?:
Forum: Programmieren allgemein
by d3g,
3. Feb 2004
Wahr. Ich hab zu viel C programmiert.
Auch wahr. Hab's vergessen wegzumachen, als ich aus dem Codebeispiel eine Funktion gemacht hab.
Forum: Programmieren allgemein
by d3g,
3. Feb 2004
Ich bin von einem Pascal-Programmierer ausgegangen, der mit 1 zu zählen beginnt (obwohl 0 oft sinnvoller ist). Random(54) gibt einen Wert zwischen 0 und 53 zurück.
Forum: Programmieren allgemein
by d3g,
3. Feb 2004
Und dazu nimmst du am besten Sets, das beste an Pascal überhaupt.
function PickCards(): String;
var
Picked, i: Integer;
Cards: set of 1..54;
s: String;
begin
Cards := ;