Descargar

PROGRAM DINERO;
USES CRT;
VAR I,C,TOTAL,R: REAL;
              N: INTEGER;
BEGIN
    CLRSCR;
    WRITELN('OBTENER EL TOTAL DE DINERO DE UN');
    WRITELN('CAPITAL CON UN INTERES COMPUESTO DADO');
    WRITELN('A UN DETERMINADO PLAZO DE INVERSION');
    DELAY (5000);
    CLRSCR;
    WRITELN('DAME EL CAPITAL INVERTIDO:');
    READLN(C);
    WRITELN('DAME EL INTERES COMPUESTO DADO:');
    WRITELN('EN FORMA DE PUNTO DECIMAL (10% = .1):');
    READLN(I);
    WRITELN('DAME EL PLAZO DE LA INVERSION:');
    READLN(N);
    IF (C>0) AND (I>0) AND (N>0) THEN
       BEGIN
          CLRSCR;
          R:= EXP(N*LN(1+I));
          TOTAL:= C*R;
          GOTOXY(15,10); WRITE('TOTAL DE DINERO:',TOTAL);
          DELAY (5000);
       END
    ELSE
       BEGIN
         CLRSCR;
         WRITELN('DATO (S) NO VALIDO (S) ');
         DELAY (5000);
       END
END.

Descargar