Ну power это в делфи, а в паскале данную функцию можно легко написать самостоятельно.
Вот функция power на паскале в моем представлении, вычисление корня произвольной степени думаю понять не сложно)
Code function pow(a, b: real): real;
begin
result := exp(ln(abs(a)) * b);
if (a < 0) and (round(b) mod 2 <> 0) then result := result * (-1);
if (a < 0) and (b - trunc(b) <> 0) then result := 0;
end;
Данная функция работает как с отрицатильными и положительными числами, так и с отрицательными и положительными степенями.
Если это не требуется, то будет достаточно:
Code result := exp(ln(abs(a)) * b);
Добавлено (30.12.2011, 18:10)
---------------------------------------------
И в первом помоему скобочки нужны:
Code function y(i:real):real;
begin
y:=sqrt(a[i]*a[i]*a[i]-2*(a[i]*a[i])+5*a[i]-7);
end;
Сообщение отредактировал masb8ly-GC - Пятница, 30.12.2011, 18:03 | 
