Sekantenverfahren programmieren

[stefangeorg]

Servus,

Delphi-Quellcode:

     var dCount : Double;
     ...
     dCount := Ax;
     repeat
          // Rechnen
          dCount := dCount + 0.1;
     until dCount > Bx;

mfg
Georg Härting