{ Type agrege de stockage d'une position du plan     }

structure position2D
  reel x <- 0.0
  reel y <- 0.0
fin structure

{ Type agrege de stockage d'un rectangle du plan     }

structure rectangle2D
  position2D p1
  position2D p2
fin structure

{ Calcul de la surface d'un rectangle 2D             }

entier fonction surfaceRectangle(-> rectangle2D r)
  reel surface
  surface <- abs(r.p2.x-r.p1.x)*abs(r.p2.y-r.p1.y)
  retourner surface
fin fonction