Ngày tải lên :
11/09/2012, 15:49
... then begin setfillstyle (1, red); bar((i -1) *10 +1, (j -1) *10 +1, i *10 -1, j *10 -1) ; end else begin setfillstyle (1, blue); bar((i -1) *10 +1, (j -1) *10 +1, i *10 -1, j *10 -1) ; end; End; {========================} Procedure ... rectangle(0,0,480,470); for i: =1 to 47 line(i *10 ,1, i *10 ,469); for i: =1 to 46 line (1, i *10 ,479,i *10 ); settextstyle(0,0,2); setcolor(red); outtextxy(485,30,'Life Gamé); settextstyle(0,0 ,1) ; setcolor(white); ... outtextxy(495 ,15 0,'Enter to Restart'); outtextxy( 510 , 210 ,'Esc to Stop'); End; {========================} Procedure Draw_cell(i,j:integer); Begin if t[i,j] then begin setfillstyle (1, red); bar((i -1) *10 +1, (j -1) *10 +1, i *10 -1, j *10 -1) ;...