ЯН
Яна Никишина
функции pow() в Паскале нет
если k - целое число - то если k - четное (2n) то +1, нечетное -1
1) если k - целое число >0... то просто в цикле
a0 = -1;
for i:=1 to k do a:=a*a0;
2) если k - целое число <0... то также просто в цикле
a0 = -1;
for i:=1 to k do a:=a/a0;
3) если k - произвольное число <>0 и основание x>0
можно (но не в этом случае! ) использовать свойства логарифма.. .
Ln( x^k ) = k * ln(x)
а "экспоненцируя" логарифм.. . e^ln(X) = X
f := exp( k * ln(x) );