DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦b3f7fbc9a⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »RENTEFOD.PAS«

Derivation

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─ ⟦this⟧ »RENTEFOD.PAS«

TextFile

PROGRAM rentefod;
  
  VAR
    rente, rentefod, kapital : REAL;
    dagantal : INTEGER;
  
  BEGIN
    WRITE(CLRHOM);
    WRITELN('Programmet beregner rentefoden, når man indtaster');
    WRITELN('KAPITAL, RENTE og antal DAGE');
    WRITELN;
    WRITE('Indtast KAPITAL:        '); READLN(kapital);
    WRITE('Indtast RENTE (i kr):   '); READLN(rente);
    WRITE('Indtast ANTAL DAGE:     '); READLN(dagantal);
    rentefod := rente * 100 * 360 / kapital / dagantal;
    WRITELN;
    WRITELN('KAPITAL:    ', kapital : 10 : 2, ' kr');
    WRITELN('RENTE:      ', rente : 10 : 2, ' kr');
    WRITELN('ANTAL DAGE: ', dagantal : 10, ' dage');
    WRITELN('RENTEFOD:   ', rentefod : 10 : 2, ' %');
    WRITELN;
  END.
«eof»