|
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: »PYDELSER.BAS«, »YDELSER.BAK«
└─⟦a2831e659⟧ Bits:30004217 MBASIC r5.21 og BASIC programmer
└─ ⟦this⟧ »PYDELSER.BAS«
└─ ⟦this⟧ »YDELSER.BAK«
10 PRINT 20 PRINT "================" 30 PRINT "Et laans ydelser" 40 PRINT "================" 50 PRINT 60 INPUT "Antal aar, maaneder";YO,M 70 REM beregn aar i decimal udfra aar og maaneder 80 Y=(12*YO+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 PRINT INT(R*100+.5)/100;" kr." 190 PRINT 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" «eof»