Ziegenproblem

[0x92]

Zitat von himitsu:

Warum ist Doors als Integer und nicht als Boolean deklariert?

Und warum wird dieses Array nicht initialisiert?
Bist du dir sicher, daß nach dem SetLength alle Integer auf 0 (False) stehen?

Zitat:

Delphi-Quellcode:

    if Doors[RandomDoor] = 0 then //Wenn das was im Array drinsteht 0 ist vom Index RandomDoor
      WriteLn('Door number: ' + IntToStr(RandomDoor +1) + ' Ohhh, it is a goat! ;O');
      WriteLn('Do you want to change your door?');
      WriteLn;

Die CodeFormatierung meint, daß da BEGIN und END fehlen.

Zitat:

Delphi-Quellcode:

    Decision := 'None';

    while not (Decision = 'Y') and not (Decision = 'y') and not (Decision = 'N') and not (Decision = 'n') do
    begin
      WriteLn('# NOTE: Only Y/y or N/n accepted');
      ReadLn(Decision);
    end;

Die Repeat-Until-Schleife kennst du aber?

Delphi-Quellcode:

    repeat
      WriteLn('# NOTE: Only Y/y or N/n accepted');
      ReadLn(Decision);
    until (UpperCase(Decision) = 'Y') or (UpperCase(Decision) = 'N');

Bisher noch nie eingesetzt...

Und bzgl. des Arrays...Ich hatte erst ne Schleife drin die alle Elemente auf 0 erstmal setzt hab dann aber beim Debuggen gesehen, dass des sowieso schon passiert und alles auf 0 steht