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

program potenzieren; 
uses crt; 
var x,potenziertes_x,n:integer; 
begin 
     clrscr; 
     write('Geben Sie die Basis ein: '); 
     readln(x); 
     potenziertes_x:=x; 
     write('Geben Sie den Exponenten ein: '); 
     readln(n); 
     while n>1 do 
     begin 
          potenziertes_x:=potenziertes_x*x; 
          n:=n-1; 
     end; 
     write(radiziertes_x); 
     readln; 
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function potenz (basis : Extended; exponent : Integer) : Extended;
VAR ergebnis : Extended;
begin
  if exponent = 0 then result:=1
  else begin
    if exponent = 1 then result:=basis else
    begin
      if exponent mod 2 = 0 then
      begin
        ergebnis:=potenz(basis, exponent div 2);
        result:=ergebnis*ergebnis;
      end else result:=potenz(basis, exponent-1)*basis;
    end;
  end;
end;                    

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

procedure TForm1.BitBtn6Click(Sender: TObject);
var kn, k0, n, p:real;
begin

k0:=StrToFloat(edit16.Text);
p :=StrToFloat(edit17.Text);
n :=StrToFloat(edit18.Text);

                      if edit16.text = '0' then if abfang1(edit16) then Exit;
                      if edit17.text = '0' then if abfang1(edit17) then Exit;
                      if edit18.text = '0' then if abfang1(edit18) then Exit;

                      kn:= (k0*((1+p)/(100)^n));
                      label27.caption:-=FloatToStrf(kn, ffFixed, 18,2);
end;

end.                    

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

procedure TForm1.BitBtn6Click(Sender: TObject);
var z, kn, p,ze,k0, lz:real;

begin

kn:=StrToFloat(edit16.Text);
p :=StrToFloat(edit17.Text);
lz :=StrToFloat(edit18.Text);

                      if edit16.text = '0' then if abfang1(edit16) then Exit;
                      if edit17.text = '0' then if abfang1(edit17) then Exit;
                      if edit18.text = '0' then if abfang1(edit18) then Exit;


                      k0:=kn*power((1+p/1*100), 1/lz);
                      //ze:=k0*(1+p/1*100);
                      //z:=power(ze, 1/lz);
                      //kn:= (k0*(power(1+p)/(100), 1/n));
                      //kn := k0*q^n mit q = 1+p/100


                      label27.caption:=FloatToStrf(k0, ffFixed, 18,2);
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:

begin
     if LCSAbfang(edit16) then begin
          kn:=StrToFloat(edit16.Text);
          if LCSAbfang(edit17) then begin
               p :=StrToFloat(edit17.Text);
               if LCSAbfang(edit18) then begin
                    lz :=StrToFloat(edit18.Text);



-->diese Zeile  kn:= (k0*(power(1+p)/(100), 1/p));---->ist unterlegt
                      //k0:=kn*power((1+p/1*100), 1/lz);
                      //ze:=k0*(1+p/1*100);
                      //z:=power(ze, 1/lz);
                      //kn:= (k0*(power(1+p)/(100), 1/n));
                      //kn := k0*q^n mit q = 1+p/100


                      label27.caption:=FloatToStrf(kn, ffFixed, 18,2);
end;
end;
end;

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:

var k0, p, n, kn:real;

begin
     if LCSAbfang(edit16) then begin
          k0:=StrToFloat(edit16.Text);
          if LCSAbfang(edit17) then begin
               p :=StrToFloat(edit17.Text);
               if LCSAbfang(edit18) then begin
                    n :=StrToFloat(edit18.Text);



                      kn:= (k0*(power(1+p/(100), 1/n)));
                      {k0:=kn*power((1+p/1*100), 1/lz);
                      ze:=k0*(1+p/1*100);
                      z:=power(ze, 1/lz);
                      kn:= (k0*(power(1+p)/(100), 1/n));
                      kn := k0*q^n mit q = 1+p/100 }


                      label27.caption:=FloatToStrf(kn, ffFixed, 18,2);
end;
end;
end;
end;
end.