große & kleine Straße

night · Hält's aus hier Beiträge: 6

Hi,
von der Schule aus sollen wir ein Kniffelspiel erstellen...
Es funktioniert auch alles, bis auf die große und kleine Straße!
Wir benutzen Delphi jetzt seit ca 4 Wochen und ich bin darn ein totaler Noob!
Könnte mir jemand helfen und sagen wie ich das mit der großen und kleinen Straße hinbekomme?
Ich hab 5 Würfel, und wenn eine Reihe 1-5 gewürfelt oder 2-6, dann sollen 50P eingetragen werden, ich hab versucht das mit einem array zu lösen und wollte dann abfragen ob die zahlen 1, 2, 3, 4 und 5 enthalten sind, das funktiniert aber nicht

Für Hilfe wäre ich sehr dankbar, da es auch Noten darauf gibt!

Vielen Dank
night

MathiasH · Verfasst: Mi 14.04.04 15:39

große Straße: (alle verschieden), bzw (2 und 3 und 4 und 5) und (1 oder 6) müssen enthalten sein
kleine Straße: (3 und 4) und ((1 und 2) oder (2 und 5) oder (5 und 6)) müssen enthalten sein

dazu würd ich mir ne Funktion bauen, die angibt, ob und wie oft eine zahl dabei ist

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

function countDice(dice: byte): byte;
var
i: byte;
begin
Result := 0;
for i := 0 to 4 do if diceArr=dice then inc(Result);
end;

_________________
"Viel von sich reden, kann auch ein Mittel sein, sich zu verbergen."
Friedrich Nietzsche

night · Hält's aus hier Beiträge: 6

Vielen Dank!

MathiasH hat folgendes geschrieben:

dazu würd ich mir ne Funktion bauen, die angibt, ob und wie oft eine zahl dabei ist

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

function countDice(dice: byte): byte;
var
i: byte;
begin
Result := 0;
for i := 0 to 4 do if diceArr=dice then inc(Result);
end;

Könntest Du mir nur den Quelltest erklären, ich versteh da nicht sehr viel

ich hab meine Variablen

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

wurfel1:=random(6)+1;
wurfel2:=random(6)+1;
wurfel3:=random(6)+1;
wurfel4:=random(6)+1;
wurfel5:=random(6)+1;

wie kann ich die jetzt in den obrigen Quelltext einsetzen?
mfg night

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme