'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
'------Variables diverses
Dim i As Integer
'------Variables emprunt mensualité
Dim capitalrestant As Double
Dim interet As Double
Dim capitalremb 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")
'---Calcul, affichage et enregistrement de l'échéancier
capitalrestant=capital
For i=1 To duree*12
    interet=capitalrestant*taux/12
    capitalremb=mens-interet
    'Affichage de la ligne en cours
    Print i ; " : ";Format(capitalrestant,"0.00");" - ";Format(interet,"0.00");" - ";Format(capitalremb,"0.00");" - ";Format(capitalrestant-capitalremb,"0.00")

    capitalrestant=capitalrestant-capitalremb
Next i

Sleep