DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦e8bf8f00b⟧

    Length: 736 (0x2e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »RENTEF2«

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »RENTEF2« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »RENTEF2« 

Text

0010 // --------------------- rentefod_2 ---------------------------
0020 CLEAR 
0030 INPUT "Indtast begyndelseskapital:               ":BEGYNDKAPITAL
0040 INPUT "Indtast slutkapital:                      ":SLUTKAPITAL
0050 INPUT "Indtast antal af terminer:                ":TERMINER
0060 RENTEFOD:=((SLUTKAPITAL/BEGYNDKAPITAL)**(1/TERMINER))-1
0070 PRINT 
0080 PRINT 
0090 PRINT USING "Begyndelseskapital:   ##############.## kr. ":BEGYNDKAPITAL
0100 PRINT USING "Slutkapital:          ##############.## kr. ":SLUTKAPITAL
0110 PRINT USING "Antal terminer:                 ####        ":TERMINER
0120 PRINT 
0130 PRINT USING "Rentefod:                        ###.# %    ":RENTEFOD*100