Hi!
Also ich hab folgendes Problem. Ich versuche einen Reaktionstester zu schreiben, aber es funktioniert nicht richtig. Das compilieren funktioniert vollkommen fehlerfrei. Aber beim Programmablauf gibt es dann einen Fehler...
Hier ist der Programmtext:
program Reaktionstest;
uses CRT;
var a: integer;
BEGIN
clrscr;
randomize;
writeln;
writeln('Reaktionstest by [SDE]TheFrozenOne');
writeln;
writeln('Beschreibung:');
writeln('Der Test startet, sobald sie Enter drcken.');
write('Sobald dann ');
textcolor(lightred);
write('!!STOP!!');
textcolor(lightgray);
write(' aufleuchtet, drcken sie wieder Enter.');
writeln;
writeln('Beginnen Sie den Test mit Enter');
readln;
delay(random(10000)+2000);
textcolor(lightred);
writeln('!!STOP!!');
textcolor(lightgray);
writeln;
a:=0;
while not keypressed do
begin
a:=a+1
end;
writeln;
writeln('Deine Reaktionszeit betr„gt ',a,'ms');
writeln;
writeln('Beenden mit Enter');
readln;
END.
Der Fehler muss irgendwo im markierten Bereich liegen, denn da bricht das Programm mit einer Fehlermeldung ab.
Vielen Dank für Eure Hilfe schonmal im Voraus...
MfG
[SDE]TheFrozenOne