|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 896 (0x380) Types: TextFile Names: »SYDELSER.BAK«
└─⟦a2831e659⟧ Bits:30004217 MBASIC r5.21 og BASIC programmer └─ ⟦this⟧ »SYDELSER.BAK«
10 print "Et laans sidste ydelse" 5 print "======================" 15 print "======================" 30 input "Fast ydelse ";R 50 input "Hovedstol ";P 70 input "Antal Aar, Maaneder ";Y0,M 84 rem Beregn aar i decimal udfra aar og maaneder 85 Y=(12*Y0+M)/12 90 INPUT "Rentefod (% P.A.) ";I 105 rem Omregn rentefod fra procent til decimal 110 I=I/100 120 input "Antal ydelser pr. aar ";N 140 B0=P 144 rem beregn alle ydelsernes vaerdi 146 rem sidste ydelse udligner forskelle 150 for J1=1 to N*Y 155 rem afrund betalt rente til hele orer 160 I1=INT((B0*I/N)*100+.5)/100 164 rem Beregn restgaeldens nedbringelse 166 rem ved betaling af hver ydelse 170 A=R-I1 175 rem Beregn ny restgaeld 180 B0=B0-A 190 next J1 194 rem Beregn sidste ydelse, afrund til 196 rem hele orer og udskriv resultatet 200 Print " Sidste ydelse ="; 198 print 205«eof»