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

[RealSHELS]

А большое это какое?

[Эльмирчик (ms)]

а кто поможет сделать алгоритм для вычисления:
C=M^K mod R,
где M - число;
K - степень числа M (K - большое число);
R - значение произведения двух простых чисел.
жду....очень нужно

[maladoy]

function power (x : real; k : integer) : real;
begin
power:=exp(ln(x)*k)
end;
пользоваться
y:=power(a,b), где a -число а b степень

[capta1n]

В степень говорите... это так чтоли ::: 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.
- будут вопросы обращайтесь!

Здравствуй, в общем в программе есть ошибки - там в общем функция не со своим именем и параметров нет и в общем тип ее задан неправильно и еще что-то - не помню - в общем проаназизируй с отрицательными числами, тобишь возведи в степень 0.5 ( это корень из числа ) число отрицательное - программа либо должна выдавать комплексное число ( допустим корень из "-4" равен "2i" либо как обычно программа должна выдавать сообщение, что корень четной степени из отрицательного числа не извлекается - потом попробуй допустим 0 в степени 0 - это неопределенность, которую не сосчитать - тоже учесть надо - я кстати писал программу на вычисление стпени от любого числа - потом забил, ибо времени на это не было Или вот допустим возведи -2 в -2 - должна получиться четверть, а у тебя получается минус четверть - в общем там есть определенные проблемы в программе - поразмышляй, подправь и выкладывай новые мысли )

[KerrY]

(-1)^k возводится так:
if (k mod 2) then 1 else -1

[puporev]

if (k mod 2)

Уж если хочешь повыёживаться, так хоть пиши без ошибок, не позорься.

[Эльмирчик (ms)]

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

Уж если хочешь повыёживаться, так хоть пиши без ошибок, не позорься.

новичок хочет быть полезным, а Вы так цепляетесь.....лучше бы указал какая именно ошибка...лично мне не понятно...

[puporev]

if (k mod 2=0) then 1 else -1

[Somebody]

[Здесь было ненужное сообщение, т.к. я не особо внимательный...]

[arcman]

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

В степень говорите... это так чтоли ::: A^B ::: ну IF так Then смотрите :::
- будут вопросы обращайтесь!

Собственно вопрос один - что делать когда число отрицательное, а степень чётная?

например попробуйте возвести -2 в квадрат, используя данный "алгоритм".

(-2)*(-2) = 4 -- это всем понятно

а если верить "алгоритму", то результат д.б. -4