#include <stdio.h>
#include<stdlib.h>
#include<locale.h>
#include<math.h>
#include<ctype.h>
#define pf printf
#define sf scanf

int main() {
    setlocale(LC_CTYPE,"spanish");
    int opc;
    float cap; 
    float tasa;
    float interes;
    float renta;
    float INTERES2;
    float monto;
    float tiempo;
    char otro;

      do{
          
        pf("PROYECTO MATEMATICAS FINANCIERAS\n");
        pf("TEMA\t INTERES SIMPLE\n");
        pf("NANOMATHS\n");
        pf("seleccione una opcion\n");
        pf("1.-Calcular interes\n");
        pf("2.-Calcular capital\n");
        pf("3.-Calcular tasa de interes\n");
        pf("4.-Calcular tiempo\n");
        pf("5.-Calcular monto final\n");
        pf("6.-Calcular interes con monto y capital\n");
        pf("7.-Salir\n");
        scanf("%d", &opc);
          
          switch (opc) 
          {
              case 1:
                  pf("INTERES");
                  do{
                  pf("Ingresa el capital:\n");
                  sf("%f",&cap);
                      if (cap<=0) 
                      {
                          pf("Error, el capital debe de ser mayor a 0\n");
                      }
                  }while (cap<=0);
                  do{ 
                  pf("Ingresa la tasa de interes anual en decimal:\n");
                  sf("%f",&tasa);
                      if (tasa<=0) 
                      {
                          pf("Error, la tasa tiene que ser mayor a 0\n");  
                      }
                  }while (tasa<=0);
                  do{
                  pf("Ingrese el tiempo en años:\n");
                  sf("%f",&tiempo);
                      if (tiempo<=0) 
                      {
                          pf("Error, el tiempo debe de ser mayor a 0\n");
                      }
                  }while (tiempo<=0);
                  
                  interes=cap*tasa*tiempo;
                  pf("El interes simple anual es de:$%.2f\n",interes);
                  break;

              case 2:
                  pf("Capital");
                  do{
                      pf("ingrese el interes:\n");
                      sf("%f",&interes);
                      if (interes<=0) 
                      {
                         pf("Error, el interes debe de ser mayor 0º\n"); 
                      }
                  }while (interes<=0);
                  do {
                      pf("ingrese la tasa de interes anual en decimal:\n");
                      sf("%f",&tasa);
                      if (tasa<=0) 
                      {
                          pf("Errir la tasa debe de ser mayor  0\n");
                      }
                  } while (tasa<=0);
                  do {
                      pf("Ingresa el tiempo en años:\n");
                      sf("%f",&tiempo);
                      if (tiempo<=0) 
                      {
                         pf("Error el tiempo debe de ser mayor a 0\n");
                      }
                  } while (tiempo<=0);
                  cap=interes/(tiempo*tasa);
                  pf("el capital es de: $%.2f\n",cap);
                  break;

              case 3:
                  pf("TASA DE INTERES\n");
                  do {
                      pf("ingrese el interes:");
                      sf("%f",&interes);
                      if(interes<=0) 
                      {
                         pf("Error, el interses debe de ser mayor a 0\n");
                      }
                  } while (interes<=0);
                  do {
                      pf("ingresa el capital:");
                      sf("%f",&cap);
                      if (cap<=0) 
                      {
                         pf("Error,el capital debe de ser mayor a 0\n");  
                      }
                  } while (cap<=0);
                  do {
                      pf("ingrese el tiempo:");
                      sf("%f",&tiempo);
                      if (tiempo<=0) 
                      {
                        pf("Error,el tiempo debe de ser mayor a 0"); 
                      }
                  } while (tiempo<=0);
                  tasa= interes/(cap*tiempo);
                  pf("La tasa anual de interes es de :%.2f\n",tasa);
                  break;

              case 4:
                  pf("TIEMPO\n");
                  do {
                      pf("ingrese el interes:");
                      sf("%f",&interes);
                      if (interes<=0) 
                      {
                        pf("Error, el interes debe de ser mayor a 0\n");
                      }
                  } while (interes<=0);
                  do {
                      pf("ingrese el capital:");
                      sf("%f",&cap);
                      if (cap<=0) 
                      {
                         pf("Error el capital debe de ser mayor a 0\n"); 
                      }
                  } while (cap<=0);
                  do {
                      pf("ingrese la tasa de interes anual en decimal:");
                      sf("%f",&tasa);
                      if (tasa<=0) 
                      {
                        pf("error, la tasa debe de ser mayor a 0\n");  
                      }
                  } while (tasa<=0);

                  tiempo= interes / (cap*tasa);
                  pf("El tiempo es de %.2f años\n",tiempo);
                  break;

              case 5:
                  pf("MONTO\n");
                  do {
                      pf("ingrese el capital:");
                      sf("%f",&cap);
                      if (cap<=0) 
                      {
                        pf("Error, el capital tiene que ser mayor a 0\n");  
                      }
                  } while (cap<=0);
                  do {
                      pf("ingrese la tasa anual en decimales:");
                      sf("%f",&tasa);
                      if (tasa<=0) 
                      {
                        pf("Error la tasa debe de ser mayor a 0\n");
                      }
                  } while (tasa<=0);
                  do {
                      pf("ingrese el tiempo en años:");
                      sf("%f",&tiempo);
                      if (tiempo<=0) 
                      {
                        pf("Error el tiempo debe de ser mayor a 0\n");
                      }
                  } while (tiempo<=0);
                  monto= cap*(1+(tasa*tiempo));
                  pf("El monto final es de:$%.2f\n",monto);
                  break;

              case 6:
                  pf("INTERES CON MONTO Y CAPITAL\n");
                  do {
                      pf("ingresa el monto total:");
                      sf("%f",&monto);
                      if (monto<=0) 
                      {
                        pf("Error, el monto debe de ser mayor a 0\n");  
                      }
                  } while (monto<=0);
                  do {
                      pf("ingresa el capital inicial:");
                      sf("%f",&cap);
                      if (cap<=0) 
                      {
                        pf("Error, el capital debe de ser mayor a 0\n");  
                      }
                      else
                          if (cap>=monto) 
                          {
                            pf("Error, el capital no puede ser mayor o igual al monto\n");  
                          }
                  } while (cap<=0 || cap>=monto);
                  INTERES2=monto-cap;
                  pf("El interes generado al final es de: $%.2f",INTERES2);
                  break;

              case 7:
                  pf("Gracias por usar el programa NANOMATHS\n");
                  break;

              default:
                  pf("Error,opcion no valida\n");
                  break;
          }
          pf("Desea usar otra opcion? s/n:");
          sf("%c",&otro);
          otro=toupper(otro);
      }while (otro=='S');
    return 0;
}