; Nous devons ouvrir une console pour pouvoir afficher le résultat
OpenConsole()


; D'abord nous créons les variables requises pour ce programme.
; En faisant cela en premier, nous conservons celles-ci à la même place et comme
; nous savons où elles sont habituellement, nous les trouverons facilement.

; Vous pourriez probablement utiliser n'importe quel type ici, cela dépend si
; vous voulez utilisez des dimensions décimales ou non. Dans ce
; cas nous utiliserons seulement des nombres entiers.
Define.l largeur, hauteur, surface, longueur
Define.f surface_de_recouvrement
Define.f nombre_pots


; Comme les dimensions doivent être définies dans le code, nous faisons ça ici
largeur  = 4
hauteur  = 2
longueur = 3

surface_de_recouvrement = 2.3  ; La surface qu'un seul pot de peinture peut couvrir


; Maintenant effectuons le calcul requis (qui, évidemment, doit
; intervenir à un endroit situé *après* la définition des valeurs des
; autres variables
;
; Notez que c'est juste la surface des murs. C'est simplement le
; total de la surface des 4 rectangles (en fait, le total de 2 surfaces
; de 2 rectangles identiques), donc c'est très similaire à la solution
; précédente.
surface = largeur * hauteur * 2
surface + longueur * hauteur * 2


; Maintenant que nous avons la surface des murs, nous pouvons calculer combien
; de pots de peinture seront nécessaires
nombre_pots = surface / surface_de_recouvrement


; Partie finale requise - afficher les résultats
; Nous n'avons pas besoin d'afficher les dimensions ici, mais
; voir toutes les valeurs au même endroit pourrait faciliter
; la vérification du résultat.
PrintN("Les dimensions de la piece sont (L, l, h) : "+Str(longueur)+", "+Str(largeur)+", "+Str(hauteur))
PrintN("La surface des murs est "+Str(surface))
PrintN("Avec une surface de recouvrement de "+StrF(surface_de_recouvrement)+" cela necessitera "+StrF(nombre_pots)+" pots")


; Enfin, nous affichons un message pour indiquer à l'utilisateur comment quitter le programme
; et attendons qu'il appuie sur ENTREE. Ceci est nécessaire pour qu'il ait le temps de
; voir l'affichage (output) du programme.
PrintN("Appuyez sur ENTREE pour quitter")
Input()
CloseConsole()
End

; IDE Options = PureBasic v4.00 (Windows - x86)
; CursorPosition = 11
; FirstLine = 23
; Folding = -