Saltar al contenido
EjemplosEnglishEspacio →

Interés compuesto

Mira cómo crecen tus ahorros año a año.

Nivel
Intermedio
Tema:
Matemáticas
Conceptos:
Entrada y salida
Para
Matemáticas
Abrir en Codoritmo

Ejecuta, modifica y depura este ejemplo en el navegador.

Lo que aprenderás

Un Para aplica el interés en cada vuelta sobre el monto acumulado. Ln calcula en cuánto tiempo se duplica el capital y Exp el resultado con interés continuo.

Código

compound-interest.psc · 20 líneas
Algoritmo InteresCompuesto    Definir capital, tasa, monto Como Real    Definir anios, i Como Entero    Escribir "Capital inicial:"    Leer capital    Escribir "Interés anual (%):"    Leer tasa    Escribir "Años:"    Leer anios    monto <- capital    Para i <- 1 Hasta anios Hacer        monto <- monto * (1 + tasa / 100)        Escribir "Año ", i, ": $", Redon(monto * 100) / 100    FinPara    Escribir "Ganancia total: $", Redon((monto - capital) * 100) / 100    Si tasa > 0 Entonces        Escribir "Años para duplicar el capital: ", Redon(Ln(2) / Ln(1 + tasa / 100) * 10) / 10    FinSi    Escribir "Con interés continuo serían: $", Redon(capital * Exp(tasa / 100 * anios) * 100) / 100FinAlgoritmo

Diagrama de flujo

Cada bloque del diagrama corresponde a una instrucción del código.

Algoritmo InteresCompuestoSíNoAlgoritmo InteresCompuestoAlgoritmo InteresCompuestoDefinir capital, tasa, monto Como RealDefinir capital, tasa, montoComo RealDefinir anios, i Como EnteroDefinir anios, i Como EnteroEscribir "Capital inicial:"Escribir "Capital inicial:"Leer capitalLeer capitalEscribir "Interés anual (%):"Escribir "Interés anual (%):"Leer tasaLeer tasaEscribir "Años:"Escribir "Años:"Leer aniosLeer aniosmonto <- capitalmonto <- capitalPara i <- 1 Hasta anios HacerPara i <- 1 Hasta aniosmonto <- monto * (1 + tasa / 100)monto <- monto * (1 + tasa /100)Escribir "Año ", i, ": $", Redon(monto * 100) / 100Escribir "Año ", i, ": $",Redon(monto * 100) / 100Escribir "Ganancia total: $", Redon((monto - capital) * 100) / 100Escribir "Ganancia total: $",Redon((monto - capital) * 100)/ 100Si tasa > 0 Entoncestasa > 0Escribir "Años para duplicar el capital: ", Redon(Ln(2) / Ln(1 + tasa / 100) * 10) / 10Escribir "Años para duplicarel capital: ", Redon(Ln(2) /Ln(1 + tasa / 100) * 10) / 10Escribir "Con interés continuo serían: $", Redon(capital * Exp(tasa / 100 * anios) * 100) / 100Escribir "Con interés continuoserían: $", Redon(capital *Exp(tasa / 100 * anios) * 100…FinAlgoritmoFinAlgoritmo

Ejemplo de ejecución

Esto muestra el programa al ejecutarlo. Las respuestas escritas por el usuario aparecen resaltadas.

Capital inicial:Respuesta del usuario: 10000Interés anual (%):Respuesta del usuario: 8Años:Respuesta del usuario: 5Año 1: $10800Año 2: $11664Año 3: $12597.12Año 4: $13604.89Año 5: $14693.28Ganancia total: $4693.28Años para duplicar el capital: 9Con interés continuo serían: $14918.25

Desafío

Agrega un depósito fijo que se suma al final de cada año.

Ver pista

Lee el depósito antes del ciclo y súmalo a monto después de aplicar el interés.

Abrir en Codoritmo

Ejemplos relacionados