помогите с алгоритмом ( в паскале), вычислить число в степени равной этому числу Опции

[pirozho4ek]

надо вычислить выражение:
при J:= от 2 до N (N>2) ------ это условие подразумевает что в проге вводится значение N, и перебирая поочереди значения от 2 до N вычисляется значение J^J при каждом значение J... а потом суммировать надо...
но мне надо узнать алгоритм самого вычесления выражения J^J
что б мог считать при любом значение >2
J^J:=?

помогите кто может с алгоритмом

P.S. заранее благодарен=)

Сообщение отредактировано: pirozho4ek - 18.05.2007 4:53

[pirozho4ek]

ЭТО ПОЛНОСТЬЮ ВЫРАЖЕНИЕ КОТОРОЕ МНЕ НАДО РЕШИТЬ В ПАСКАЛЕ.
Я НАПИСАЛ АЛГАРИТМ ДЛЯ НАХОЖДЕНИЯ И СУММИРОВАНИЯ ФАКТОРИАЛА,
А С j^j проблемка.

у переменых J,N тип integer
так вот... алгоритм нахождения J^J конкретно для этого примера мне нужен...
кто может помогите.... хотя б намекните в какую степь глядеть=)

[samec]

А С j^j проблемка.

А вчём проблема то?
вот код, возводит x в степень y.... только вот степень не должна превышать 32768, коль у тебя integer используется...

program step;
var
 result,x,y,i:integer;
begin
 readln(x);
 readln(y);
 result:=1;
 for i:=1 to y do
  result:=result*x;
 writeln(result);
 readln;
end.

[pirozho4ek]

парни соедините эти две проги так чтоб она высчитывала выражение


для фактариала
fac1,sum1:real;
j,i:integer;
begin
writeln('j');
readln(j);
sum1:=1;
for i:=0 to (j-1) do
begin
fac1:=(j-i)*1;
sum1:=sum1*fac1;
end;
writeln(sum1);
end.

для J^J
var
i, j, p : integer;
begin
j:=7;
p:=1;
begin
for i:=0 to j-1 do
begin
p:=p*j;
end;
writeln(p);
end;
end.
уменя ответы четто не сходятся с реальными вычислениями, попробуйте мож у вас получится=)

Сообщение отредактировано: pirozho4ek - 18.05.2007 7:46