Suche Hilfe bei Fehlersuche

henningd

Grünschnabel
hallo leute....

ich benötige mal wieder hilfe und zwar habe ich ein kniffelspiel erstellt jedoch bekomme ich unter TP in windows xp immer eine verschiedende Ausgabe....

Könnt ihr mir bitte helfen....ich verlass mich auf euch....

danke...


hier der Quelltext:
Code:
program Kniffel;
uses crt;

type wuerfel1=array[1..6,1..2] of integer;

var  eingabe,nochmal                  :char;
     wuerfelzaehler,i,wuerfelanzahl   :integer;
     wuerfel:wuerfel1;

procedure Markiere (x,y,pwuerfel:byte);
begin
  gotoxy(x,y);
  if wuerfel[pwuerfel,2]=0 then
  begin
    write('x');
    wuerfel[pwuerfel,2]:=1;
  end
  else
  begin
  write(' ');
  wuerfel[pwuerfel,2]:=0;
  end;
end;
begin
  repeat;
    clrscr;
      for i:=1 to 6 do
      begin
        wuerfel[i,2]:=0;
      end;
        repeat;
          wuerfelanzahl:=wuerfelanzahl+1;
          wuerfelzaehler:=1;
            repeat;
              randomize;
              delay(100);
              if wuerfel[wuerfelzaehler,2]=0 then
              wuerfel[wuerfelzaehler,1]:=random(7);
              if wuerfel[wuerfelzaehler,1]>0 then
              begin
                gotoxy(6,wuerfelzaehler+3);
                writeln(wuerfel[wuerfelzaehler,1],' ',wuerfel[wuerfelzaehler,2]);
              end
              else
              dec (wuerfelzaehler);
              inc (wuerfelzaehler);
            until wuerfelzaehler=6;
              gotoxy(6,10);write('1-5 markieren, (f)ertig, (w)uerfeln');
                repeat;
                  gotoxy(6,11);readln(eingabe);
                  case eingabe of
                    '1':Markiere(8,4,1);
                    '2':Markiere(8,5,2);
                    '3':Markiere(8,6,3);
                    '4':Markiere(8,7,4);
                    '5':Markiere(8,8,5);
                  end;
                until (upcase(eingabe)='W') or (upcase(eingabe)='F');
          until(wuerfelanzahl=3) or (upcase(eingabe)='F');
          writeln('M”chten Sie einen neuen Durchlauf starten?');
          readln(nochmal);
  until nochmal='n';
  end.
 
Zuletzt bearbeitet von einem Moderator:
Zurück