Hi,
function Potenz(Basis, Exponent: Integer): Int64;
var i: Integer;
begin
Result := 1;
for i:= 1 to Exponent do
Result := Result*Basis;
end;
Das wäre die Funktion ohne zu überlegen. Ansonsten würde ich dir empfehlen die ersten 2-3 Posts nochmal zu lesen und selbst drauf zu kommen
Gruß
Neutral General
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."