Написать подпрограмму, вычисляющую натуральную степень числа. паскаль написать программу на компьютере и проверить правильность работы вашей процедуры/функции, в этом случае в основной программе должны быть реализованы ввод исходных данных и вызов процедуры/функции.

202

422

Посмотреть ответы 2

Ответы на вопрос:

резной777

Информатика

4,6(100 оценок)

Используем достаточно хорошо известный "индийский алгоритм" возведения в степень. я не буду здесь его приводить из-за достаточно большого объема рассуждений; все легко находится в интернет по фразе "индийский алгоритм возведения в степень". function power(x: double; n: integer): double; var p: double; flag: boolean; begin p : = 1; flag : = true; while flag do begin if odd(n) then p : = p * x; n : = n div 2; if n > 0 then x : = x * x else flag : = false end; power : = p end; var x: double; n: integer; begin writeln('введите число и натуральную степень, в которую его надо возвести'); readln(x, n); writeln('результат: ', power(x, n)) end. тестовое решение: введите число и натуральную степень, в которую его надо возвести 3.6 11 результат: 1316217.03842267 точный результат равен 1316217.03842267136.