Движеие без модуля graph

@Алекс111 · Регистрация: 12.01.2011

Author24 — интернет-сервис помощи студентам

В начале программы в центре окна расположена буква "x" (икс), при нажатии на кнопку "w" на клавиатуре, данная буква перемещается вверх на 1 строку(или на 10 px), при нажатии на кнопку "s" на клавиатуре, данная буква перемещается вниз на 1 строку(или на 10 px), при нажатии на кнопку "a" на клавиатуре, данная буква перемещается влево на 1 пробел(или на 10 px), и при нажатии на кнопку "a" на клавиатуре, данная буква перемещается вправо на 1 пробел(или на 10 px). Зациклить данное действие так, чтобы после 1 нажатия на клавишы(a,w,s,d) можно было продолжить программу - снова делать ходы. В общем, сделать "бродилку" буквы x по экрану.

@TAVulator · 22.01.2011, 19:46

Алекс111, Здесь понадобятся только лишь GotoXY и Readkey из не часто используемых операторов (из модуля CRT)

@Алекс111 · 22.01.2011, 20:30 **[ТС]**

Сообщение от TAVulator

Алекс111, Здесь понадобятся только лишь GotoXY и Readkey из не часто используемых операторов (из модуля CRT)

напишите пример, пожалуйста. я просто пробовал так сделать, и не получилось.

@Puporev · 22.01.2011, 20:50

Вот это действо, только управление стрелками, выход по Esc, переделай коды клавиш.

Pascal

uses crt;
var k,s:char;
    x,y:byte;
begin
clrscr;
x:=39;
y:=13;
s:='O';
gotoXY(x,y);
write(s);
repeat
if keypressed then
  begin
    k:=readkey;
    if k=#80 then
      begin
        gotoXY(x,y);
        write(' ');
        if y<25 then y:=y+1;
        gotoXY(x,y);
        write(s);
      end;
    if k=#72 then
      begin
        gotoXY(x,y);
        write(' ');
        if y>1 then y:=y-1;
        gotoXY(x,y);
        write(s);
      end;
    if k=#77 then
      begin
        gotoXY(x,y);
        write(' ');
        if x<79 then x:=x+1;
        gotoXY(x,y);
        write(s);
      end;
    if k=#75 then
      begin
        gotoXY(x,y);
        write(' ');
        if x>1 then x:=x-1;
        gotoXY(x,y);
        write(s);
      end;
  end;
until k=#27;
end.

@TAVulator · 22.01.2011, 20:52

Сообщение от Алекс111

напишите пример, пожалуйста. я просто пробовал так сделать, и не получилось.

интересно что ты пытался сделать?

вот, держи, буковка "х" у меня отлично бегает по экрану:

Pascal

uses crt;
var
 X,Y: byte;
 c: char;
Begin
 clrscr;
 X:=40;
 Y:=20;
 gotoxy(x,y);
 write('x');
 gotoxy(1,1);
 repeat
  gotoxy(1,1);
  c:=readkey;
  gotoxy(x,y);
  case c of
  'w': dec(y);
  's': inc(y);
  'd': inc(x);
  'a': dec(x);
  end;
  write(' ');
  gotoxy(x,y);
  write('x');
 until c=#27;
End.

Выход - кнопка ESC.
Тебе остается только обработать те ситуации, когда буква выходит за пределы экрана...

@Алекс111 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 7
		1
	Движеие без модуля graph 22.01.2011, 19:36. Показов 917. Ответов 4 Метки нет (Все метки) В начале программы в центре окна расположена буква "x" (икс), при нажатии на кнопку "w" на клавиатуре, данная буква перемещается вверх на 1 строку(или на 10 px), при нажатии на кнопку "s" на клавиатуре, данная буква перемещается вниз на 1 строку(или на 10 px), при нажатии на кнопку "a" на клавиатуре, данная буква перемещается влево на 1 пробел(или на 10 px), и при нажатии на кнопку "a" на клавиатуре, данная буква перемещается вправо на 1 пробел(или на 10 px). Зациклить данное действие так, чтобы после 1 нажатия на клавишы(a,w,s,d) можно было продолжить программу - снова делать ходы. В общем, сделать "бродилку" буквы x по экрану. 0

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	22.01.2011, 19:46	2
	Алекс111, Здесь понадобятся только лишь GotoXY и Readkey из не часто используемых операторов (из модуля CRT) 0

@Алекс111 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 7
	22.01.2011, 20:30 [ТС]	3
	Сообщение от TAVulator Алекс111, Здесь понадобятся только лишь GotoXY и Readkey из не часто используемых операторов (из модуля CRT) напишите пример, пожалуйста. я просто пробовал так сделать, и не получилось. 0

	22.01.2011, 20:52