|
Вопрос # 1 424/ вопрос решён / |
|
Здравствуйте!
помогите описать рекурсивную функцию
pow(x:real,n:integer):real;
 |
Вопрос задал: 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!
Преступим, что такое рекурсия - это когда подпрограмма вызывает сама себя.
Удачи!
Приложение: Переключить в обычный режим- function Fact(a:integer):integer;
- begin
- if a=0 then Fact:=1
- else Fact:=a*Fact(a-1)
- end;
-
- Write(Fact(b));
-
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
-
- type
- TForm1 = class(TForm)
- Button1: TButton;
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.dfm}
-
- procedure ret;
- begin
-
-
- end;
-
- procedure TForm1.Button1Click(Sender: TObject);
- begin
-
- end;
-
- end.
-
 |
Ответ отправил: Drozdov D.V. (статус: 4-ый класс)
Время отправки: 17 марта 2008, 08:50
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 17 марта 2008, 08:50; участников в обсуждении: 3.
|
Dron (статус: Студент), 16 марта 2008, 21:32 [#1]:
А что функция должна делать-то? Откуда мы знаем?
С уважением.
|
|
|
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. (статус: 4-ый класс), 17 марта 2008, 08:50 [#3]:
Так в вопросе и пишите!
|
31 января 2011, 19:30: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
