|
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: 2496 (0x9c0)
Notes: Mikados TextFile, Mikados_K
Names: »SAMRENTE«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SAMRENTE«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SAMRENTE«
0010 // --------------------- samrente -------------------------------- 0020 // Udregner slutkapital, når man indtaster startkapital, rentefod 0030 // samt antallet af terminer. 0040 // --------------------------------------------------------------------- 0050 CLEAR 0060 CURSOR 1,4 0070 PRINT "S a m m e n s a t r e n t e s r e g n i n g :" 0080 CURSOR 1,5 0090 PRINT "-----------------------------------------------" 0100 CURSOR 1,9 0110 INPUT "Indtast kapital: ":STARTKAPITAL 0120 PRINT 0130 INPUT "Indtast rentefod: ":RENTEFOD 0140 PRINT 0150 INPUT "Indtast antallet af terminer: ":TERMIN 0160 // -------------------------------------------------------------------- 0170 SLUTKAPITAL:=STARTKAPITAL*(1+RENTEFOD/100)**TERMIN 0180 // -------------------------------------------------------------------- 0190 PRINT 0200 PRINT 0210 PRINT "Kapitalen er: ";STARTKAPITAL 0220 PRINT "Rentefoden: ";RENTEFOD 0230 PRINT "Antallet af terminer: ";TERMIN 0240 PRINT "Slutkapital: ";INT(SLUTKAPITAL*100)/100 0250 PRINT "-----------------------------------------------------------------