'Calcul d'un échéancier d'emprunt
'Ecrit en basic sous FreeBASIC
'Par Benoît-René RIVIERE, www.auditsi.eu

#include "string.bi"

'---Déclaration des variables
'------Paramètres emprunt
Dim capital As Double
Dim duree As Integer
Dim taux As Double
Dim mens As Double

'---Saisie des paramètres de l'emprunt
Cls
Color 11
Print "Calcul d'un échéancier d'emprunt"
Print
Color 15
Print "Saisissez les paramètres de l'emprunt :"
Input "Capital emprunté : ",capital
Input "Durée de l'emprunt en années : ",duree
Input "Taux annuel : ",taux

'---Calcul et affichage de la mensualité
taux=taux/100
mens = (capital*taux/12) / (1-(1+taux/12)^-(duree*12))
Print "Mensualité : ";Format(mens,"0.00")


Sleep