Local a,ac,an,du,i
ClrIO
setMode("Exact/Approx","APPROXIMATE")
Disp "Amortissement constant"
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
alin[a+1,1]
ac/du->lin[a+1,3]
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->lin[2,4]
lin[2,4]+lin[2,3]->lin[2,6]
ac-lin[2,3]->lin[2,5]
For a,3,du+1
lin[a-1,5]->lin[a,2]
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]
lin[a,4]+lin[a,3]->lin[a,6]
EndFor
setMode("Split 1 App","Data/Matrix Editor")