grad:=rad*(180/pi)
die Funktionen, die Du benötigst, hast Du ja schon alle aus dem Link und darfst sie auch benutzten.
Vorsichtshalber würde ich in Kommentaren die Quelle angeben, dann ist alles legal.
Im Button1.Click deklarierst nur Deine eigenen Variablen und rufst die Funktionen einfach auf.
Ich hoffe damit kommst Du erstmal weiter, sonst arbeiten wir an Deinem Quelltext.
PS: Warum tut Ihr drei Euch nicht einfach zusammen?
Delphi-Quellcode:
implementation
{$R *.dfm}
//====================My_Math_Functions==============
//Quelle : [url]http://www.gohelmut.de/informatik/[/url]
//delphi11_1/mymathfunctions.php
function my_fakultaet(n:integer):real;
Var i:Integer; s:real;
Begin
s:=1;
for i:=1
to n
do s:=s*i;
result:=s;
End;
function my_pow(x:real;n:integer):real;
Var s:real;i:integer;
Begin
s:=1;
if n>0
then for i:=1
to n
do s:=s*x;
result:=s;
End;
function my_exp(x:real):real;
Var s,ds,fak:real;
i:integer;
Begin
s:=1; fak:=1;
for i:=1
to steps
do
begin
fak:=fak*i;
ds:=my_pow(x,i)/fak;
s:=s+ds;
end;
my_exp:=s;
End;
function my_rpow(x,y:real):real;
Begin
my_rpow:=my_exp(my_ln(x)*y);
End;
function my_root(x:real;n:integer):real;
Begin
my_root:=my_exp(my_ln(x)/n);
End;
function my_sin_rad(x:real):real;
Var i,j:integer; s,ds:real;
Begin
s:=x;
for i:=1
to steps
do
begin
j:=2*i+1;
ds:=power(-1,i)*power(x,j)/my_fakultaet(j);
s:=s+ds;
end;
my_sin_rad:=s;
End;
function my_sin_grad(x:real):real;
Begin
my_sin_grad:=my_sin_rad(x*my_pi/180);
End;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// Dein Code
end;
end.
[Edit] my_root kann weg, wird ja nicht benötigt [/Edit]