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

procedure TForm1.Bt_ahochbClick(Sender: TObject);
var i: real;
begin
a:= StrToFloat(edit_a.Text);
b:= StrToFloat(edit_b.Text);

If a > 0 then
 begin
  c := exp(b* ln(a) );
  Edit_c.Text := FloatToStr(c);
 end;

If a <= 0 then
 begin
 i := 0;
 While i <= b do
  begin
   c := a*a;
   i := i + 1;
  end;
  Edit_c.Text := FloatToStr(c);
  end;					

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

function newpower(zahl, exponent: integer): integer;
var
  i: integer;
begin
  result := zahl;
  for i := 1 to exponent do
    result := result * zahl;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function Power(Base, Exponent: Extended): Extended;
begin
  if Exponent = 0.0 then
    Result := 1.0               { n**0 = 1 }
  else if (Base = 0.0) and (Exponent > 0.0) then
    Result := 0.0               { 0**n = 0, n > 0 }
  else if (Frac(Exponent) = 0.0) and (Abs(Exponent) <= MaxInt) then
    Result := IntPower(Base, Integer(Trunc(Exponent)))
  else
    Result := Exp(Exponent * Ln(Base))
end;					

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

function newpower(zahl, exponent: double): double;  //float geht auch
var
  i: integer;
begin
  result := zahl;
  for i := 1 to round(exponent) do
    result := result * zahl;
end;					

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

procedure TForm1.Bt_ahochbClick(Sender: TObject);
var i : integer;
    b : integer;
begin
a:= StrToInt(edit_a.Text);
b:= StrToInt(edit_b.Text);

If a > 0 then
 begin
  c := exp(b* ln(a) );
  Edit_c.Text := IntToStr(c);
 end;
If a <= 0 then
begin
  c:=a;
for i:=1 to b-1 do
 c:=c*a;

  end;
  Edit_c.Text := FloatToStr(c);
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:
48:
49:
50:
51:
52:

function ehoch(Wert:real):real;
var  check,n,glied,eh:real;
     switch:boolean;

begin
n:=0;  eh:=1;   glied:=1;
switch:=false;
if Wert<0 then begin
Wert:=Wert*(-1);
switch:=true;
end;

repeat                      //hier beginnt die Taylorreihe
n:=n+1;
glied:=glied*Wert/n;
check:=eh;
eh:=eh+glied;
until (abs (check-eh)<0.000000000001);               //hier endet sie

if switch=true then begin
eh:=1/eh;
end;
ehoch:=eh;
end;


function ln(Wert:real):real; {f�r Werte nahe 0 ist die Pr?zision nicht exakt.
Vielleicht gibt es generell leichte Abweichungen bei Werten kleiner 1?
Vielleicht wieder �ber Subtraktion von einen Fixlogarithmus ausf�hren!}
var n,check,lna,glied,lnfix,lnafertig,wertur,zerlegln :real;

begin
wertur:=wert;   zerlegln:=0;    lnfix:=0.40546510811;

while Wert>1.5 do begin
Wert:=wert/1.5;  zerlegln:=zerlegln+1;
end;
while Wert<1 do begin
Wert:=Wert*1.5; Zerlegln:=zerlegln-1;
end;
lna:=Wert-1;  n:=1; glied:=(Wert-1);

repeat                       //hier beginnt die eigentliche Taylorreihe
n:=n+1;
glied:=glied/n*(n-1)*(Wert-1)*(-1);
check:=lna;
lna:=lna+Glied;
until (abs(check-lna)<0.0000000000000000000001);  //hier endet sie mit Abbruchkriterium

lnafertig:=(zerlegln*lnfix)+lna;
ln:=lnafertig;
end;