Возведение в степень(делфи)

[manick]

Как написать функцию возведения любого числа в любую степень? ( например 0.6 ^2.4 или -4 ^3)

function step (x:real;n:real):real;
begin
y:=exp(ln(x)*n);
step:=y;

end;

по этой функции не работает.
подскажите пожалуйста.

[RUSt88]

// возводим в степень step любое число value
function stepen(value: integer; step: Byte): Integer;
var
  i, res: Integer;
begin
  if step = 0 then begin // если степень 0, то результат 1
    Result := 1;
  end
  else if step = 1 then begin // если степень 1, то результат само число
    Result := value;
  end
  else begin
    res := value;
    for i := 2 to step do begin // каков размер степени, столько раз и умножаем число
      res := res * value;
    end;
    Result := res; // возвращаем результат
  end;
end;

[UnChanter]

uses Math;
...
a = Power(1.6, 2.2);

[manick]

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

// возводим в степень step любое число value
function stepen(value: integer; step: Byte): Integer;
var
  i, res: Integer;
begin
  if step = 0 then begin // если степень 0, то результат 1
    Result := 1;
  end
  else if step = 1 then begin // если степень 1, то результат само число
    Result := value;
  end
  else begin
    res := value;
    for i := 2 to step do begin // каков размер степени, столько раз и умножаем число
      res := res * value;
    end;
    Result := res; // возвращаем результат
  end;
end;

мне нужно получить результат "real" (с плавующей точкой) а твоя функция содержит целочисленные переменные .

[RUSt88]

мне нужно получить результат "real"

а в чем проблема я не понял? тебе влом пару слов исправить? или я за тебя должен решить здесь, а ты мне еще замечания будешь делать?

хоть бы спасибо сказал

[manick]

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

uses Math;
...
a = Power(1.6, 2.2);

не работает
выдает:
Project calcul.exe raised exception class EConvertError with massege "0.2' is not valid floating point value' process stopped. use step or Run to continue.

я пытался 0.2^3 посчитать.

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

а в чем проблема я не понял? тебе влом пару слов исправить? или я за тебя должен решить здесь, а ты мне еще замечания будешь делать?

хоть бы спасибо сказал

не в "пару слов" проблема. а в том что не считает.

[RUSt88]

0.2

если у тя русский язык стоит, используй запятую вместо точки, и наоборот

тебе влом пару слов исправить?

изменить типы на Real ?

[CodeExpert]

for i := 2 to step do begin // каков размер степени, столько раз и умножаем число
res := res * value;
end;
улыбнуло как оно должно считать числа с плавающей точкой если ход цикла в единицу(?)

или я за тебя должен решить здесь, а ты мне еще замечания будешь делать?

- умерите пыл свой пожалуйста, мы на форуме а не во дворе на лавочке...

[manick]

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

если у тя русский язык стоит, используй запятую вместо точки, и наоборот



изменить типы на Real ?

помогло =) спасибо=)

[Khalisi75]

А как написать такую программу, не используя функции?