|
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: 992 (0x3e0)
Notes: Mikados TextFile, Mikados_K
Names: »RENTE«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RENTE«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RENTE«
0010 // --------------------- rente -------------------------------------- 0030 // ---------------------------------------------------------------- 0040 CLEAR 0045 INTEGER RENTEDAGE // heltals-defineringe 0050 INPUT "Indtast kapital: ":KAPITAL 0060 INPUT "Indtast rentefod: ":RENTEFOD 0070 INPUT "Indtast rentedage: ":RENTEDAGE 0080 RENTE:=INT(((KAPITAL*RENTEFOD*RENTEDAGE)/100/360)*100+0.5)/100 0090 PRINT 0100 PRINT 0110 PRINT "Kapital:","Rentefod:","Rente:","Rentedage:" 0120 PRINT "----------------------------------------------------------------- 0130 PRINT 0140 PRINT KAPITAL;"kr.",RENTEFOD;"%",RENTE;"kr.",RENTEDAGE;"dage" 0150 PRINT "=================================================================