1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TGrundflaeche.SinusClick(Sender: TObject);
var b,s,z,w : Extended ;
const pi=3.1415926535897932384626433832795;
begin

  Zahl1 := StrToFloat(Anzeigefeld1W.Caption);

  b := ( Zahl1 / 1048576 );
  s := ((b*pi)/180);
  z := 20;

  WHILE z<>0 DO

    begin
    z := z-1;
    w := (1-(s*s));
    w := WurzelFunktion(w,2);
    s := (2*s*w);
    end;

  Ergebnisausgabe.Caption := FloatToStr(s);

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

function Pot(b,e:Single):Single;
var v:Single;
begin

  IF e=0
    THEN Pot := 1
    ELSE begin
         v:=1;

         WHILE e > 0 DO

          begin
          v:=v*b;
          e:=e-1;
          end; // While Anweisungsblock

         Pot := v;
         end; // IF Anweisungsblock

end;

function WurzelFunktion(r:Extended;n:Cardinal):Extended;
var unten,mitte,oben:Extended;
begin

  IF r >= 1
    THEN begin
         unten:=1;
         oben:=r;
         end
    ELSE begin
         unten:=r;
         oben:=1;
         end;

    WHILE (( oben - unten ) > 0.0000000001 ) DO

      begin
      mitte := ((unten+oben)/2);
      IF Pot(mitte,n) > r
        THEN oben:=mitte
        ELSE unten:=mitte;
      end;

  WurzelFunktion := ((unten+oben)/2)

end;					

1:
2:
3:
4:
5:
6:
7:

sin = 0
j = inputnumber

for i = 1 to 500 do
  sin = sin + j
  j = -j * x^2 / ( (2i + 1) * 2i )
end