Einzelnen Beitrag anzeigen

me2u
(Gast)

n/a Beiträge
 
#6

Re: Sammelbilder [lineares Feld]

  Alt 26. Apr 2007, 13:47
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
  Mit Zitat antworten Zitat