Как возвести число в степень?

[Wintrymoon]

Вот несколько задач....горю, как нужны до 11 марта...
№1 Как возвести число в степень? Степень вводится в клавиатуры.
№2 Как перевести число с любой системы отсчёта в десятичную? С учётом того, что можно и с шеснадцатиричной, а там буквы....Нужно с оператором case а как?
№3 Как сложить два огромных числа? задача на длянную арифметику.

[W_P]

в 1 задаче степень всегда целое число?? или может быть дробное?

[Шаман]

Функция для возведения в степень...

function Power(x,n:integer):extended;
begin
power:=exp(ln(x)*n));
end;

[Carbon]

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

Как сложить два огромных числа?

Насколько огромных? Если неограничено, то только string.

[Carbon]

№2. Опять же, насколько большим будет число в десятичной системе?

[alexBlack]

Сообщение от Шаман

Функция для возведения в степень...

function Power(x,n:integer):extended;
begin
power:=exp(ln(x)*n));
end;

А если x < 0 ?

[Cannibal]

для сложения "больших" чисел есть тип Longint

[Wintrymoon]

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

в 1 задаче степень всегда целое число?? или может быть дробное?

Да, степень только целое число, положительное.

[koyot]

это где такие задачки лехкии задают?

Функция для возведения в степень...

фри паскаль не берет, такчто надежнне через for!

program lll ;
          var: ch,s,i :integer; 
          begin 
            readln (ch,s) ; {ch-число, s-степень}
            for i:=1 to s-1 do {вроди -1 ибо иначе будет лишняя 0_о можт нет, прокрутить надо) } 
            ch:=ch*ch;
          writeln (ch) ;
readln;
end.

[koyot]

а про системы счисления стукни в асю, я те исходник кину !!!

ася: 442176437 даже в офф пиши