|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »AFBET_RE.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »AFBET_RE.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »AFBET_RE.K«
0010 // ---------------------- afbet_rente ------------------------ 0020 // 0030 PROC F(PRYDELSE,PRGÆLD,PRR,PRN) 0040 F:=PRYDELSE/PRGÆLD-PRR/(1-(1+PRR)**(-PRN)) 0050 ENDPROC F 0060 // 0065 INTEGER N 0070 CLEAR 0080 CURSOR 1,4 0090 PRINT "Programmet beregner årlig rente ved afbetalingshandeler." 0100 PRINT "--------------------------------------------------------" 0110 PRINT 0120 INPUT "Indtast kontantpris: ":KONTANTPRIS 0130 INPUT "Udbetaling: ":UDBETALING 0140 INPUT "Månedlig ydelse: ":YDELSE 0150 INPUT "Indtast det antal gange, ydelsen skal betales: ":N 0160 PRINT 0170 PRINT "--------------------------------------------------------" 0180 PRINT 0190 GÆLD:=KONTANTPRIS-UDBETALING 0200 PRINT 0210 PRINT USING "Kontantpris: ##########.##":KONTANTPRIS 0220 PRINT USING "Udbetaling: ##########.##":UDBETALING 0230 PRINT USING "Gæld(kontantpris - udbetaling): ##########.##":GÆLD 0240 PRINT USING "Månedlig ydelse: ##########.##":YDELSE 0250 PRINT "Antal månedlige indbetalinger: ";N 0260 VENSTRE:=9.999999E-06;HØJRE:=0.2 0270 FV:=F(YDELSE,GÆLD,VENSTRE,N) 0275 FH:=F(YDELSE,GÆLD,HØJRE,N) 0280 REPEAT 0290 MIDTPUNKT:=(VENSTRE+HØJRE)/2 0300 FM:=F(YDELSE,GÆLD,MIDTPUNKT,N) 0310 IF FV*FM<=0 THEN 0320 HØJRE:=MIDTPUNKT 0330 FH:=FM 0340 ELSE 0350 VENSTRE:=MIDTPUNKT 0360 FV:=FM 0370 ENDIF 0380 UNTIL HØJRE-VENSTRE<9.999999E-06 0390 RENTE_PR_MD:=(VENSTRE+HØJRE)/2 0400 RENTE_P_A:=(1+RENTE_PR_MD)**12-1 0410 PRINT USING "Rente pr. år: ###.## % ":RENTE_P_A*100 0420 PRINT "--------------------------------------------------------" :553 // ---" E071 // H950 // 0356 // NG "Rente pr. år: ###.## % 1023 // S =237 // 0130 INPUT "Indtast udbetalingen: ": UD ?616 // 0140 INPUT "Indtast den månedlige ydelse: ": YD
0x000…045 Line {l1=0x43, l2=»0010 // ---------------------- afbet_rente ------------------------«, l3=0x43}
0x045…04f Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x04f…075 Line {l1=0x24, l2=»0030 PROC F(PRYDELSE,PRGÆLD,PRR,PRN)«, l3=0x24}
0x075…0a6 Line {l1=0x2f, l2=»0040 F:=PRYDELSE/PRGÆLD-PRR/(1-(1+PRR)**(-PRN))«, l3=0x2f}
0x0a6…0b6 Line {l1=0x0e, l2=»0050 ENDPROC F«, l3=0x0e}
0x0b6…0c0 Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x0c0…0d0 Line {l1=0x0e, l2=»0065 INTEGER N«, l3=0x0e}
0x0d0…0dd Line {l1=0x0b, l2=»0070 CLEAR «, l3=0x0b}
0x0dd…0ee Line {l1=0x0f, l2=»0080 CURSOR 1,4«, l3=0x0f}
0x0ee…135 Line {l1=0x45, l2=»0090 PRINT "Programmet beregner årlig rente ved afbetalingshandeler."«, l3=0x45}
0x135…17c Line {l1=0x45, l2=»0100 PRINT "--------------------------------------------------------"«, l3=0x45}
0x17c…189 Line {l1=0x0b, l2=»0110 PRINT «, l3=0x0b}
0x189…1d4 Line {l1=0x49, l2=»0120 INPUT "Indtast kontantpris: ":KONTANTPRIS«, l3=0x49}
0x1d4…21e Line {l1=0x48, l2=»0130 INPUT "Udbetaling: ":UDBETALING«, l3=0x48}
0x21e…264 Line {l1=0x44, l2=»0140 INPUT "Månedlig ydelse: ":YDELSE«, l3=0x44}
0x264…2a5 Line {l1=0x3f, l2=»0150 INPUT "Indtast det antal gange, ydelsen skal betales: ":N«, l3=0x3f}
0x2a5…2b2 Line {l1=0x0b, l2=»0160 PRINT «, l3=0x0b}
0x2b2…2f9 Line {l1=0x45, l2=»0170 PRINT "--------------------------------------------------------"«, l3=0x45}
0x2f9…306 Line {l1=0x0b, l2=»0180 PRINT «, l3=0x0b}
0x306…329 Line {l1=0x21, l2=»0190 GÆLD:=KONTANTPRIS-UDBETALING«, l3=0x21}
0x329…336 Line {l1=0x0b, l2=»0200 PRINT «, l3=0x0b}
0x336…384 Line {l1=0x4c, l2=»0210 PRINT USING "Kontantpris: ##########.##":KONTANTPRIS«, l3=0x4c}
0x384…3d1 Line {l1=0x4b, l2=»0220 PRINT USING "Udbetaling: ##########.##":UDBETALING«, l3=0x4b}
0x3d1…418 Line {l1=0x45, l2=»0230 PRINT USING "Gæld(kontantpris - udbetaling): ##########.##":GÆLD«, l3=0x45}
0x418…461 Line {l1=0x47, l2=»0240 PRINT USING "Månedlig ydelse: ##########.##":YDELSE«, l3=0x47}
0x461…49a Line {l1=0x37, l2=»0250 PRINT "Antal månedlige indbetalinger: ";N«, l3=0x37}
0x49a…4c1 Line {l1=0x25, l2=»0260 VENSTRE:=9.999999E-06;HØJRE:=0.2«, l3=0x25}
0x4c1…4e4 Line {l1=0x21, l2=»0270 FV:=F(YDELSE,GÆLD,VENSTRE,N)«, l3=0x21}
0x4e4…505 Line {l1=0x1f, l2=»0275 FH:=F(YDELSE,GÆLD,HØJRE,N)«, l3=0x1f}
0x505…513 Line {l1=0x0c, l2=»0280 REPEAT «, l3=0x0c}
0x513…536 Line {l1=0x21, l2=»0290 MIDTPUNKT:=(VENSTRE+HØJRE)/2«, l3=0x21}
0x536…55b Line {l1=0x23, l2=»0300 FM:=F(YDELSE,GÆLD,MIDTPUNKT,N)«, l3=0x23}
0x55b…573 Line {l1=0x16, l2=»0310 IF FV*FM<=0 THEN «, l3=0x16}
0x573…58a Line {l1=0x15, l2=»0320 HØJRE:=MIDTPUNKT«, l3=0x15}
0x58a…597 Line {l1=0x0b, l2=»0330 FH:=FM«, l3=0x0b}
0x597…5a3 Line {l1=0x0a, l2=»0340 ELSE «, l3=0x0a}
0x5a3…5bc Line {l1=0x17, l2=»0350 VENSTRE:=MIDTPUNKT«, l3=0x17}
0x5bc…5c9 Line {l1=0x0b, l2=»0360 FV:=FM«, l3=0x0b}
0x5c9…5d6 Line {l1=0x0b, l2=»0370 ENDIF «, l3=0x0b}
0x5d6…5fd Line {l1=0x25, l2=»0380 UNTIL HØJRE-VENSTRE<9.999999E-06«, l3=0x25}
0x5fd…622 Line {l1=0x23, l2=»0390 RENTE_PR_MD:=(VENSTRE+HØJRE)/2«, l3=0x23}
0x622…649 Line {l1=0x25, l2=»0400 RENTE_P_A:=(1+RENTE_PR_MD)**12-1«, l3=0x25}
0x649…686 Line {l1=0x3b, l2=»0410 PRINT USING "Rente pr. år: ###.## % ":RENTE_P_A*100«, l3=0x3b}
0x686…6cd Line {l1=0x45, l2=»0420 PRINT "--------------------------------------------------------"«, l3=0x45}
0x6cd…6db Line {l1=0x0c, l2=»:553 // ---"«, l3=0x0c}
0x6db…6e5 Line {l1=0x08, l2=»E071 // «, l3=0x08}
0x6e5…6ef Line {l1=0x08, l2=»H950 // «, l3=0x08}
0x6ef…717 Line {l1=0x26, l2=»0356 // NG "Rente pr. år: ###.## % «, l3=0x26}
0x717…722 Line {l1=0x09, l2=»1023 // S«, l3=0x09}
0x722…771 Line {l1=0x4d, l2=»=237 // 0130 INPUT "Indtast udbetalingen: ": UD«, l3=0x4d}
0x771…7c0 Line {l1=0x4d, l2=»?616 // 0140 INPUT "Indtast den månedlige ydelse: ": YD«, l3=0x4d}
0x7c0…7e0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccccccc┆
0x7e0…800 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0xf…]
C0010 // ---------------------- afbet_rente ------------------------C▶08◀0020 // ▶08◀$0030 PROC F(PRYDELSE,PRGÆLD,PRR,PRN)$/0040 F:=PRYDELSE/PRGÆLD-PRR/(1-(1+PRR)**(-PRN))/▶0e◀0050 ENDPROC F▶0e◀▶08◀0060 // ▶08◀▶0e◀0065 INTEGER N▶0e◀▶0b◀0070 CLEAR ▶0b◀▶0f◀0080 CURSOR 1,4▶0f◀E0090 PRINT "Programmet beregner årlig rente ved afbetalingshandeler."EE0100 PRINT "--------------------------------------------------------"E▶0b◀0110 PRINT ▶0b◀I0120 INPUT "Indtast kontantpris: ":KONTANTPRISIH0130 INPUT "Udbetaling: ":UDBETALINGHD0140 INPUT "Månedlig ydelse: ":YDELSED?0150 INPUT "Indtast det antal gange, ydelsen skal betales: ":N?▶0b◀0160 PRINT ▶0b◀E0170 PRINT "--------------------------------------------------------"E▶0b◀0180 PRINT ▶0b◀!0190 GÆLD:=KONTANTPRIS-UDBETALING!▶0b◀0200 PRINT ▶0b◀L0210 PRINT USING "Kontantpris: ##########.##":KONTANTPRISLK0220 PRINT USING "Udbetaling: ##########.##":UDBETALINGKE0230 PRINT USING "Gæld(kontantpris - udbetaling): ##########.##":GÆLDEG0240 PRINT USING "Månedlig ydelse: ##########.##":YDELSEG70250 PRINT "Antal månedlige indbetalinger: ";N7%0260 VENSTRE:=9.999999E-06;HØJRE:=0.2%!0270 FV:=F(YDELSE,GÆLD,VENSTRE,N)!▶1f◀0275 FH:=F(YDELSE,GÆLD,HØJRE,N)▶1f◀\f 0280 REPEAT \f !0290 MIDTPUNKT:=(VENSTRE+HØJRE)/2!#0300 FM:=F(YDELSE,GÆLD,MIDTPUNKT,N)#▶16◀0310 IF FV*FM<=0 THEN ▶16◀▶15◀0320 HØJRE:=MIDTPUNKT▶15◀▶0b◀0330 FH:=FM▶0b◀ 0340 ELSE ▶17◀0350 VENSTRE:=MIDTPUNKT▶17◀▶0b◀0360 FV:=FM▶0b◀▶0b◀0370 ENDIF ▶0b◀%0380 UNTIL HØJRE-VENSTRE<9.999999E-06%#0390 RENTE_PR_MD:=(VENSTRE+HØJRE)/2#%0400 RENTE_P_A:=(1+RENTE_PR_MD)**12-1%;0410 PRINT USING "Rente pr. år: ###.## % ":RENTE_P_A*100;E0420 PRINT "--------------------------------------------------------"E\f :553 // ---"\f ▶08◀E071 // ▶08◀▶08◀H950 // ▶08◀&0356 // NG "Rente pr. år: ###.## % & 1023 // S M=237 // 0130 INPUT "Indtast udbetalingen: ": UDMM?616 // 0140 INPUT "Indtast den månedlige ydelse: ": YDM▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc