%% Bedingte Zählschleifen
%  Berechnung des Wertes der Reihe sum(1/(k*k)) --> pi*pi/6
%  bis Folgenglieder relativ (bzgl. des Wertes) kleiner als epsilon sind 
%  oder eine max. Anzahl von Summanden überschritten ist.
clc; clear;

eps = 1e-5;    % relative Abbruchgenauigkeit
n_max = 100; % höchstes verwendetes Folgenglied

%% loop mit break (mag ich nicht)
summe = 0;
for k=1:n_max
    term = 1/k/k;
    if  abs(term) < eps*abs(summe)
        break;            % unsauber, aber einfach
    end
    summe = summe + term;
end
disp(['Summe_1 = ',num2str(summe),'  nach ',num2str(k-1+floor(k/n_max)),' Iterationen' ]);

%% als WHILE-loop
summe = 0;
k = 1;
term = 1/k/k;
while  k<=n_max && abs(term)>=eps*abs(summe)
    summe = summe + term;
    k = k+1;          % Laufvariable hochzählen
    term = 1/k/k;     % neue Iteration vorbereiten
end
disp(['Summe_2 = ',num2str(summe),'  nach ',num2str(k-1),' Iterationen' ]);