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

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

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

Из В9 в шестнадцатеричной системы счисления в десятиричную Из 10111011 в двоичной системы в десятиричую
Из В9 в шестнадцатеричной системы счисления в десятиричную Из 10111011 в двоичной системы в
Вводятся три числа. Необходимо вывести их в порядке возрастания в питоне. Помогите пожалуйста!
Вводятся три числа. Необходимо вывести их в порядке возрастания в питоне. Помогите