§     Programme de calcul des mensualités de remboursement
§     d'un prêt en fonction de la durée de remboursement, du taux
§     et du montant emprunté. Si la durée est saisie par l'utilisateur,
§     l'échéance mensuelle est calculée seulement pour cette durée.
§     Dans le cas contraire, les échéances mensuelles sont calculées
§     pour des durées de prêt allant de 1 à 20 ans.
§======================================================================

Précision(20)

§======================================================================
§     Saisie du montant emprunté et du taux
§======================================================================

total=saisienb("" "Montant total emprunté :" "")
taux=0

tant que taux = 0 | (taux > 100)
     taux=saisienb("" "Taux annuel du prêt en % :" "(Par exemple, tapez 12 pour 12 %)")
fin

§======================================================================
§     Saisie éventuelle de la durée du prêt en mois
§======================================================================

D=0               §  durée du prêt

si ouinon("Voulez-vous saisir la durée du prêt en mois ?" "Si non, les échéances seront calculées"
              "pour un prêt de 1 à 20 ans !")=1
     D=10000

     tant que D > 9999
          D=entier(saisienb("" "Durée de l'emprunt en mois :" ""))
     fin
fin

§======================================================================
§     Affichage des paramètres de calcul
§======================================================================

AfficheListe(formatnb(total 2 ".")+" : Emprunt      ")
AfficheListe(taux+" %"+" : Taux annuel  ")
taux=taux/1200     §  calcul du taux mensuel

§======================================================================
§     Calcul et affichage de l'échéance mensuelle si la durée a été donnée.
§     Calcul et affichage des 240 échéances mensuelles si la durée n'a pas été donnée.
§     La formule globale pour obtenir la mensualité fixe est :
§     (total * taux) / (1 - (1 / T ^ D)) où T = (1 + taux) à la puissance durée.
§======================================================================
     T = 1 + taux
     i = 0
    
si D > 0
     mensualité =arrondi((total*taux)/(1-(1/T^D)) 2)
     AfficheListe(" ")
     AfficheListe(D+" : Durée en mois")
     AfficheListe(formatnb(mensualité 2 ".")+" : Mensualité   ")
     cout=D * mensualité
     AfficheListe(formatnb(cout 2 ".")+" : Coût total   ")
     AfficheListe("___________________________")
sinon
     C = 1
     tant que i<240 i=i+1 C=T*C
          
          si i%12 = 0
               mensualité =arrondi((total*taux)/(1- (1/C)) 2)
               AfficheListe(" ")
               AfficheListe(i+" : Durée en mois")
               AfficheListe(formatnb(mensualité 2 ".")+" : Mensualité     ")
               cout=i * mensualité
               AfficheListe(formatnb(cout 2 ".")+" : Coût total      ")
          fin
     fin

     AfficheListe("___________________________")
fin