Програмирование с использованием рекурсии(Delphi)

[phoenix91]

Здравствуйте.
не могли бы вы немного проверить и немного помочь(Delphi).
Задание:

Решить поставленные задачи двумя способами – с применением рекурсии и без
нее.

проверьто плз правильно ли написано.
Код без рекурсии:

function reshA (x:vek; n:integer):extended;
 begin
 x[0]:=0.5*(1+a);
 for i:=1 to n do
  begin
   a:=(2*x[i]-x[i-1])*(x[i]+1);
   x[i]:=0.5*(x[i-1]+a/x[i-1]);
  end;
  result:=a;
 end;

(скорее всего он неправильный, так как не до конца понимаю математическую часть задания.)

и если можно, то напишите плз код с использованием рекурсии, или хотябы подскажите как его сделать.

[p51x]

У вас а параметр и должен передаваться в функцию. А считается х-ный. Уточните задание или предмет (если ЧМ, то условия останова скорее всего другие).

[phoenix91]

эмм. не понял следующего:

считается х-ный

Уточните ... предмет (если ЧМ, то условия останова скорее всего другие).

PS задание правильное.
PSS. объясните хотя бы что от меня хотят и что мне надо сделать плз.

[Loky]

Стучись, помогу

[p51x]

phoenix91
Еще раз:
1. Вы когда считаете корень из 4, изменяете 4? Так почему же здесь, считая корень из а, вы его меняете?
2. В численных методах есть несколько условий останова. Поэтому я и говорю: уточните предмет! Может вам надо не просто посчитать Xn...

[phoenix91]

всем кто откликнулся спасибо, но уже ам разобрался. вот такой код получился)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 type vek=array[0..1000] of extended;

var
  Form1: TForm1;
  i,n,q:integer;
  a:extended;
  x:vek;

implementation

{$R *.dfm}

function reshA (x:vek; n:integer; a:extended):extended;
 begin
 x[0]:=0.5*(1+a);
 for i:=1 to n do
     x[i]:=1/2*(x[i-1]+a/x[i-1]);
 result:=x[n];
 end;

function reshARn (x:vek; n,q:integer; a:extended):extended;
 begin
   if q=0 then result:=0.5*(1+a)
          else result:=1/2*(reshARn(x,n,q-1,a)+a/reshARn(x,n,q-1,a));


 end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  n:=strtoint(edit2.Text);
  a:=strtoint(edit1.Text);
  q:=n;
  label5.Caption:=floattostr(reshA(x,n,a));
  label6.Caption:=floattostr(reshARn(x,n,q,a)) ;
end;

end.