Графика

[Dizman]

Помогите пожалуйста решить задачи на Паскале.В графике вообще ничего не понимаю.

1. Написать программу, которая выводит на экран меню, в котором в зависимости от выбора пользователя появляется круг, квадрат или треугольник.

2. Напишите программу, которая в зависимости от кода нажатой клавиши (используйте клавиши перемещения курсора) управляет движением фигуры человечка (вверх, вниз, влево, вправо). Образ человечка занесите в память.

[kommunist]

В Delphi или где ?

[zetrix]

На чём писать-то? Pascal, Delphi, Basic, C/C++??

[kommunist]

задание 2 ->http://programmersforum.ru/showthrea...5242#post45242

p.s. там рассматривается движение фигур (вместо человека) от нажатия клавиш курсора

[Dizman]

Поправил. На Паскале нужно сделать. От этого зависти мой зачет.

[Dizman]

Вторую задачу я почти написал. Только не знаю как занести образ человечка в память.

[mutabor]

В память это значит ты его на экране не видишь. А потом бац вывел на экран и видишь
Можно как карту бит хранить, можно векторами. Смотря какой он из себя.

[Dizman]

Голова как круг, из него линии выходят. Я читал, что можно оператором Size делать...

[Dizman]

Я сделал вторую программу, но столкнулся с проблемой. У меня на экране два человечка: один висит в левом верхнем углу, другим я управляю с помощью клавиш. Как убрать первого?

program z1;
uses graph,crt;
var xold,yold,dx,dy,drivervar,modevar,i,size,x,y,xmax,ymax:integer;
p1,p2:pointer;
c:char;
begin
drivervar:=detect;
detectgraph(drivervar,modevar);
initgraph(drivervar,modevar, ' ');
size:=imagesize(0,0,20,100);
setlinestyle(0,0,3);
pieslice(10,10,0,360,10);
fillellipse(10,40,10,20);
line(8,50,0,100);
line(12,60,20,100);
getmem(p1,size);
getimage(0,0,20,100,p1^);
dx:=1; dy:=1;
x:=100;y:=100;
xmax:=getmaxx;ymax:=getmaxy;
repeat;
putimage(x,y,p1^,1);
xold:=x;yold:=y;
c:=readkey;
if c=#0 then c:=readkey;
case c of
#72:if y>1 then y:=y-dy;
#75:if x>2 then x:=x-dx;
#80:if y<ymax-100 then y:=y+dy;
#77:if x<xmax-20 then x:=x+dx;
end;
putimage(xold,yold,p1^,1);
until c=#27;
freemem(p1,size);
closegraph;
end.

[Virtson]

после getimage(0,0,20,100,p1^);
очистить экран ..