@ilyaskaz

Проезд перекрестов как сделать чтобы машина повернула на перекресте и поехала по главной дороге
//Проезд перкрестка не регулируемого
procedure title1;
const speed=1;
var
w,h,i,j,pic,pic1,pic2: integer;
begin
SetWindowSize(530,530);
//фон
pic:=LoadPicture('1.bmp');
DrawPicture(pic,1,1);
SetWindowCaption('Перемещение картинки');
//первая машина
pic1:=LoadPicture('demo2.bmp');
//вторая машина
pic2:=LoadPicture('car2.jpg');
w:=PictureWidth(pic1);
h:=PictureHeight(pic1);
//Проезд 1 авто
for i:=0 to WindowWidth-w do
begin
DrawPicture(pic1,57,275);
DrawPicture(pic,1,1);
pic1:=LoadPicture('demo2.bmp');
DrawPicture(pic2,175,i);
//Проезд 2 авто
if i mod speed = 0 then Sleep(1);
end;
for i:=0 to WindowWidth-w do
begin
DrawPicture(pic,1,1);
DrawPicture(pic1,i,275);
if i mod speed = 0 then Sleep(1);
end;
end;

0