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

Е) Алгоритм процедури rule_plane

Реалізація програми

PROGRAM LIFE;

uses crt,dos,graph;

const

hor=100;

ver=70;

cell_width=8;

cell_height=6;

prob_factor=0.5;

var

old_gen,new_gen:array[0..ver,0..hor] of 0..1;

prob:real;

ch:char;

x_center:array[0..hor] of word;

y_center:array[0..hor] of word;

gen_count,radius,page:word;

ss:string[10];

procedure init_cells;

var

j,k:word;

begin

gen_count:=0;

for j:=0 to ver do

for k:=0 to hor do

begin

old_gen[j,k]:=0;

if random<=prob then