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:
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: