Возведение в степень на Pascal

[LORD-BY]

Помогите срочняк!!!
Как возвести число (любое) в степень. Число дано заранее, а степень вводится с клавиатуры пользователем. Заранее большое спасибо!

[zetrix]

Если степень целая и положительная, то обычным циклом:

//x - Ваше число (integer, real)
//N - степень (integer)
//S - здесь будет результат (integer, real)
//i - счётчик (integer)

S:=1;
for i:=1 to N do S:=S*x;

[pu4koff]

выведи формулу через Exp и ln

[Shuraken]

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

[LORD-BY]

А если число, которое нужно возвести в степень отрицательное? И формула примерно выглядит так:

сумма при k равном от 1 до n (((-1)^k)*(n/((k+1)*(k+2)))

в файле оформленно как в Worde выглядит, если непонятно.

[Jeni]

В модуле Math есть функция
function Power(const Base, Exponent: Extended): Extended;
которая возводит любое число в любую степень.

E := StrToFloatDef(Edit.Text, 1); // Если число введено неверно, то вернет 1
X := Power(Число, E);

[LORD-BY]

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

В модуле Math есть функция
function Power(const Base, Exponent: Extended): Extended;
которая возводит любое число в любую степень.

E := StrToFloatDef(Edit.Text, 1); // Если число введено неверно, то вернет 1
X := Power(Число, E);

мне нужно на Паскале, а не на Delphi

[pu4koff]

Сообщение от LORD-BY

А если число, которое нужно возвести в степень отрицательное? И формула примерно выглядит так:

сумма при k равном от 1 до n (((-1)^k)*(n/((k+1)*(k+2)))

в файле оформленно как в Worde выглядит, если непонятно.

это типа минус один в степень надо возвести чтоли? не проще ли проверять k на четность и подставлять 1 или -1 соответственно?

[DannerDOS]

В степень говорите... это так чтоли ::: A^B ::: ну IF так Then смотрите :::

Program Voz_v_stepen_of_DannerDOS;
Uses crt;
Var chisl, stepen:Real;
    Function stn(Var chislo, stepen:Real) of Real;
     Var per:real;
     Begin 
      Per:= Abs(chislo);
      If chislo < 0 Then Pow:= (-1)*Exp((stepen)*Ln(per))
       Else Pow:= Exp((stepen)*Ln(per));
     end;
Begin
clrscr;
Write('Введите число = '); readln(chisl);
Write('Введите степень = '); readln(stepen);
Writeln('Возведя в степень получаем = ',stn);
readln;
readln;
End.

- будут вопросы обращайтесь!

Там если что под себя отредактировать можно!!!

[Frogs2009]

а не могли бы помочь в свозведением в степень большого числа,которое не влезет не в один тип!???????