Здорово народ. Нужна ваша помощь.На Паскале пишу совсем недавно. Написал простейшую прогу - перемещает символ по экрану в сответствии с нажатыми клавишами(вверх, вниз, вправо, влево). Почему то не идет найдите пожалуйста ошибку- буду очень благодарен!
Костян,
во-первых, кнопки курсора - это "расширенные" клавиши - первая часть кода = #0, вторая - то, что ты указал... Второе - у тебя не было End закрывающего Case... Ну, и наконец - ты перепутал знаки при нажатии "Вверх" и "Вниз"...
program igra;
uses crt;
const
left=#75; right=#77; up=#72; down=#80;
var
x, y, b: integer;
c: char;
begin
clrscr;
x:=1;
y:=1;
gotoxy(x,y);
write('a');
repeat
c:=readkey;
case c of
#0: case readkey of
left: begin
clrscr;
x:=x-1;
gotoxy(x,y);
write('a');
b:=b+1;
end;
right: begin
clrscr;
x:=x+1;
gotoxy(x,y);
write('a');
b:=b+1;
end;
up: begin
clrscr;
y:=y-1;
gotoxy(x,y);
write('a');
b:=b+1;
end;
down: begin
clrscr;
y:=y+1;
gotoxy(x,y);
write('a');
b:=b+1;
end;
end;
end;
until b=10;
readkey;
end.
Большое спасиба!!!!!!!!!!!!!!!!