Программа для созданию графика функций по средствам paintbox

[Fascination_Fox]

пожалуйста напишите программу изображаемую график функций
Y=1/x

Завтра последний день, когда могу сдать эту программу и получить зачет, а без него "привет, комиссия"
P.S. Я в delphi не в зуб ногой, кхм.. ну вы понимаете...
Буду очень благодарна!

[Utkin]

1. Построим таблицу значений
2. Строим координатные оси
3. Привязываем координаты осей к координатам ПаинтБокса (а они там свои)
4. Выводим график из таблицы значений.

[Sasha_Smirnov]

В похожих темах есть с компонентом Chart: http://programmersforum.ru/showthread.php?t=8263#5

Просто замени там (x*x)+(x*x*x) на 1/x — может, зачтут.

Да, ещё, конечно, точку (0; 0) надо отдельно обработать.

[Fascination_Fox]

Sasha_Smirnov, спасибо, но это совсем не то.
Ребята, помогите пожалуйста!
У нас не осталось альтруистов?

[Smitt&Wesson]

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

У нас не осталось альтруистов?

Альтруистов было много, но все с голоду перемёрли .
Вам во-фриланс батенька.

[Fascination_Fox]

Вот программа одногруппника у него для y=x².
Можете ли вы ее переделать под мой пример?

procedure TForm1.Button1Click(Sender: TObject);
var a,b,i,y:integer;
begin
PaintBox1.Canvas.Brush.Color:=clBtnFace;
PaintBox1.Canvas.FillRect(bounds(0,0,500,500));
PaintBox1.Canvas.TextOut(490,385,'X');
PaintBox1.Canvas.TextOut(255,65,'Y');


PaintBox1.Canvas.Brush.Color:=clBlack;
PaintBox1.Canvas.Pen.Width:=strtoint(edit1.text);
PaintBox1.Canvas.MoveTo(0,400);
PaintBox1.Canvas.LineTo(500,400);
paintbox1.Canvas.MoveTo(250,500);
PaintBox1.Canvas.LineTo(250,50);
a:=230;
b:=0;
PaintBox1.Canvas.MoveTo(a,b);
for i:=-19 to 20 do
  begin
    y:=sqr(i);
    a:=a+1;
    PaintBox1.canvas.LineTo(a,400-y);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var a,b,i,y:integer;
begin
PaintBox1.Canvas.Brush.Color:=clBtnFace;
PaintBox1.Canvas.FillRect(bounds(0,0,500,500));
PaintBox1.Canvas.TextOut(490,385,'X');
PaintBox1.Canvas.TextOut(255,65,'Y');


PaintBox1.Canvas.Brush.Color:=clBlack;
PaintBox1.Canvas.Pen.Width:=strtoint(edit1.text);
PaintBox1.Canvas.MoveTo(0,400);
PaintBox1.Canvas.LineTo(500,400);
paintbox1.Canvas.MoveTo(250,500);
PaintBox1.Canvas.LineTo(250,50);

a:=230;
b:=0;
PaintBox1.Canvas.MoveTo(a,b);
for i:=-19 to 20 do
  begin
    y:=sqr(i);
    a:=a+1;
    PaintBox1.canvas.Pixels[a,400-y]:=clBlack;
  end;

end;

end.

[Fascination_Fox]

Буду крайне признательна за помощь!

[phomm]

Я твоему одногруппнику ручонки-то повыдергал бы ))
Что за каша из цифр ? а если не знать размеров пейнтбокса ?? всё, график поплыл ?
Вот Вам норм решение, но только для первой кнопки(для второй - поменять одну строчку, приведенный тобой код тоже отличается только на 1 строчку ):

procedure TForm1.Button1Click(Sender: TObject);
const ofs = 30;
var i,y, w,h, hh, hw:integer;
begin
PaintBox1.Canvas.Brush.Color:=clBtnFace;
PaintBox1.Canvas.FillRect(PaintBox1.BoundsRect);
PaintBox1.Canvas.Pen.Width:=strtoint(edit1.text);
w := PaintBox1.Clientwidth;
h := PaintBox1.ClientHeight;
hh := h div 2;
hw := w div 2 ;
PaintBox1.Canvas.TextOut(w - ofs, hh + ofs,'X');
PaintBox1.Canvas.TextOut(hw - ofs, ofs,'Y');

PaintBox1.Canvas.MoveTo(0, hh);
PaintBox1.Canvas.LineTo(w, hh);
paintbox1.Canvas.MoveTo(hw, 0);
PaintBox1.Canvas.LineTo(hw, h);

PaintBox1.Canvas.MoveTo(-w, hh);
for i := -hw to hw  do
  begin
    if i = 0 then
      Continue;
    y:= (w * 5) div (-i); // 5 - масштаб , минус - ибо ось У в дельфи вниз!
    PaintBox1.canvas.LineTo(i+hw, y+hh);
  end;
end;

Кстати ) обаятельная Вы наша, Вы уж определитесь какого Вы полу ) женского или того, который подлежит комиссии :D