решите пожалуйста. Составить программу для вычисления 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;

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

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

Записать алгоритм Евклида с помощью блок схемы чтобы место x и y было D=b^2-4ac
Записать алгоритм Евклида с помощью блок схемы чтобы место x и y было
Протабулировать функцию 4/х в бейсике
Протабулировать функцию 4х в бейсике
как выразить арккосинус через арктангенс (для паскаля); у меня arccos((sqr(b)+sqr(c)-sqr(a))/2*b*c)
как выразить арккосинус через арктангенс для паскаля у меня