решите пожалуйста. Составить программу для вычисления x в степени y - степени целого числа программу написать в Паскале по теме "Функции" "Процедуры" Срочно нужно заранее спасибо

Хотите узнать готовый ответ на вопрос решите пожалуйста. Составить программу для вычисления x в степени y - степени целого числа программу написать в Паскале по теме "Функции" "Процедуры" Срочно нужно заранее спасибо и правильно решить домашнее задание по предмету Информатика? Подробное решение смотрите ниже.

Решите пожалуйста. Составить программу для вычисления x в степени y - степени целого числа
программу написать в Паскале по теме "Функции" "Процедуры"
Срочно нужно
заранее спасибо

function Power(x: real; n: integer): real;begin case n of 0: Result := 1; 1: Result := x; 2: Result := x*x; 3: Result := x*x*x; 4: Result := x*x*x*x; 5: Result := x*x*x*x*x; 6: Result := x*x*x*x*x*x; else if n 0 do begin if n and 1 = 1 then r := r * z; z := z * z; n := n shr 1; end; Result := r; end; end;end;

ну это очень большое решение

function Power(x: real; n: integer): real;beginif n 0 dobeginif n and 1 = 1 thenr := r * z;z := z * z;n := n shr 1;end;Result := r;end;end;end;

Можно, вполне, записать и так - результат функции не изменится...

Похожие ответы

помогите написать защиту проекта в номинации "2D-векторная графика".Название"Символ года", сделано в программе "ADOBE ILLUSTRATOR CS4"
помогите написать защиту проекта в номинации 2D-векторная графика.НазваниеСимвол года, сделано в
составить алгоритм решения уравнения Y:5=8
составить алгоритм решения уравнения Y58
СРОЧНО, помогите пж! 20б.
СРОЧНО, помогите пж! 20б.