Action affGrille( E l : entier, E c :entier, E e:entier)
 
var g : TTab2Dim
    file : TFile de {TTab2Dim {entier, entier}}
    x,y,k,j,i,w,z : entier
    tmp : TTab2Dim
   
Debut
 
k <- l*c
x <- 1
y <- 1
g <- nouvelleGrille(l,c)
file.créerFile()
file.enfiler(g,{x,y})
Pour i allant de 1 à k faire
    Pour j allant de y à l faire
        Pour w allant de x à c faire
            Pour z allant de 1 à e faire
                tmp <- copieGrille(file.valeurPremier().premier()
                x <- file.valeurPremier().second().premier()
                y <- file.valeurPremier().second().second()
                si x = 0 et y = 0 alors
					x <- c
					y <- l
				sinon
					tmp[x][y] <- z
					x <- x+1
					Si x >= c alors
						x <- 1
						y <- y+1
							Si y >= l alors
								y <- 0
								x <- 0
					file.enfiler(tmp)
		afficherGrille(file.valeurPremier().premier()
        file.defiler()