Перемещение объектов стрелками на клавиатуре

@MssValeria · Регистрация: 18.12.2018

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

Помогите новичку!!!
Есть две программы, в одной программе изображение поляны, в другой простое изображение человечка

Вопрос такой: можно ли в pascalABC написать программу в которой человечек

будет перемещаться по полянке с помощью стрелок на клавиатуре? Если да, то как это можно реализовать?

Pascal

//Полянка
Uses GraphABC;
Var i,Xr,Yr:Integer;
Begin
  FloodFill(55,55,clLime);
  setpencolor(clGreen);
  for i:=1 to 5000 do
    begin 
      Xr:=random(1500);
      Yr:=random(1000);
      line(Xr,Yr,Xr-4,Yr-4);
      line(Xr+4,Yr,Xr+4,Yr-8);
      line(Xr+8,Yr,Xr+10,Yr-4);
    end;
end.

Pascal

//Человечек:)
Uses GraphABC;
Var Xm,Ym:Integer;
Begin
  setpencolor(clBlack);
  setpenwidth(4);
  Xm:=100;Ym:=100;
  Line(Xm,Ym+20,Xm,Ym+90);
  Line(Xm,Ym+90,Xm-20,Ym+140);
  Line(Xm,Ym+90,Xm+20,Ym+140);
  Line(Xm,Ym+40,Xm-20,Ym+70);
  Line(Xm,Ym+40,Xm+20,Ym+70);
  Circle(Xm,Ym,20);
End.

@Sun Serega · 19.12.2018, 02:10

Вот пример:

Pascal

uses ABCHouse;
uses ABCObjects;
uses GraphABC;
 
begin
  var h := new HouseABC(30,30,200,300, GColor.Green);
  Sleep(1000);
  loop 10 do
  begin
    h.MoveOn(10,0);
    Sleep(50);
  end;
end.

Попробуйте разобраться сами. Когда вы зажимаете Ctrl и тыкаете на какое то имя - вам показывает как оно реализовано. Вот с помощью исходников и справки разбирайтесь.

Опции темы