Question

我是初中生，pascal里怎么按下上下左右就能返回值，不用read，求教～(￣

我是初中生，pascal里怎么按下上下左右就能返回值，不用read，求教～(￣▽￣～)~，简单点好吗。。

Answer 1

用readkey

要注意的是，up的ascii为78

down的ascii为80

left的ascii为75

right为77

begin
    while (true) do
    begin
        x=readkey;
        if (ord(x)=78) then writeln('UP');
            …………………………
    end;
end.

一般这都是用于游戏设计之类的，竞赛不考。

Answer 2

uses
	crt;
var
	ch:char;
begin
	while true do begin
		ch:=readkey;
		writeln(ch);
		if ch=#13 then halt;
	end;
end.

==========================================

uses
	crt;
var
	ch:char;
begin
	while true do begin
		if keypressed then begin
			ch:=readkey;
			write(ch:0);
		end;
		if ch=#13 then halt;
	end;
end.