Кто поможет с кодом Delphi для построения графика y=sqrt x. что нужно исправить?

[kikiru]

Сами оси у меня есть. вообще строю универсальный построитель графиков функций. вот возникли проблемы именно с этой функцией. я считаю,что дело в отсутствии ограничений .вот исходный код самой функции.

procedure TForm1.MenuItem17Click(Sender: TObject);

  var a,b:integer;
x,y:real;
begin
  a:=strtoint(labelededit1.text);
  b:=strtoint (labelededit2.text);
  with image1.canvas do
  begin
  pen.width:=3;
  pen.Color:=clred;
  pen.style:=pssolid;
  moveto (0,y0);
  for i:=0 to 2*x0 do
  begin
    if x>=0 then
  x:=round(i-x0)/k;
  if x>=0 then
  y:=y0-round((a*sqrt(x))*k);
  lineto(i,round(y)); 

  end;
end;
end;

подобным образом остальные функции работают

[Sciv]

if x>=0 then
x:=round(i-x0)/k;
if x>=0 then

А тут точно должен быть Х?

[Mad_Cat]

строю универсальный построитель графиков

универсальный == любая функция введенная пользователем
У вас же только те что заложены вами(

for i:=0 to 2*x0 do

бредовая конструкция(i должна быть локальной по крайней мере)

[Sciv]

универсальный == любая функция введенная пользователем
У вас же только те что заложены вами(

ну как сказать... он же еще не доделан. А любая функция может быть описана заданным набором типовых функция а-ля возведение в степень, умножение, синус/косинус и тп. Их то можно задать изначально, а дальше парсить введенную пользователем строку на наличие функций и операторов.