Leren programmeren: behangpapier

In dit programma berekenen we hoeveel rollen behangpapier van 52 cm breedte we nodig hebben om een muur te behangen zonder deuren en vensters.

Als VBA functie bruikbaar in Excel:

Function behangpapier(hoogteincm As Integer, breedteincm As Integer) As Integer
'Het minimum aantal rollen van 10 m lang en 52 cm dat er nodig is
Dim oppervlakte As Double
oppervlakte = hoogteincm * breedteincm
Dim lengte As Integer
lengte = oppervlakte / 52
behangpapier = Int(lengte / 1000 + 0.9)
End Function