{ Calcul de la distance entre deux positions du plan }

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

structure position2D
  reel abscisse
  reel ordonnee
fin structure

{ Programme principal                                }

action principale()
  position2D p1
  position2D p2
  réel distance
  réel dx
  réel dy
  afficher("SVP, coordonnees point 1 ?")
  p1.abscisse <- saisir()
  p1.ordonnee <- saisir()
  afficher("SVP, coordonnees point 2 ?")
  p2.abscisse <- saisir()
  p2.ordonnee <- saisir()
  dx <- p2.abscisse-p1.abscisse
  dy <- p2.ordonnee-p1.ordonnee
  distance <- sqrt(dx*dx+dy*dy)
  afficher("Distance = ",distance)
fin action