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

var a,b: integer; //globale Variablen
...

function Tuwas(c,d: integer): integer;
begin
  a := c;  //Ändern der globalen Variablen a
  b := d;  //Ändern der globalen Variablen b
  Result := a/b;
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:
53:
54:
55:

implementation
  var basis, exponent: byte  ;
  var ganzzahlig:boolean=false;
      
{$R *.dfm}

function FktPotenz(basis, exponent: byte) : int64;
var produkt: int64;
    i : byte;
  Begin
   produkt:= 1;
   for i := 1 to exponent do
   produkt:= produkt * basis;
   FktPotenz:=produkt;
  end;

function FktBasis(exponent: Byte; potenz:Int64):Byte;
  begin
    basis:=0;
    while FktPotenz(basis, exponent)< potenz do
    basis:= basis+1;
    if Potenz=FktPotenz(basis,exponent) then
    ganzzahlig:= true;
    FktBasis:= basis;
  end;

procedure TForm1.Button2Click(Sender: TObject);
  begin
  basis:=strtoint(edit1.text);
  exponent:=strtoint(edit2.text);
  edit3.text:=inttostr(FktPotenz(basis,exponent))
  end;


procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
basis:=0 ;
exponent:=0 ;
end;


procedure TForm1.Button3Click(Sender: TObject);
var potenz: byte;
 begin
  exponent:=strtoint(edit2.text);
  potenz:= strtoint(edit3.text);
  edit1.Text:=inttostr(FktBasis(exponent,potenz));
  if ganzzahlig= false then
  edit1.Text:= 'zahl liegt zwischen ' + IntToStr(FktBasis(exponent,potenz)-1)+ ' und '+ IntToStr(FktBasis(exponent, potenz))
  else
  edit1.Text:= IntToStr(FktBasis(exponent,potenz));
 end;