Zitat von Ptah
Beitrag anzeigen
Ich hab mal im Internet gegoogelt, und einen Turbo-Pascal-Compiler von Borland gefunden (Hachja, DOS ), dann hab ich dein Programm mit den Tipps von Ayin kombiniert (nochmal Danke) und das hier kam raus:
Code:
program matrix; uses crt; var n,d:integer; key:char; begin randomize; textcolor(10); clrscr; key:=#12; //belegt key mit einem anderen Wert als #27, da key:=#27 interessanterweise erhalten bleibt, zumindest in TP 5.5 repeat n:=random(2); d:=random (5)+1; write(n:d); delay(100); if(keypressed) then key:= readkey; until (key=#27); readln; end.
Kommentar