[Flashton]

Здравствуйте. Задание такое:
Построить кривую заданную уравнением
Прошу совета, так как графики в Delphi раньше строить не приходилось.
-----------------
Спасибо.

[guranvir]

Используй Canvas

[Flashton]

Да я понял, хотя по началу думал про TChart.
С Canvas не разу не работал. У меня есть одна программа, только функцию свою прикрутить не получается

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107

unit grfunc_;   interface   uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;   type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); procedure FormResize(Sender: TObject); private { Private declarations } public { Public declarations } end;   var Form1: TForm1;   implementation   {$R *.DFM}   // Функция, график которой надо построить Function f(x:real):real; begin f:=sqr(x)+5; end;   // строит график функции procedure GrOfFunc; var x1,x2:real; // границы изменения аргумента функции y1,y2:real; // границы изменения значения функции x:real; // аргумент функции y:real; // значение функции в точке x dx:real; // приращение аргумента l,b:integer; // левый нижний угол области вывода графика w,h:integer; // ширина и высота области вывода графика mx,my:real; // масштаб по осям X и Y x0,y0:integer; // точка - начало координат   begin // область вывода графика l:=10; // X - координата левого верхнего угла b:=Form1.ClientHeight-20; // Y - координата левого верхнего угла h:=Form1.ClientHeight-40; // высота w:=Form1.Width-40; // ширина   x1:=0; // нижняя граница диапазона аргумента x2:=25; // верхняя граница диапазона аргумента dx:=0.01; // шаг аргумента   // найдем максимальное и минимальное значения // функции на отрезке [x1,x2] y1:=f(x1); // минимум y2:=f(x1); // максимум x:=x1; repeat y := f(x); if y < y1 then y1:=y; if y > y2 then y2:=y; x:=x+dx; until (x>=x2);   // вычислим масштаб my:=h/abs(y2-y1); // масштаб по оси Y mx:=w/abs(x2-x1); // масштаб по оси X   // оси x0:=l; y0:=b-Abs(Round(y1*my));   with form1.Canvas do begin // оси MoveTo(l,b);LineTo(l,b-h); MoveTo(x0,y0);LineTo(x0+w,y0); TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3)); TextOut(l+5,b,FloatToStrF(y1,ffGeneral,6,3)); // построение графика x:=x1; repeat y:=f(x); Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed; x:=x+dx; until (x>=x2); end; end;     procedure TForm1.FormPaint(Sender: TObject); begin GrOfFunc; end;   // изменился размер окна программы procedure TForm1.FormResize(Sender: TObject); begin // очистить форму form1.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight)); // построить график GrOfFunc; end;   end.

[guranvir]

Ну а какая конкретна проблема?