Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

DNK
I. DNK
Баллы: 5

Подробнее »



Вопрос # 1 424

Раздел: Delphi » Прочее
/ вопрос решён /

Здравствуйте!
помогите описать рекурсивную функцию

pow(x:real,n:integer):real;

orbit Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: orbit (статус: Посетитель)
Вопрос отправлен: 16 марта 2008, 21:10
Состояние вопроса: решён, ответов: 2.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, orbit!
Учитывая комментарии, где то так

pow(x:real,n:integer):real;
begin
if n = 0 then result := 1
else if n < 0 then result := 1/pow(x, -n) //в условии об минусе наверно забыли:)
else result := x * pow(x, n - 1);
end;
Вот и всё

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 16 марта 2008, 23:12
Оценка за ответ: 5

Ответ #2. Отвечает эксперт: Drozdov D.V.

Здравствуйте, orbit!
Преступим, что такое рекурсия - это когда подпрограмма вызывает сама себя.
Удачи!

Приложение:
  1. function Fact(a:integer):integer;
  2. begin
  3. if a=0 then Fact:=1
  4. else Fact:=a*Fact(a-1)
  5. end;
  6.  
  7. Write(Fact(b));
  8.  
  9.  
  10. uses
  11. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  12. Dialogs, StdCtrls;
  13.  
  14. type
  15. TForm1 = class(TForm)
  16. Button1: TButton;
  17. procedure Button1Click(Sender: TObject);
  18. private
  19. { Private declarations }
  20. public
  21. { Public declarations }
  22. end;
  23.  
  24. var
  25. Form1: TForm1;
  26.  
  27. implementation
  28.  
  29. {$R *.dfm}
  30.  
  31. procedure ret;
  32. begin
  33.  
  34.  
  35. end;
  36.  
  37. procedure TForm1.Button1Click(Sender: TObject);
  38. begin
  39.  
  40. end;
  41.  
  42. end.
  43.  


Ответ отправил: Drozdov D.V. (статус: 4-ый класс)
Время отправки: 17 марта 2008, 08:50
Оценка за ответ: 5


Мини-форум вопроса

Всего сообщений: 3; последнее сообщение — 17 марта 2008, 08:50; участников в обсуждении: 3.
Dron

Dron (статус: Студент), 16 марта 2008, 21:32 [#1]:

А что функция должна делать-то? Откуда мы знаем?
С уважением.
orbit

orbit (статус: Посетитель), 16 марта 2008, 22:50 [#2]:

функция pow возводит X в степень N...
при том,что:

Xв степениN=1, при n=0;

Xв степениN=1/ xn, при n<0;

Xв степениN=x* xn-1, при n>0.
Drozdov D.V.

Drozdov D.V. (статус: 4-ый класс), 17 марта 2008, 08:50 [#3]:

Так в вопросе и пишите!

31 января 2011, 19:30: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 18 августа 2017, 02:32
Выполнено за 0.03 сек.
Рейтинг@Mail.ru