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

end;

close (f1); }

d: =detect;

initgraph (d,m,'');

r: =n;

l: =0;

s: =0;

p_op (1);

while (r+s>0) do

begin

if s>0 then

if left [l] <>stok [s] then

p_op (3);

while left [l] =right [r] do

p_op (2);

if r>0 then p_op (1);

end;

anim (0);

readln;

closegraph;

clrscr;

writeln ('Operations: ',op,'<',3*n-1,' (3N-1) ');

readln;

end.

Демонстрація роботи програми

Операція "МИМО"

Операція "В"

Операція "ІЗ"