... t[i,j] then begin setfillstyle(1,red); bar((i-1)*10+1,(j-1)*10+1,i*1 0-1 ,j*1 0-1 ); end else begin setfillstyle(1,blue); bar((i-1)*10+1,(j-1)*10+1,i*1 0-1 ,j*1 0-1 ); end; End; {========================} ... Trò chơi đời sốngTrần Thông Quế và Trần Văn LộCác kiểu dữ liệu trừu tượng có nhiều ứng dụng trong thực tế đó là Bảng (TABLE). Một trong các ứng dụng của bảng là Trò chơi đời sống ... Number(i,j:integer):integer; Var n,k:integer; Begin n:=0; for k:=i-1 to i+1 do begin if t[k,j-1] then inc(n); if t[k,j+1] then inc(n) end; if t[i-1,j] then inc(n); if t[i+1,j] then inc(n); Number:=n End;...