|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 896 (0x380)
Types: TextFile
Names: »SAMRENTE.PAS«
└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
└─ ⟦this⟧ »SAMRENTE.PAS«
└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
└─ ⟦this⟧ »SAMRENTE.PAS«
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
└─ ⟦this⟧ »SAMRENTE.PAS«
PROGRAM samrente;
VAR
startkapital, slutkapital, rentefod : REAL;
terminer : INTEGER;
BEGIN
WRITE(CLRHOM);
WRITELN('Programmet beregner SLUTKAPITALEN, når man indtaster');
WRITELN('STARTKAPITAL, RENTEFOD og antal TERMINER');
WRITELN;
WRITE('Indtast STARTKAPITAL: '); READLN(startkapital);
WRITE('Indtast RENTEFOD: '); READLN(rentefod);
WRITE('Indtast ANTAL TERMINER: '); READLN(terminer);
slutkapital := startkapital * EXP(terminer * LN(1 + rentefod / 100));
WRITELN;
WRITELN('STARTKAPITAL: ', startkapital : 10 : 2, ' kr');
WRITELN('RENTEFOD ', rentefod : 10 : 2, ' %');
WRITELN('ANTAL TERMINER: ', terminer : 10, ' terminer');
WRITELN('SLUTKAPITAL: ', slutkapital : 10 : 2, ' kr');
WRITELN;
END.
«eof»