Знак возведения в степень

@Petro29 · Регистрация: 30.04.2016

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

Возведение числа в степень в Basicax выполняется с помощью знака возведения в степень (^). Например: N = a ^ 7.
А в Паскале такого знака нет; получается, что надо 7 раз перемножить
a * a * a * a * a * a * a . А по другому как-нибудь можно?

@bormant · 13.06.2016, 16:16

Можно.
Если речь о целой степени, то

Pascal

{ быстрое возведение a в целую степень n }
function iPwr(a: Real; n: Integer): Real;
var r: Real;
begin
  if a=0 then iPwr:=0
  else if n<0 then iPwr:=1/iPwr(a,-n)
  else if n=0 then iPwr:=1
  else begin
    r:=1;
    while n>0 do begin
      if Odd(n) then r:=r*a;
      n:=n div 2; a:=Sqr(a);
    end;
    iPwr:=r;
  end;
end;

Если о произвольной, то можно так:

Pascal

function Pwr(a, n: Real): Real;
begin
  Pwr:=Exp(n*Ln(a));
end;

@Peoples · 13.06.2016, 16:43

или просто a^7 - это exp(7*ln(a))

@vladimir-76 · 16.06.2021, 21:19

А как так получилось, что возведению в степень не досталось знака?

@JuriiMW · 17.06.2021, 09:47

В Виртовском паскале и строк не было…
Их потом прикрутили.

@ZX Spectrum-128 · 17.06.2021, 09:54

Сообщение от vladimir-76

возведению в степень не досталось знака?

Возможно, из-за того, что символы ^ и * были заняты для операций с указателями.
Хотя, в pabc.net сделали **.
Что мешало Вирту сделать также? Это знает только он.

@vladimir-76 · 18.06.2021, 14:35

А сейчас что мешает? Понятно, что сред Паскале несколько, но ведь и страдают все.

@JuriiMW · 19.06.2021, 07:56

Ни чего не мешает!
И он есть уже, но только в развивающихся ЯП.
Проект ТР уже давно закрыт.
А вот в FreePascal и PascalABC.NET вот так x**y
(правда в первом нужно подключить модуль Math)

@Petro29 198 / 10 / 3 Регистрация: 30.04.2016 Сообщений: 733
		1
	Знак возведения в степень 13.06.2016, 14:06. Показов 13383. Ответов 7 Метки нет (Все метки) Возведение числа в степень в Basicax выполняется с помощью знака возведения в степень (^). Например: N = a ^ 7. А в Паскале такого знака нет; получается, что надо 7 раз перемножить a * a * a * a * a * a * a . А по другому как-нибудь можно? 0

@Peoples 1624 / 954 / 782 Регистрация: 06.02.2016 Сообщений: 2,452 Записей в блоге: 31
	13.06.2016, 16:43	3
	или просто a^7 - это exp(7*ln(a)) 0

@vladimir-76 0 / 0 / 0 Регистрация: 04.03.2021 Сообщений: 2
	16.06.2021, 21:19	4
	А как так получилось, что возведению в степень не досталось знака? 0

@JuriiMW 5084 / 2655 / 2350 Регистрация: 10.12.2014 Сообщений: 10,046
	17.06.2021, 09:47	5
	В Виртовском паскале и строк не было… Их потом прикрутили. 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	17.06.2021, 09:54	6
	Сообщение от vladimir-76 возведению в степень не досталось знака? Возможно, из-за того, что символы ^ и * были заняты для операций с указателями. Хотя, в pabc.net сделали **. Что мешало Вирту сделать также? Это знает только он. 0

@vladimir-76 0 / 0 / 0 Регистрация: 04.03.2021 Сообщений: 2
	18.06.2021, 14:35	7
	А сейчас что мешает? Понятно, что сред Паскале несколько, но ведь и страдают все. 0

@JuriiMW 5084 / 2655 / 2350 Регистрация: 10.12.2014 Сообщений: 10,046
	19.06.2021, 07:56	8
	Ни чего не мешает! И он есть уже, но только в развивающихся ЯП. Проект ТР уже давно закрыт. А вот в FreePascal и PascalABC.NET вот так `x**y` (правда в первом нужно подключить модуль Math) 0

Знак возведения в степень

Решение