возведение 2 в 100 степень

[nastushka]

Как возвести 2 в 100 степень в паскале? используя массив, потому, что получится 35-разрядное число
Вот начало программы, которую мы писали в классе:
for i=2 to 3 do
i=2*i
st array 1..40 of byte

begin
st 1 =2
k=1
for n=1 to 99 do
begin
for s=1 to k do
begin
t=st 1 *2
в некоторых местах пропущены квадратные скобки. извините.
продолжите пожалуйста программу. вопрос жизни и смерти! срочно...

 

[vital]

Какой ужас.. А вспомнить математику, и что такое экспонента никак?
program stepen
var
i:comp; //Не очень часто используемый тип переменной..
begin
i:=exp(35*ln(2));
writeln("2 в 35й степени=",i);
end.

Собсно в написанную выше формулу можно подставлять любые числа, кроме отрицательных. exp(степень*ln(основание))

 

[Dock1100]

Вот еше один вариант(как мне в школе давали)(он работает токо сцелой и положительной степенню)

function step(ch,s:integer):extended
var i:integer;
ch2:extended;
begin
ch2:=ch;
for i:=1 to s do
ch2:=ch2*ch;
step:=ch2;
end;

 

[vital]

Вот еше один вариант(

ПОпробуй этим вариантом возвести 2 в 100ю степень. Будет ошибка. Типа Extended не хватит, если я правильно помню диапазоны типов.

 

[Dock1100]

должно хватить, extended это 3.4*10^(-4951)-1.1*10^4932