Kleines Spiel, aber fehler ?

Xeal87

Erfahrenes Mitglied
Hi.
Ich habe für meinen Informatikkurs grad ein kleines Spiel geschrieben (das nimmspiel, aber das spielt ja keine rolle)
Also es geht um folgenden code, da steckt laut compiler noch ein fehler drin:
Code:
procedure computerzug;
Var z,x:integer;
Begin
Randomize;
case anzahl of 
3..9999999:
  z:=random (3) +1;
2:
  z:=random (2)+1;
1:
  z:=1;
End;
Weiss jemand was da falsch is ?
 
Zuletzt bearbeitet von einem Moderator:

Peter Bönnen

Erfahrenes Mitglied
Wenn ich mal davon ausgehe, dass du die Variable anzahl global definiert hast, dann fällt mir gravierend nur noch ein fehlendes end; am Ende der Funktion auf. Das end; was da schon steht schließt ja nur des case-Block ab.