Движущееся изображение. Модифицировать программу

@vadim77 · Регистрация: 24.08.2010

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

Pascal

Program Images_1;
uses Graph,Graph0;
Const
path='c:\tp70\bgi';
var block:pointer;
size:integer;
begin
Init(path);
SetFillStyle(1,LightBlue);
Bar3d(20,30,40,60,10,TopOn);
SetColor(White);
SetFillStyle(1,LightRed);
Circle(30,36,4);
FloodFill(30,36,White);
SetFillStyle(1,Yellow);
Circle(30,45,4);
FloodFill(30,45,White);
Size:=imagesize(20,20,50,60);
GetMen(block,Size);
GetImage(20,20,50,60,block^);
putimage(200,100,block^,XorPut);
Readln;
CloseGraph;
end.

изменитm программу таким образом, чтобы нарисованный светофор выводился еще в точки с координатами (400,300), (350,100) и (600,10). Помогите пожалуйста, я не знаю как этого сделать.

@Puporev · 18.10.2011, 09:51

Так добавьте еще строки

Pascal

1	putimage(200,100,block^,XorPut);

Только в каждой вместо 200,100 напишите нужные координаты.
кстати не GetMen, а GetMem

	18.10.2011, 09:51