Организовать вычисление

[сона]

Организовать вычисление с применением рекурсивной функции и вычислить а в степени l.
u=x (в степени m)+y(в степени n)+z(в степени k)
x,y,z-real
m,n,k-целые

[ViktorR]

Предположу, что необходимо написать рекурсивную функцию для вычисления a^I, где a - вещественное, а I - целое.
Рекурсивная функция может иметь вид:

function Paw(a: real; i: word): real;
begin
   if i = 0 then
      Paw := 1
   else
      if i = 1 then
         Paw := a
      else
         Paw := a * Paw(a, i - 1);
end;

Но тут предполагается, что i не меньше нуля, и a - не равен нулю, если i < 0;
Для вычисления во всех случаях надо написать доп. функцию, из которой вызывается рекурсивная:

function Pawer(a: real; i : integer): real;
begin
  if ((a = 0) AND (i <= 0)) then begin
     writeln('Error! Division by zero!');
     Pawer := 0;
     exit;
  end;
  Pawer := Paw(a, abs(i));
  If i < 0 then
     Pawer := 1/Pawer;
end;

Рекурсивную функцию можно определить внутри основной.
В программе можем писать, например:

u := Power(x,n)-5*Power(y,m);

Вроде так получается ...

[puporev]

function Step(x:real;y:integer):real;
begin
if y=0 then Step:=1
else if y=1 then Step:=x
else if y=-1 then Step:=1/x
else if y>1 then Step:=Step(x,y-1)*x
else Step:=Step(x,y+1)/x;
end;

[TinMan]

Сообщение от puporev

function Step(x:real;y:integer):real;
begin
if y=0 then Step:=1
else if y=1 then Step:=x
else if y=-1 then Step:=1/x
else if y>1 then Step:=Step(x,y-1)*x
else Step:=Step(x,y+1)/x;
end;

puporev, а ты ничего не пропустил? Уверен, что не нужно добавить еще парочку условий? Типа, if y=2, и if y=3? Для надежности. А?..

[puporev]

Сообщение от TinMan

puporev, а ты ничего не пропустил? Уверен, что не нужно добавить еще парочку условий? Типа, if y=2, и if y=3? Для надежности. А?..

Если Вы внимательно посмотрите, то это написано

else if y>1 then Step:=Step(x,y-1)*x

[TinMan]

Сообщение от puporev

Если Вы внимательно посмотрите, то это написано

else if y>1 then Step:=Step(x,y-1)*x

А.. ну, да, конечно! и как это я просмотрел?.. млин, надо очки заказывать...

пупорев, я просто хотел сказать, что вот эти две строки в твоем коде:

else if y=1 then Step:=x
else if y=-1 then Step:=1/x

- абсолютно излишни..

[puporev]

Ну если тебе так кажется, убери

[DiemonStar]

function Step(x:real;y:integer):real;
begin
if y=0 then Step:=1
else if y=1 then Step:=x
else if y=-1 then Step:=1/x
else if y>1 then Step:=Step(x,y-1)*x
else Step:=Step(x,y+1)/x;
end;

я бы так поправил:

function Step(x:real;y:integer):real;
begin
if y=0 then Step:=1
else if y > 0 then Step:=Step(x,y-1)*x
else Step:=Step(x,y+1)/x;
end;

поскольку Step(x,1) = x*Step(x,0) = x*1 = x
и аналогично для -1 степени. Нет смысла их выделять в отдельное условие

[puporev]

Согласен, именно так и нужно.

[ViktorR]

А вот я не совсем согласен.
А что получится при x = 0? Почему эта ситуация не рассматривается?
Может быть выдать сообщение об этой ситуации в программе?


Так думаю, что ...