Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.08.2016, 19:10   #1
Rufer
Пользователь
 
Регистрация: 20.06.2016
Сообщений: 10
Радость Помогите пожалуйста написать функцию возведения в степень

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

Последний раз редактировалось Вадим Мошев; 24.08.2016 в 22:19.
Rufer вне форума Ответить с цитированием
Старый 16.08.2016, 19:58   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
function Power2(a : real,n: integer): real;
var i:integer, an:real;
begin
 if n = 0 then Power2 := 1
 else
 begin
   an:=1;
   for i:=1 to ABS(n) do an:=an*a;
   if N>0 then Power2:=an else Power2:=1/an
 end
end;
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.

Последний раз редактировалось Aleksandr H.; 16.08.2016 в 20:00.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите пожалуйста с кодом на с. функция ранга матрицы meggot Помощь студентам 1 15.07.2015 20:32
Подскажите пожалуйста что за функция такая? Ivo4ka Microsoft Office Excel 3 22.11.2007 17:29