Ex 8.11

Läs in en summa pengar P och en ränta i, beräkna och skriv ut en tabell hur pengarna växer. Givet är formeln för det framtida värdet F, F = P*(1+i/1200)^n

clear

% Läs in P och i
filnamn = 'ex_8_11_fil.txt';
fid = fopen(filnamn,'rt');
if fid < 0
    disp('Problem att öppna filen');
else
    P = fscanf(fid,'%f',1);
    i = fscanf(fid,'%f',1);
    fclose(fid);

    n = 1:(12*5);
    F = P*(1+i/1200).^n;

    utfil = 'interest.txt';
    fid = fopen(utfil,'wt');
    if fid < 0
        disp('Problem att öppna filen');
    else
        fprintf(fid,'År \t Månad \t Pengar\n');
        for i=1:length(F)
            fprintf(fid,'%d \t %d \t %8.2f kr\n', floor(i/12), mod(i,12)+1,F(i));
        end
        fclose(fid);
    end
end