Курсовая работа: Розробка гри Життя

+old_gen[prev_j,k]

+old_gen[prev_j,next_k]

+old_gen[j,prev_k]

+old_gen[j,next_k]

+old_gen[next_j,prev_k]

+old_gen[next_j,k]

+old_gen[next_j,next_k];

if (old_gen[j,k]=1) and ((m<=1) or (m>=4)) then

new_gen[j,k]:=0

else

if (old_gen[j,k]=0) and (m=3) then

new_gen[j,k]:=1

else

new_gen[j,k]:=old_gen[j,k];

end;

end;

end;

procedure init_screen;

var

graphdriver,graphmode:integer;

j,k:word;

begin

graphdriver:=vga;

graphmode:=vgamed;

page:=0;

initgraph(graphdriver,graphmode,'');

if graphresult<>grOk then

halt;

for k:=0 to hor do