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:

procedure TForm1.BitBtn1Click(Sender: TObject);

    var                   a : array of double; sinus:array of double;
     radius, Lkdm,Grad: double;
                     Teiler,i: integer;
      const         Kreis : integer =360;


begin

     if edit1.Text <= inttostr(0) then exit;      //Eingabe abfrage
        if edit2.Text <= inttostr(0) then exit;   //Eingabe abfrage
         Lkdm:=strtofloat(edit1.Text);             //Lochkreis einlesen
            Radius:=Lkdm/2;                           //Radius errechnen
             Teiler:=strtoint(edit2.Text);        //Bohrungsanzahl einlesen
                Grad:=Kreis/Teiler;               //Winkel bestimmen




             setlength (a,Teiler);                 //Dynamisches Array festlegen  
               for i:=Low(a) to High(a)          //Bohrungswinkel festlegen
                 do  a[i]:=i*grad;
                   setlength(sinus,teiler);
                     for i:=low(sinus) to high(sinus)
                       do  sinus[i]:=sin(pi*a[i]/180)*radius; //Umrechnen Sinus    
                                                                              //von Rad in Grad




       with memo1 do begin    //Ausgabe in Memofeld
        clear;
          scrollbars:=ssboth;
            Lines[0]:='';
               for i:=0 to Teiler -1 do
                 lines.Add(floattostr(a[i])+'°' +' X-Achse '+floattostr(sinus[i]));
end;
  end;					

1:
2:
3:

s:=sin(pi);
memo1.lines.Add(floattostr(sin(pi)));
memo1.lines.Add(formatFloat('0.000000000000000000000000',sin(pi)));					

1:

lines.Add(floattostr(a[i])+'°' +' X-Achse '+floattostr(sinus[i]));					

1:

lines.Add(floattostr(a[i])+'°' +' X-Achse '+formatFloat('0.0000',(sinus[i]));