|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1280 (0x500)
Types: TextFile
Names: »YDELSER.BAS«
└─⟦a2831e659⟧ Bits:30004217 MBASIC r5.21 og BASIC programmer
└─ ⟦this⟧ »YDELSER.BAS«
10 PRINT 20 PRINT "================" 30 PRINT "Et laans ydelser" 40 PRINT "================" 50 PRINT 60 INPUT "Antal aar, maaneder";Y0,M 70 REM beregn aar i decimal udfra aar og maaneder 80 Y=(12*Y0+M)/12 90 INPUT "Hovedstol ";P 100 INPUT "Rentefod ";I 110 INPUT "Antal ydelser pr. aar ";N 120 REM Beregn de faste afdrags storrelse 130 REM hved hjaelp af formlen 140 REM rentefoden omregnes til decimal 150 R=((I/100)*P/N)/(1-1/((I/100)/N+1)^(N*Y)) 160 REM afrund til hele orer og udskriv 165 PRINT 170 PRINT " Fast ydelse ="; 180 LET Y=INT(R*100+.5)/100 185 PRINT Y;" kr." 190 PRINT 192 PRINT "Vil du have Printout ?" 193 SVAR$=INKEY$ 194 IF SVAR$="" THEN GOTO 193 195 IF SVAR$="J" THEN GOSUB 500 196 IF SVAR$="j" THEN GOSUB 500 200 PRINT "Vil du kore programmet igen ?" 210 SVAR$=INKEY$ 220 IF SVAR$="" THEN GOTO 210 230 IF SVAR$="J" THEN GOTO 50 240 IF SVAR$="j" THEN GOTO 50 245 PRINT 250 CHAIN "LAAN" 260 END 499 REM Printout-subroutine 500 LPRINT " Hovedstol ";P 510 LPRINT " Rentefod ";I;" %" 520 LPRINT " Lobetid ";Y0;" aar ";M;" mdr." 530 LPRINT " Ydelser pr. aar ";N 533 LPRINT " Fast ydelse ";Y 535 LPRINT 540 LPRINT " * * * * * * *" 550 RETURN «eof»