Реферат: Решение задачи о кратчайшем маршруте

z1:=installuserdriver('svga256',nil);

initgraph(z1,z2,'');

cleardevice;

end ;

PROCEDURE pixel(x:word;y,col:byte);

begin

asm

mov bx,x

mov cl,y

mov dl,col

mov ax,0a000h

mov es,ax

mov al,0a0h

mul cl

add ax,ax

add bx,ax

mov [es:bx],dl

end ;

end ;

PROCEDURE install_firewall;

begin

for i:=1 to yyy do

for j:=1 to xxx do

begin

fire1[i,j]:=0;

fire2[i,j]:=0;

end ;

end ;

PROCEDURE fire;