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

01.01.2001

Дано целое число X и натуральное N.Составьте алгоритм вычисления Х в степени N.Проверьте алгоритм трассировкой. Напишите
Составьте алгоритм вычисления Х в степени N.Проверьте алгоритм трассировкой. Напишите программу в Паскале, используя
While <логическое выражение> do <оператор>
НАЛИЧИЕ WHILE обязательно!

  • используйте быстрое возведение в степень
    https://en.wikipedia.org/wiki/Exponentiation_by_squaring
  • int i = 2;
    res = x;
    while( i <= N )
    {
    res *= x;
    i++;
    }

    на паскакаль сие перевести совсем не сложно будет

  • Ищет a^n.

    var
    result,a:longint;
    n:inteher;
    begin
    readln(a,n);
    result:= 1;
    while n > 0 do
    begin
    if n and 1 = 1 then
    result:= result * a;
    n:= n shr 1;
    a:= sqr(a);
    end;
    writeln(result);
    end.

  • Если ещё актуально, пиши на почту, помогу.

Вас заинтересует