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

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

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

Логические выражения и логические операции
Логические выражения и логические операции
Срочно! Решите!!! Пожалуйста!!!
Срочно! Решите!!! Пожалуйста!!!
Задача во вложении мука/дрожжи/вода=45, а вода, если что, = 32.
Задача во вложении мукадрожживода45, а вода, если что, 32.
Помогите с 4,5,6 заданиями
Помогите с 4,5,6 заданиями