Решение задачи о кратчайшем маршруте
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: шпоры на телефон, реферат по истории
| Добавил(а) на сайт: Sijankov.
Предыдущая страница реферата | 5 6 7 8 9 10 11 12 13 14 15 | Следующая страница реферата
PROCEDURE set_graph_mode;
begin
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;
begin
for i:=1 to yyy-1 do
for j:=1 to xxx do
begin
pixel(j*2+xx1,i*3+yy1,col[fire1[i,j]]);
pixel(j*2+xx1,i*3+yy1-1,col[fire1[i,j]]);
pixel(j*2+xx1,i*3+yy1-2,col[fire1[i,j]]);
end;
for j:=1 to xxx do
begin
kk:=random(8);
if kk<3 then fire1[yyy,j]:=16
else fire1[yyy,j]:=round(31-kk);
end;
for i:=yyy-1 downto 1 do
for j:=2 to xxx-1 do
Рекомендуем скачать другие рефераты по теме: реферат развитие, контрольные работы 9 класс.
Категории:
Предыдущая страница реферата | 5 6 7 8 9 10 11 12 13 14 15 | Следующая страница реферата
Главная