Помогите в решении задачи!

[Toxass]

Есть задание:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var h,y,x,p:real;
m:integer;
begin
h:=0.2;
  x:=-1.4;
  repeat
  if x<0 then begin
  y:=x*exp(x)+2;
  edit1.Text:=floadtostr(y);
  end
  else
  for m:=1 to 5 do begin
  p:=(sqr(x))/(m+1);
  y:=x+p;
  edit2.Text:=floadtostr(y);
  end;
  x:=x+h;
  until  x>2;

end;

end.

Что нужно сделать чтобы прога работала??? Ниче не могу понять, просто незнаю что нада и куда писать для вывода???

[KiDoki]

...repeat
if x<0 then begin
y:=x*exp(x)+2;
edit1.Text:=floadtostr(y);
end
else...

после end'а не нужно ";"?

[Toxass]

Ошибку выдает в этой строчке
edit1.Text:=floadtostr(y);

[KiDoki]

Правильно не

edit1.Text:=floadtostr(y);

, а

edit1.Text:=floattostr(y);

[anton14]

Это как?? Объясните пожалуйста!

При вводе сообщения, на панели инструментов эта кнопка и находится. И между тегами CODE и /CODE пишете ваш код.

[xakkkkker]

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

Ошибку выдает в этой строчке
edit1.Text:=floadtostr(y);

напиши так
edit1.Text:=floatTostr(y);

[Toxass]

а как сделать, чтобы выдавало весь результат а не только последнюю строчку в эдите???

[KiDoki]

Вместо двух эдитов создаёте два мемо:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var h,y,x,p:real;
m:integer;
begin
h:=0.2;
x:=-1.4;
repeat
if x<0 then begin
y:=x*exp(x)+2;
memo1.Lines.Add(floattostr(y));
end
else
for m:=1 to 5 do begin
p:=(sqr(x))/(m+1);
y:=x+p;
memo2.Lines.Add(floattostr(y));
end;
x:=x+h;
until x>2;
end;
end.

[Toxass]

выдает ошибку тут:
memo1.Lines.Add(floattostr(y));
что это может быть????

[rpy3uH]

тут все понятливые. два раза повторять не надо!