%% Datos
fprintf('BIENVENIDO A LA CALCULADORA DE AHORROS\n\n');
MensajeSueldo = sprintf('Inserte su sueldo por mes [€]:\t');
Sueldo = input(MensajeSueldo);
fprintf('\n');
MensajeGastos = sprintf('Inserte sus gastos por mes [€]:\t');
GastosPorMeses_str = input(MensajeGastos,'s');
fprintf('\n');
GastosPorMeses = str2num(GastosPorMeses_str);
Nmeses = 12;
if (length(GastosPorMeses) ~= Nmeses)
fprintf('ERROR! Inserte datos para los 12 meses\n\n');
end
%% Cálculos
BalanceMensual = Sueldo - GastosPorMeses;
AhorroAnual = sum (BalanceMensual);
for i = 1 : Nmeses
if (BalanceMensual(i) > 0)
DineroDepositado(i) = 0;
AhorroMensual(i) = BalanceMensual(i);
elseif (BalanceMensual(i) < 0)
DineroDepositado(i) = abs(BalanceMensual(i));
AhorroMensual(i) = 0;
end
end
%% Resultados
fprintf('Dinero depositado por mes [€] = \n\n'); disp(DineroDepositado);
fprintf('Dinero ahorrado por mes [€] = \n\n'); disp(AhorroMensual);
fprintf('Dinero ahorrado por año [€] = \n\n'); disp(AhorroAnual);