Co zrobić, zęby procedura REPEAT UNTIL kończyła swoje zadanie po wciśnięciu klawisza ENTER?
0
0
w pascalu
repeat until keypressed and (readkey = #13);
w delphi
keypreview na true
i w onkeypress
if Key = #13 then WatekWKtorymRobiszPetle.Terminate;
0
Hmmm. Pojawił się pewien problem. Na OPSSie zakazane jest stosowanie biblioteki CRT, a jest ona niezbędna do użycia readkeya.
Dozwolone są biblioteki:
C: stdio.h, math.h, string.h, stdlib.h, ctype.h, strings.h,
C++: takie jak w C, iostream, biblioteki STL (Standard Templates Library),
Pascal: sysutils, math, strings
A jak zastosuję REPEAT UNTIL eoln; to mi program konczy pracę po wstawieniu 3 linijek, chociaż ustawiam, że ma wprowadzić 10 linijek :/
0
Crt nie możesz a o asm pisali? Jak nie to masz procedurki.
FUNCTION KeyPressed: Boolean; ASSEMBLER;
ASM
mov AH, 0Bh
int 21h
and AL, 0FFh
end;
FUNCTION ReadKey: Char; ASSEMBLER;
ASM
mov AH, 07h
int 21h
END;