Форма для исследования объекта

procedure TForm3.Button2Click(Sender: TObject); (рис. 4).

var: x:real; i:integer;

function F(x,y:real):real;

begin

f:=5*x+(3*y)-4;

end;

begin

a:=StrToFloat(Edit1.text);

b:=StrToFloat(Edit2.text);

h:=StrToFloat(Edit3.text);

y1:=strtofloat(edit4.text); //шаг

memo1.lines.add(floattostr(x));

memo2.lines.add(floattostr(y));

x:=a;

Chart1.Series[0].clear; Chart1.Series[1].clear;

repeat

begin

y:=y1+h*f(x,y);

Chart1.Series[0].Add(y,FloatToStr(x),clRed);

Chart1.Series[1].Add(f(x,y),FloatToStr(x),clblue);

x:=x+h; y1:=y;

memo1.lines.add(floattostrf(x,fffixed,7,3));

memo2.lines.add(floattostrf(y,fffixed,7,3));

end;

until x>b;

end;

Листинг программы (язык программирования VC++)