Hallo allemaal,
Ik ben bezig voor mijn werk een stukje software te schrijven (in Delphi 5) waarbij je een inverse sinus nodig hebt. Ik dacht zelf Arc.Sinus maar daar krijg ik een fout melding ( Unit1.pas(69): Undeclared identifier: ‘ArcSin’). Ik heb het unit hieronder staan kan iemand mij helpen.
var
Form1: TForm1;
x1: Single;
x2: Single;
y1: Single;
y2: Single;
l1: Single;
l1r: Single;
bb1: single;
lb1: single;
h1: single;
h2: Extended;
implementation
{$R *.DFM}
procedure TForm1.bereken1Click(Sender: TObject);
begin
x1:=StrToInt(editx1.Text);
x2:=StrToInt(editx2.Text);
y1:=StrToInt(edity1.Text);
y2:=StrToInt(edity2.Text);
bb1:=StrToInt(b1.Text);
lb1:=StrToInt(l1.Text);
h1:=((bb1)/(lb1));
h2:=ArcSin((h1)*(pi/180));
Form1.label10.Caption := FloatToStrF(h2,fffixed,5,2);
Met vriendelijke groet
Ludo Verbeek