Составьте на паскале программу возведения в N-ую степень целого числа X.

Для того чтобы составить программу на языке Pascal, которая возводит целое число $X$ в степень $N$, необходимо учесть несколько важных моментов: ввод числа $X$ и степени $N$, обработку отрицательных степеней (если это предусмотрено), а также корректное возведение в степень для целых чисел.

Вот пример программы, которая выполняет эту задачу:

pascal
program PowerCalculator;
var
  X, N, result, i: Integer;
begin
  { Ввод числа X и степени N }
  Write('Введите число X: ');
  ReadLn(X);
  Write('Введите степень N: ');
  ReadLn(N);
  { Если степень N равна 0, результат всегда 1 }
  if N = 0 then
    result := 1
  else
  begin
    result := 1;
    
    { Возведение в степень через цикл }
    for i := 1 to Abs(N) do
      result := result * X;
    
    { Если степень N отрицательная, находим обратное число }
    if N < 0 then
      result := 1 div result;
  end;
  { Вывод результата }
  WriteLn('Результат: ', result);
end.

Пояснение программы:

1. Ввод данных:

   • Программа сначала запрашивает у пользователя ввод числа $X$ и степени $N$, которые будут использоваться для вычислений.

2. Обработка случая, когда $N = 0$:

   • В математике любое число в нулевой степени равно 1. Это условие реализовано сразу после ввода степени.

3. Цикл для возведения в степень:

   • Если степень $N$ положительная, программа просто возводит число $X$ в степень с помощью цикла. В каждой итерации переменная $result$ умножается на $X$.

4. Обработка отрицательной степени:

   • Если степень отрицательная, то после выполнения возведения в степень результат инвертируется, то есть возвращается значение $\frac{1}{X^N}$. В Паскале для целых чисел это достигается через операцию целочисленного деления (div).

5. Вывод результата:

   • После выполнения всех вычислений программа выводит результат на экран.

Пример работы программы:

Если ввести $X = 3$ и $N = 4$, результат будет 81, так как $3^4 = 81$.

Если ввести $X = 2$ и $N = -3$, результат будет 0, так как $2^{-3} = 1/8$, а целочисленное деление 1 на 8 дает 0.

Эта программа работает с целыми числами и может быть расширена для работы с вещественными числами или более сложными случаями.