SHARE
TWEET

Untitled

a guest Oct 12th, 2017 62 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Action affGrille( E l : entier, E c :entier, E e:entier)
  2.  
  3. var g : TTab2Dim
  4.     file : TFile de {TTab2Dim {entier, entier}}
  5.     x,y,k,j,i,w,z : entier
  6.     tmp : TTab2Dim
  7.    
  8. Debut
  9.  
  10. k <- l*c
  11. x <- 1
  12. y <- 1
  13. g <- nouvelleGrille(l,c)
  14. file.créerFile()
  15. file.enfiler(g,{x,y})
  16. Pour i allant de 1 à k faire
  17.     Pour j allant de y à l faire
  18.         Pour w allant de x à c faire
  19.             Pour z allant de 1 à e faire
  20.                 tmp <- copieGrille(file.valeurPremier().premier()
  21.                 x <- file.valeurPremier().second().premier()
  22.                 y <- file.valeurPremier().second().second()
  23.                 si x = 0 et y = 0 alors
  24.                     x <- c
  25.                     y <- l
  26.                 sinon
  27.                     tmp[x][y] <- z
  28.                     x <- x+1
  29.                     Si x >= c alors
  30.                         x <- 1
  31.                         y <- y+1
  32.                             Si y >= l alors
  33.                                 y <- 0
  34.                                 x <- 0
  35.                     file.enfiler(tmp)
  36.         afficherGrille(file.valeurPremier().premier()
  37.         file.defiler()
RAW Paste Data
Top