Question

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

Answer 1

Var
  i,n,x:integer;
  p:longint;
 
begin
  Writeln('Введите x и n: '); Read(x,n);
  p:=1; i:=0;
  while i<n do begin
    p:=p*x;
    i:=i+1
    end;
  Writeln(x,'^',n,' = ',p)
end.

Примеры
Введите x и n:
15 3
15^3 = 3375

Введите x и n:
2 10
2^10 = 1024

Введите x и n:
18 5
18^5 = 1889568

-9 7
-9^7 = -4782969

Трассировка:
Введите x и n:
2 6
i=0 p=1
p=2 i=1
p=4 i=2
p=8 i=3
p=16 i=4
p=32 i=5
p=64 i=6
2^6 = 64

Answer 2

Конечно, вот простая программа на Pascal для вычисления x в степени n с использованием цикла while:

pascalCopy code
program PowerCalculation;

var
  x, n: Integer;
  result: Integer;

begin
  Write('Введите целое число x: ');
  Readln(x);

  Write('Введите натуральное число n: ');
  Readln(n);

  if n = 0 then
    result := 1
  else
  begin
    result := 1;
    while n > 0 do
    begin
      result := result * x;
      n := n - 1;
    end;
  end;

  WriteLn('Результат: ', result);
end.

При этом алгоритме переменная result инициализируется единицей, и затем в цикле умножается на x n раз, пока n не станет равно нулю. Результат выводится на экран.

Вы можете проверить программу, вводя различные значения x и n и убедиться, что она корректно вычисляет x в n-й степени.