|
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 - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »RENTEFOD.PAS«
└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
└─⟦this⟧ »RENTEFOD.PAS«
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
└─⟦this⟧ »RENTEFOD.PAS«
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»