Циклический алгоритм, Delphi

[РезедаМуратова]

Здравствуйте, помогите пожалуйста с заданием.
код примера:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,h,x,w,s,eps:extended;
k:integer;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
h:=strtofloat(edit3.Text);
eps:=strtofloat(edit4.Text);
x:=a;
repeat
s:=1; w:=1; k:=0;
repeat
inc(k);
w:=-w*x/k;
s:=s+w;
until abs(w)<eps;
memo1.lines.Add(floattostrf(x,fffixed,5,2)+
'  '+floattostrf(s,fffixed,9,6)+
'  '+floattostrf(exp(-x),fffixed,9,6)+
'  '+inttostr(k));
x:=x+h;
until x>b+0.0000000001;
end;

end.

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

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
Edit1.Text:='0';
Edit2.Text:='1';
Edit3.Text:='0,1';
Edit4.Text:='0,0001';
end;

end.

[Serge_Bliznykov]

а в чём конкретно возник затык?

Edit'ы желательно переименовать в соответствии с их назначением.

это:

Сообщение от РезедаМуратова

Edit1.Text:='0';
Edit2.Text:='1';

не соответствует заданию (если я правильно понимаю назначение колонок таблицы - у Вас на скриншоте их нет.

для вычисления выражения из последней колонки нужно написать функцию, используя формулы:
hyper_formulas.png

[РезедаМуратова]

вот так работает первый код, нужно для второго задания то же самое. Я вообще не понимаю вот в чем проблема. Так как, по сути вычислений как токовых нет. Вот я и не понимаю что писать какой будет код программы

[РезедаМуратова]

Вот начала, но много ошибок. пока застряла в гиперболических формулах

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    BitBtn1: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const xn=0.1;
      xk=1.0;
      h=0.1;
      e=0.0001;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function y(x:double):double;
var sh,ch:char;
begin
Y:=(1/4)*((x+1)*sqrt(x))*(sh(sqrt(x))-(ch(sqrt(x)));
end;
function s(x:double;var i:integer):double;
var t:real;
begin
i:=1;
t:=x;
result:=t;
repeat
inc(i);
t:=((i*i)/(2*i+1))*(t*x*x);
result:=result+t;
until abs(t)<e;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:=formatFloat('0.0',xn);
Edit2.Text:=formatFloat('0.0',xk);
Edit3.Text:=formatFloat('0.0',h);
Edit4.Text:=formatFloat('0.0000',e);
with Memo1 do
 begin
  clear;
  font.Name:='Courier New';
  font.Size:=10;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var x,k:real;
    n:integer;
    s1,s2,s3,s4:string;
begin
x:=xn;
while x<=xk do
 begin
  str(x:3:1,s1);
  k:=s(x,n);
  str(k:8:4,s2);
  str(y(x):8:4,s3);
  str(n:5,s4);
  Memo1.Lines.Add(s1+s2+s3+s4);
  x:=x+h;
 end;  
end;


end.