|
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: »RENTEF2«
└─⟦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«
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