a hoch n:
Delphi-Quellcode:
function ahochn(a,n: integer): integer;
var i: integer;
begin
Result := 1;
for i:=1 to n do Result := Result * a;
end;
c Falkultät:
Delphi-Quellcode:
function cfakultaet(c: integer): integer;
var i: integer;
begin
Result := 1;
for i:=0 to c do Result := Result * i;
end;
Ich habe gerade vergessen was x über y war...
Und ich hoffe dass ich bei den Funktionen keinen Fehler gemacht habe und dass es das ist was du suchst.
Flare