Fixpunktbestimmung mit sukzessiver Approximation

program sukzApproximation(input, output);

        {Auffinden eines Fixpunktes mittels sukzessiver Approximation
        am Beispiel cos(x) = x}

    var
        eps, fehler: double;
        x0, x1     : double;

    procedure init; begin
        writeln('Auffinden eines Fixpunktes mittels sukzessiver Approximation ');
        writeln('am Beispiel cosinus(x) = x.');
        writeln;
        writeln('Bitte geben Sie die gewuenschte absolute Genauigkeit an.');
        readln(eps);
        while eps <= 0 do begin
            writeln('Nur positive Genauigkeiten machen Sinn. Versuchen Sie es noch einmal.');
            readln(eps)
        end {while}
    end; {init}

    procedure result; begin
        writeln('Der Fixpunkt liegt bei ', x0:1:7, '.');
    end; {result}

    begin {Sukzessive Approximation}
        init;
        x0 := 1;
        repeat begin
            x1 := cos(x0);
            fehler := abs(x1-x0);
            x0 := x1
        end {repeat}
        until fehler < eps;
        result
    end.