El interés simple

Hay que aprovechar los anuncios de la tele, y en esta ocasión he querido recordar antiguas formulitas que cuando hacen falta nunca encuentras.

En este caso es la fórmula del interés simple. Esa que te aplican cuando pides un préstamos al banco para gastos al consumo como una moto, coche, etc. Para las hipotecas suelen aplicar otras historias de las que hoy no nos vamos a ocupar.

En esto que denominan "Capitalización simple", los intereses que se producen en cada período no se acumulan para calcular los intereses de períodos posteriores. Por lo tanto el interés se mantiene constante.

Si hay 4 períodos y se empieza con un capital inicial C0, y el interés es i, al final del primer período debemos C0 + C0 x i. Al final del segundo período debemos C0 + C0 x i + C0 x i... Continuando así, llegamos a la fórmula:

Si llamamos Cn al capital final (capital inicial + intereses):

Cn = C0 x ( 1 + n x i)

El programa Pascal que lo calcula (por si se pierde la tabulación he encabezado este post con una imagen del mismo):

program interessimple;
var     c0,cn,i:real;
        a,n:integer;
begin
        writeln('Interes simple');
        writeln('c0 es el capital inicial');
        writeln('i es el interes anual');
        writeln('n es el numero de periodos');
        writeln('cn es el capital final');
        writeln;
        repeat
          writeln('Elige una opcion');
          writeln('1-Conoces el c0,i,n');
          writeln('9-Salir');
          readln(a);
          case a of
                        1:
                        begin
                        write('c0?');readln(c0);
                        write('i?');readln(i);
                        write('n?');readln(n);
                        cn:=c0*(1+n*i);
                        writeln('cn = ',cn:8:2);
                        end;
          end;
        until a=9;
end.