Hiho,
vielen vielen Dank für die Anleitung @chaosben. Momentan bin ich noch in der Schule. Allerdings werde ich gegen Abend gleich mal das austesten, was du vorgeschlagen hast. Ich melde mich wieder, sobald ich nicht mehr weiter weiß. Bis später
[edit]
Ou man, was hab ich da nur zusammengemurkst
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const bilder_gesamt = 10; //Anzahl aller Bilder
var Bilder : array [0..(bilder_gesamt-1)] of boolean;
Tafeln : integer; //Anzahl der Tafeln Schokolade, die gekauft werden
fehlend : integer; //Anzahl der Bilder, die man noch nicht gesammelt hat
i : integer; //Zählvariable
begin
//Zufallsgenerator initialisieren
randomize;
//Startwerte setzen
Tafeln := 0;
fehlend := 10;
for i := 1 to bilder_gesamt do
Bilder[i] := false;
//Verarbeitung: "Einkauf" Schleife
for i := 1 to 100 do
begin
Tafeln := Tafeln + 1;
IF Bilder[random(bilder_gesamt)] = false THEN
begin
Bilder[random(bilder_gesamt)] := true;
fehlend := fehlend - 1;
end
ELSE exit;
end;
//Ausgabe
lblAusgabe.Caption := 'Man muss ' + IntToStr(Tafeln) + ' Tafeln kaufen.';
end;
end.
Hilfe
Momentan gibt er noch eine Fehlermeldung des Debuggers aus. Ich weiß zwar, was man machen muss, kann es aber irgendwie nicht in Code umsetzen.
Man setzt immer array[random(10)] auf true und guckst jedes Mal ob alle 10 Elemente true sind, also ob man alle Bilder gesammelt hat. Wenn das der Fall ist kann man abbrechen. Aber was ich da mache, ist Schwachsinn oder ?
[/edit]
mfg
me2u