- Code: Select all
Define LibPub créditbail()=
Prgm
Local dp,x,p,m,o,d
Request "Versement début de période ? (1=oui, 0=non) ",dp
Request "Montant de l'emprunt= ",x
Request "Nombre de période= ",p
Request "Montant de la redevance= ",m
Request "Montant de l'option d'achat= ",o
Request "Montant du dépôt de garantie= ",d
If dp=1 Then
Disp solve(x-d=m+m(((1-(1+i)^(−p-1))/(i)))+(o-d)[(1+i)^(−p)],i)
Else
Disp solve(x-d=m(((1-(1+i)^(−p))/(i)))+(o-d)[(1+i)^(−p)],i)
EndIf
EndPrgm
Quand je décide de l'exécuter et que je rentre les variables, j'ai ce message d'erreur : "Erreur : Ce n’est pas un nom de fonction.". Avez vous une idée pour faire fonctionner ce programme ?