Local a,ac,an,du,i
ClrIO
setMode("Exact/Approx","APPROXIMATE")
Input "montant de l'emprunt :",ac
Input "duree de l'emprunt :",du
Input "taux d'interet :",i
newMat(du+1,6)lin
For a,1,du
a->lin[a+1,1]
EndFor
annees->lin[1,1]
crddebut->lin[1,2]
ammortis->lin[1,3]
interet->lin[1,4]
crdfin->lin[1,5]
annuite->lin[1,6]
ac->lin[2,2]
ac*i/100/(1-(1+i/100)^(­du))->an
an->lin[2,6]
lin[2,6]-ac*i/100->lin[2,3]
ac*i/100->lin[2,4]
ac-lin[2,3]->lin[2,5]
For a,3,du+1
lin[a-1,5]->lin[a,2]
lin[a-1,3]*(1+i/100)->lin[a,3]
lin[a,2]*i/100->lin[a,4]
lin[a,2]-lin[a,3]->lin[a,5]
If lin[a,5]<0:0->lin[a,5]
an->lin[a,6]
EndFor
setMode("Split 1 App","Data/Matrix Editor")