Курсовая работа: Створення програми "Залізничний вузол"

line (295,50,295,470);

line (325,50,325,470);

SetLineStyle (SolidLn, 0, NormWidth);

setcolor (green);

for j: =r downto 1 do

begin

if right [j] <>0 then

begin

if right [j] =2 then setcolor (red);

rectangle (335+r*35-j*35,50,365+r*35-j*35,80);

if right [j] =2 then setcolor (green);

end;

end;

for j: =1 to l do

begin

if left [j] =2 then setcolor (red);

rectangle (10+j*35,50,40+j*35,80);

if left [j] =2 then setcolor (green);

end;

for j: =1 to s do

begin

if stok [j] =2 then setcolor (red);

rectangle (295,85+j*35,325,115+j*35);

if stok [j] =2 then setcolor (green);

end;

setcolor (white);

case i of

1: begin

line (200,40,440,40);