|
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: 1152 (0x480) Types: TextFile Names: »SYDELSER.BAS«
└─⟦a2831e659⟧ Bits:30004217 MBASIC r5.21 og BASIC programmer └─ ⟦this⟧ »SYDELSER.BAS«
5 PRINT "======================" 10 PRINT "Et laans sidste ydelse" 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 198 PRINT 200 PRINT " Sidste ydelse ="; 205 PRINT INT((R+B0)*100+.5)/100;" kr." 210 PRINT 220 PRINT "Vil du køre programmet igen ? (J/N)"; 230 SVAR$=INKEY$ 250 IF SVAR$="" THEN GOTO 230 260 IF SVAR$="J" THEN GOTO 30 270 IF SVAR$="j" THEN GOTO 30 280 CHAIN "LAAN" «eof»