Модуль Crt Отобразить перемещение по экрану стилизованного изображения человека

@xxxVladimirxxx · Регистрация: 16.05.2012

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

Здраствуйте
Разработать программу, отображающую перемещение по экрану стили-зованного изображения человека (окружность - голова, треугольник - туловище, четыре ломаные линии - руки и ноги). Перемещение человека, изображенного на экране, должно осуществляться при нажатии соответствующих клавиш уп¬равления курсором
Заранее спасибо

@__XeNoNx8000__ · 18.05.2012, 07:59

создаёшь человека и при нажатии на кнопку все примитивы перемещаешь на заданную координату.

Pascal

var C:char;
begin
{...}
c:=readkey;
if c=#{код кнопки вверх} then up else
if c=#{код вниз} then down else ...

END.
и так далее ещё для двух кнопок.
где up, down, rigth, left - процедуры перемещения осей графических примитивов на
up - y:=y-5;
down - y:=y+5;
right - x:=x+5;
left - x:=x-5;
дальше смещаешь центры по этим координатам

@xxxVladimirxxx · 19.05.2012, 03:23 **[ТС]**

спасибо конечно но к сожалению я плохо знаком с языком паскаль я примитив плохо знаю

прошу помочь мне с полным годом

Добавлено через 18 часов 10 минут
помогите плз
заранее очень благодарен

@__XeNoNx8000__ · 19.05.2012, 23:01

вот вам удочки, ловите рыбку сами

:
тыктык
тыктык
тыктык
и в справке покопайтесь - в PascalABC самая лучшая справка из всех языков программирования!

Добавлено через 11 минут
вот ещё: тыктык

@КонецСвета · 20.05.2012, 00:01

Pascal

uses GraphABC,Events;
var x,y,i: integer;
 
procedure Man(x,y: integer);
begin
setbrushcolor(clcream);
circle(x,y,10);
circle(x-20,y+30,6);
circle(x+20,y+30,6);
circle(x-10,y+65,6);
circle(x+10,y+65,6);
setbrushcolor(clgray);
ellipse(x-15,y+10,x+15,y+60);
end;
 
procedure KeyDown(Key: integer);
begin
  case Key of
VK_Left: x:=x-2;
VK_Right: x:=x+2;
VK_Up: y:=y-2;
VK_Down: y:=y+2;
  end;
clearwindow;
Man(x,y);
end;
 
begin
x:=100; y:=100;
for i:=1 to 1000 do
    OnKeyDown:=KeyDown;
end.

@xxxVladimirxxx 0 / 0 / 0 Регистрация: 16.05.2012 Сообщений: 5
		1
	Модуль Crt Отобразить перемещение по экрану стилизованного изображения человека 18.05.2012, 01:57. Показов 1820. Ответов 4 Метки нет (Все метки) Здраствуйте Разработать программу, отображающую перемещение по экрану стили-зованного изображения человека (окружность - голова, треугольник - туловище, четыре ломаные линии - руки и ноги). Перемещение человека, изображенного на экране, должно осуществляться при нажатии соответствующих клавиш уп¬равления курсором Заранее спасибо 0

@xxxVladimirxxx 0 / 0 / 0 Регистрация: 16.05.2012 Сообщений: 5
	19.05.2012, 03:23 [ТС]	3
	спасибо конечно но к сожалению я плохо знаком с языком паскаль я примитив плохо знаю прошу помочь мне с полным годом Добавлено через 18 часов 10 минут помогите плз заранее очень благодарен 0

@__XeNoNx8000__ 2 / 2 / 0 Регистрация: 26.04.2012 Сообщений: 45
	19.05.2012, 23:01	4
	вот вам удочки, ловите рыбку сами : тыктык тыктык тыктык и в справке покопайтесь - в PascalABC самая лучшая справка из всех языков программирования! Добавлено через 11 минут вот ещё: тыктык 0

	20.05.2012, 00:01