|
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 - metrics - download
Length: 736 (0x2e0)
Notes: Mikados TextFile, Mikados_K
Names: »RENTEFOD«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RENTEFOD«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RENTEFOD«
0010 // --------------------- rentefod_1 --------------------------- 0020 CLEAR 0030 INPUT "Indtast kapital: ":KAPITAL 0040 INPUT "Indtast rente: ( i kr.) ":RENTE 0050 INPUT "Indtast rentedage: ":RENTEDAGE 0060 RENTEFOD:=(RENTE*100*360)/KAPITAL/RENTEDAGE 0070 PRINT 0080 PRINT 0090 PRINT USING "Kapital: ##############.## kr. ":KAPITAL 0100 PRINT USING "Rente: ##############.## kr. ":RENTE 0110 PRINT USING "Rentedage: #### dage. ":RENTEDAGE 0120 PRINT 0130 PRINT USING "Rentefod: ###.# % ":RENTEFOD