Pascal / C возведение 'переменной' в степень

[mynivki]

Как возвести в степень переменную? и через exp(ln(x)*x) и через power выводит 'неверная вещественная операция'. Надо возвести x в степень:
1) x
2) i-1

program lab2_6;
function fun(x:real):real;
var
i:integer;
y:real;
begin
if x<=0 then
y:=x*x+4*exp(ln(x)*x)+4
else
begin
i:=1;
y:=0;
while i<=4 do
begin
y:=y+(x+exp(ln(x)*(i-1)));
i:=i+1;
end;
end;
fun:=y;
end;
var
h,x,y:real;
begin
x:=-5;
h:=0.25;
while x<=4 do
begin
y:=fun(x);
x:=x+h
end;
end.

[Arigato]

Ваш код в студию.

[whatever]

sqr(x) возведет x в квадрат
Если надо x возвести в х, то

tmp:=x;
for i:=2 to x do tmp:=tmp*x;
x:=tmp;

для i-1 аналогично.

[mynivki]

спасибо) Буду пробовать)

[Arigato]

Не понял, чего вы хотели добиться в своей программе, но для возведения в степень можно использовать функцию Power из модуля Math.