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

[Toxass]

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

memo1.Lines.Add(floattostr(y));

[Stilet]

Toxass

Так давай ты панику отложиш в сторону.
Я тот код что дал KiDoki протестил у меня никаких ошибок Делфи 6.

Ты текст ошибки то приводи, а нюни распускать не нужно.

[Toxass]

Все равно не запускаеться!!! а в Мемо нада чтото писать?????

[Stilet]

Все равно не запускаеться!!!

Ну дык ошибку приведи.

а в Мемо нада чтото писать?????

Понятия не имею - этож твоя программа.

[Toxass]

вот какой еще вопрос: влияет ли как то на работу програмы, если я не переписываю код а копирую его в Делфи???

[KiDoki]

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

вот какой еще вопрос: влияет ли как то на работу програмы, если я не переписываю код а копирую его в Делфи???

Относительно...Создай все нужные компоненты, двойной клик по кнопке, туда вставь код:

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;

[Toxass]

спасибки, все вроде по норме зафурычило!