% PEng 8.11
% Läsa in en summa pengar P och en årsränta i, skriva ut på fil en tabell
% över hur summan ökar varje månad över fem år

clear

disp('Det här programmet beräknar utvecklingen av ditt banksaldo över fem år.')
P = input('Ange nuvarande saldo: ');
i = input('Ange ränta i %: ');

manad = 0:(5*12);
Putveckling = P*(1 + i/1200).^double(manad);

% Skriv tabellen på fil
filnamn = 'interest.txt';
% Öppna utfilen för skrivning
fid = fopen(filnamn, 'w');

% Skriv kolumnrubriker på filen
fprintf(fid, ' Månad     Kontosaldo\n');
fprintf(fid, '----------------------\n');
% Skriv alla värden på filen
fprintf(fid, '%4i%14.2f\n', [manad; Putveckling]);


% Stäng filen
fclose(fid);
