Процедура, Программа проезда прекрестка Опции

[IlyasKaz]

Помогите Пожалуйста сделать так что бы машина по правилам ехала Ну чтобы машины одновременно ехали и повороте налево машина уступила дорогу и проехала я не могу понять как это сделать

 
procedure title4;
const speed=3;
const speed1=3;
var
   i,f,j,pic,pic1,pic2,pic3,pic4,pic5,pic6: integer;
   w,h,n:real;
begin
   SetWindowSize(530,530);
   pic3:=loadPicture('1.bmp');
   DrawPicture(pic3,1,1);
   SetWindowCaption('Перемещение картинки');
   pic1:=LoadPicture('luxcar2(1).jpg');
   pic4:=loadPicture('luxcar1(2).jpg');
   pic6:=loadPicture('luxcar1(3).jpg');
   pic5:=loadpicture('luxcar2(3).jpg');
     n:=WindowWidth/1 ;
   w:=WindowWidth/4 ;
   h:=Windowheight/2;
   ///Dvijnyak
 begin
for i:=0 to WindowWidth do
  begin
    DrawPicture(pic3,1,1);
    DrawPicture(pic1,170,i);
  if i mod speed = 0 then Sleep(1);
end;
for i:=round(n) downto 120 do
  begin
    DrawPicture(pic3,1,1);
    DrawPicture(pic4,270,i);
    if i mod speed1 = 0  then Sleep(1);
  end;

for i:= round(h) downto  0 do
  begin
    DrawPicture(pic3,1,1);
    DrawPicture(pic6,i,170);
    if i mod speed1 = 0  then Sleep(1);
  end;
end;
end

 1.bmp ( 824.04 килобайт ) Кол-во скачиваний: 425

[TarasBer]

БМП, опять.

Сообщение отредактировано: TarasBer - 8.12.2011 10:28