|
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: 1024 (0x400)
Types: TextFile
Names: »RESTGAEL.BAS«
└─⟦a2831e659⟧ Bits:30004217 MBASIC r5.21 og BASIC programmer
└─ ⟦this⟧ »RESTGAEL.BAS«
10 PRINT 15 PRINT "=================" 17 PRINT "Et laans restgaeld" 18 PRINT "==================" 20 PRINT 30 INPUT "Fast ydelse ";R 50 INPUT "Hovedstol ";P 70 INPUT "Antal ydelser pr. aar ";N 90 INPUT "Rentefod (% P.A.) ";I 105 REM Omregn rentefod fra procent til decimal 110 I=I/100 120 INPUT "Restgaeld efter ydelse (nummer,aar) ";N1,Y 135 REM saet restgaeld lig hovedstol 140 B0=P 144 REM For-next-lokke til beregning af 146 REM hidtidigt betalte ydelser 150 FOR J1=1 TO N*(Y-1)+N1 155 REM Beregn det rentebelob ydelsen daekker 160 I1=INT((B0*I/N)*100+.5)/100 165 REM beregn hvad ydelsen daekker 170 A=R-I1 175 REM beregn ny restgaeld 180 B0=B0-A 190 NEXT J1 195 REM afrund til hele orer og udskriv resultat 198 PRINT 200 PRINT " Restgaeld ="; 205 PRINT INT(B0*100+.5)/100;"kr." 220 PRINT 230 PRINT "Vil du kore programmet igen ? (J/N)" 240 SVAR$=INKEY$ 250 IF SVAR$="" THEN GOTO 240 260 IF SVAR$="J" THEN GOTO 20 270 IF SVAR$="j" THEN GOTO 20 280 CHAIN "LAAN" «eof»