DataMuseum.dk

top - metrics - download

    Length: 896 (0x380)
    Types: TextFile
    Names: »SAMRENTE.PAS«

└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
    └─⟦this⟧ »SAMRENTE.PAS« 

TextFile

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»