§     Ce programme calcule la durée d'un prêt en nombre de mois
§     à partir du montant maximum qu'on se fixe pour les échéances
§     mensuelles, à partir du montant total emprunté et du pourcentage
§     d'intérêt du prêt. Les résultats sont affichés sur la liste de la calculatrice.

Précision(20)

§======================================================================
§     Saisie du montant total 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 du montant maximal de l'échéance mensuelle
§======================================================================

R=0

tant que R=0
     R=saisienb("" "Montant maximal de l'échéance mensuelle :" "")
fin

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

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

§======================================================================
§     (1 + taux) ^ D doit être >= R / (R - total * taux)
§     D étant la durée
§     Calcul de R / (R - total * taux)
§======================================================================

M=R/(R-(total*taux))     §   Maximum à atteindre
T = 1 + taux
i = 0
C = 1

tant que C<M i=i+1 C=T*C fin
          
mensualité =arrondi((total*taux)/(1-(1/T^i)) 2)
AfficheListe(" ")
AfficheListe(i+" : Durée en mois  ")
AfficheListe(formatnb(mensualité 2 ".")+" : Mensualité     ")
cout=i * mensualité
AfficheListe(formatnb(cout 2 ".")+" : Coût total     ")
AfficheListe("___________________________")