Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement