Рекурсивный алгоритм

@Craysrilpack · Регистрация: 11.03.2019

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

Реализовать рекурсивный алгоритм возведения числа в натуральную степень:
алг вещ Степень(алг вещ а, цел н);
начало
если н=0 значит :=1;
иначе :=a*Степень(а,н-1)
все
конец

Verevkin · 23.04.2019, 12:33

Ахтунг! Не отлаживал! Писал на заборе!

Delphi

function power(a: double; n: dword): double;
begin
  if n = 0 then exit(1);
  result:= a * power(a, n - 1);
end;

@Puporev · 23.04.2019, 13:40

Delphi

function power(a: double; n: dword): double;
begin
  if n = 0 then power:=1
  else power:=power(a, n - 1)*a;
end;

@Craysrilpack 0 / 0 / 0 Регистрация: 11.03.2019 Сообщений: 74
		1
	Рекурсивный алгоритм 23.04.2019, 12:27. Показов 528. Ответов 2 Метки нет (Все метки) Реализовать рекурсивный алгоритм возведения числа в натуральную степень: алг вещ Степень(алг вещ а, цел н); начало если н=0 значит :=1; иначе :=a*Степень(а,н-1) все конец 0

	23.04.2019, 13:40