Какими способами можно вычислить значения у=х^10 и у=х^15 на языке Паскаль, избегая использования операции возведения

Суть вопроса: Вычисление степеней числа на языке Паскаль

Пояснение: На языке Паскаль, чтобы вычислить значения функции у=х^10 и у=х^15, можно использовать методы возведения в степень через последовательное умножение.

Для вычисления значения у=х^10, можно последовательно умножать переменную х на саму себя 10 раз:

program PowerOfX;

var

   x, y: real;

   i: integer;

begin

   writeln("Введите значение x:");

   readln(x);

   

   y := 1;

   

   for i := 1 to 10 do

      y := y * x;

   

   writeln("Значение y = x^10 равно: ", y);

end.

Аналогично, для вычисления значения у=х^15, можно использовать алгоритм последовательного умножения:

program PowerOfX;

var

   x, y: real;

   i: integer;

begin

   writeln("Введите значение x:");

   readln(x);

   

   y := x;

   

   for i := 1 to 4 do

      y := y * y;   // Возводим в квадрат значение у (x^2, x^4, x^8, x^16)

   

   y := y * x;     // Умножаем на исходное значение х (x^15 = x^16 * x)

   

   writeln("Значение y = x^15 равно: ", y);

end.

Совет: Если вы хотите минимизировать количество переменных, вы можете использовать одну переменную для вычисления и сохранения промежуточных результатов. Например, во втором случае можно было бы использовать переменную типа integer для хранения степени числа, вместо создания отдельных переменных.

Практика: Напишите программу на языке Паскаль, которая вычисляет значение выражения у=х^5 без использования операции возведения в квадрат.