n-ая степень из числа

[firephenix]

Можно ли вычислить n-ую степень из числа, не используя никакой uses в delphi.

[unbanned]

в смысле корень n-й степени?

X^Y = exp(ln(X) * Y)

корень n-й степени из числа = возведение этого числа в степень 1/n

[chertovich]

Сообщение от unbanned

в смысле корень n-й степени?

X^Y = exp(ln(X) * Y)

корень n-й степени из числа = возведение этого числа в степень 1/n

Тебе же сказали не использовать модулей! А Exp из модуля System))

[_Den_1984]

а в чем проблема использования uses ?

[ImmortalAlexSan]

function power (x:double; n:integer): double;
begin
var i:integer;
result:=x;
if n = 1 then exit;
for i=0 to n-2 do
result:=result*x;
end;

Работать будет только для степени >= 1

[Пепел Феникса]

chertovich, учитывая что system подключается всегда.
совсем без модулей это на асме, через FPU.

[Serge_Bliznykov]

Сообщение от chertovich

Тебе же сказали не использовать модулей! А Exp из модуля System))

ну сказали же "БЕЗ Uses"! А не без системных библиотек!

program Project2;
{$APPTYPE CONSOLE}
var N : integer;
   X : double;
begin
  WriteLn('Input X'); Readln(X);
  WriteLn('Input N (root of degree): '); Readln(N);
  WriteLn('Result = ', exp(ln(X) * (1/N)):15:7);
  readln
end.

Вот полный рабочий код. Ткните пальцем, где здесь Uses

Поддерживаю. Решение от unbanned соответствует требованиям задачи!