Mathematische Formeln

[Daniel]

ähm ... Du hast da oben eine fertige Prozedur stehen, welche nur noch aufgerufen werden muss.

Code:

program BerechnePi;
uses
  SysUtils, Math, Dialogs;

var Index : Integer;
  piValue : Extended;
Begin
  piValue:= 3;
  For Index:= 1 To 5 Do
    piValue:= piValue - (sin(piValue)/cos(piValue));

  ShowMessage( FloatToStr(piValue) );
end.

Den obigen Code-Block als "BerechnePi.dpr" speichern und in der Delphi-IDE laden und kompilieren. Fertig.