Возвести x в степень n - Free Pascal

Формулировка задачи:

Дано целое число X и натуральное N. Составьте алгоритм вычисления x в n степени. Проверте алгоритм трассировкой. Напишите программу на паскале. Только через while do.

Решение задачи: «Возвести x в степень n»

Листинг программы

s:=1;
i:=1;
while i<=n do
 begin
  s:=s*x;
  i:=i+1;
 end;

Объяснение кода листинга программы

В начале программы объявлены две переменные: s и i. Значение переменной s равно 1, а значение переменной i равно 1.
Затем выполняется цикл while, который выполняется до тех пор, пока значение переменной i не станет больше или равным n.
Внутри цикла значение переменной s умножается на значение переменной x.
После каждой итерации значение переменной i увеличивается на 1.
По завершении цикла значение переменной s будет равно результату возведения переменной x в степень n.