|
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: 768 (0x300) Types: TextFile Names: »HVDSTL.BAS«
└─⟦a2831e659⟧ Bits:30004217 MBASIC r5.21 og BASIC programmer └─ ⟦this⟧ »HVDSTL.BAS«
10 PRINT 20 PRINT "======================" 30 PRINT "Et laans hovedstol" 40 PRINT "======================" 50 PRINT 60 INPUT "Fast ydelse";R 70 INPUT "Antal aar, Maaneder";YO,M 72 REM Beregn aar i decimal udfra aar og Maaneder 74 Y=(12*YO+M)/12 80 INPUT "Rentefoden";I 90 INPUT "Antal ydelser pr. aar";N 100 REM beregn hovedstol, rentefod omregnes til decimal 110 P=R*N*(1-1/((I/100)/N+1)^(N*Y))/(I/100) 120 REM afrund til hele orer og udskriv 125 PRINT 130 PRINT " Hovedstol ="; 140 PRINT INT(P*100+.5)/100;"kr." 150 PRINT 160 PRINT "Vil du kore programmet igen ? (J/N)" 170 SVAR$=INKEY$ 180 IF SVAR$="" THEN GOTO 170 190 IF SVAR$="J" THEN GOTO 50 200 IF SVAR$="j" THEN GOTO 50 210 PRINT 220 CHAIN "LAAN" «eof»