Написать функцию возведения действительного числа в целую степень

@Maugli15 · Регистрация: 17.08.2016

Author24 — интернет-сервис помощи студентам

Описать функцию Power2(A, N) вещественного типа, находящую величину AN (A — вещественный, N — целый параметр) по следующим формулам:
A0 = 1;
AN = A·A·…·A (N сомножителей), если N > 0;
AN = 1/(A·A·…·A) (|N| сомножителей), если N < 0.
С помощью этой функции найти AK, AL, AM, если даны числа A, K, L, M.
Напишите пожалуйста всю задачу!!!

@bormant · 17.08.2016, 08:16

Быстрое возведение в степень, 0^0=1:

Pascal

function Power2(a: Real; n: Integer): Real;
var r: Real;
begin
  r:=1;
  if n<0 then r:=1/Power2(a,-n)
  else 
    while n>0 do begin
      if Odd(n) then r:=r*a;
      a:=Sqr(a); n:=n shr 1; {n:=n div 2}
    end;
  Power2:=r;
end;
var
  a: Real;
  k, l, m: Integer;
begin
  Write('Введите число и 3 целых показателя степени: '); ReadLn(a,k,l,m);
  WriteLn(Power2(a,k),' ',Power2(a,l),' ',Power2(a,m));
end.

@Maugli15 0 / 0 / 0 Регистрация: 17.08.2016 Сообщений: 9
		1
	Написать функцию возведения действительного числа в целую степень 17.08.2016, 04:04. Показов 1811. Ответов 1 Метки нет (Все метки) Описать функцию Power2(A, N) вещественного типа, находящую величину AN (A — вещественный, N — целый параметр) по следующим формулам: A0 = 1; AN = A·A·…·A (N сомножителей), если N > 0; AN = 1/(A·A·…·A) (\|N\| сомножителей), если N < 0. С помощью этой функции найти AK, AL, AM, если даны числа A, K, L, M. Напишите пожалуйста всю задачу!!! 0

	17.08.2016, 08:16

Написать функцию возведения действительного числа в целую степень

Решение