возвести число x в степень y

[Imbire]

требуется возвести число x в степень y (1<=x<=10; 1<=y<=1000), написала через цикл, но с большой степенью не выходит, как эту задачу иначе можно сделать?

[Somebody]

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

1<=x<-10

Нету таких иксов.

[Imbire]

извините, опечаталась

[Serge_Bliznykov]

можно взять вещественный тип данных.
например

var Stepen : extended;
 x, y : integer;
begin
   Stepen := 1;
   for i:=1 to y do Stepen := Stepen * x;

а ещё можно обойтись без циклов - используя логарифмическую функцию...

если ответ нужен в ЦЕЛЫХ числах, тогда задача сложнее - нужно реализовать длинную арифметику...

[Imbire]

нужен в целых) а где можно почитать про эту арифметику?что бы доступно было написано?

[TinMan]

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

а где можно почитать про эту арифметику?что бы доступно было написано?

А чего про нее читать? Это самая обычная арифметика..
Ты в каком классе учишься? Первый уже закончила? умеешь умножать/делить столбиком/уголком? Вот это и есть вся длинная арифметика, больше в ней ничего нет )). Так что надо не читать, а садиться и делать..

Но, поскольку тут длинная арифметика требуется только в очень усеченном варианте (только умножение и только на короткое число), то сделать это совсем просто.

{ short number to the power of short, which results into long number
  by TinMan, programmersforum.ru }

const
  LongLength= 1001;
  LongBase= 10;

type
  tNumber= array[1..LongLength] of byte;

procedure ProductLongByShort(var a: tNumber; b: byte);
var
  i,c: integer;
begin
  c:= 0;
  for i:=1 to LongLength do begin
    c:= a[i]*b+c;
    a[i]:= c mod LongBase;
    c:= c div LongBase
  end
end;

procedure PresetLong(var a: tNumber; b: longint);
var
  i: integer;
begin
  for i:=1 to LongLength do begin
    a[i]:= b mod LongBase;
    b:= b div LongBase
  end
end;

procedure ShowLong(a: tNumber);
var
  i: integer;
begin
  i:= LongLength;
  while (i>1) and (a[i]=0) do dec(i);
  for i:=i downto 1 do write(a[i])
end;

var
  i,x,y: integer;
  n: tNumber;

begin
  write('enter x and y: ');
  readln(x,y);
  PresetLong(n,1);
  for i:=1 to y do ProductLongByShort(n,x);
  ShowLong(n);
  readln
end.

Вот, как-то так.. Тут реализовано простое умножение в столбик, плюс процедура для перевода коротких чисел в длинные, а также печать длинных чисел. Из условия задачи следует, что длина (в десятичной системе) не может превышать 1001 знака. Названия процедур и переменных говорят сами за себя. Я также выделил основание в отдельную константу, так что при желании можно получить результат и в другой системе счисления - но это так, на всякий случай, поскольку это совсем другая песня..
Imbire, спрашивай, что неясно.

[Serge_Bliznykov]

TinMan, браво!!!