Не получается вывести график

[RECREATOR]

view plaincopy to clipboardprint?
var                                              {описание переменных}     
  x,                                              {значение аргумента}     
  y,                                              {значение функции}     
  min_x,                                        {минимальное значение аргумента}     
  min_y: real;                                 {минимальное значение функции}     
 begin     
  x:=0;                                          {начальное значение аргумента}     
  min_y:=sin(x)/(x + 1);                  {начальное значение минимума по у}     
  min_x:=x;                                   {начальное значение минимума по у}     
   while x<=10 do begin                   {предельное значение аргумента}     
   y:sgr(x);
   add xy (x,y); 
   x:=x+0.1;                                {шаг увеличения аргумента}     
   y:=sin(x)/(x + 1);                      {подстановка аргумента в функцию}     
if y < min_y then                             {если текущее у<миним. значения то}     
  begin     
   min_y := y;                                 {присваиваем значение <B>у</B> миним. значению у }     
   min_x := x;                                 {присваиваем значение <B>х</B> миним. значению х }     
end;        
     
     
end;                                               {конец цикла}     
     
Label1.Caption:=FloatToStr(min_x);     {вывод минимального значения аргумента}     
Label2.Caption:=Floattostr(min_y);     {вывод минимального значения функции}     
     
end;      
end.

[SunKnight]

y:sgr(x);
add xy (x,y); - извените, а что это такое?

[RECREATOR]

Это к графику

[RECREATOR]

а куда их тогда воткнуть? Перехожу в Additional выбираю Chart, в нем Add... Что-то упустил?

[SunKnight]

var i:integer;
begin
with form10.Chart1 do
begin
Title.Text.Clear;
Title.Text.Add('График отношений выдачи зар. платы работникам');
with form10.chart1 do
serieslist.Series [0].Clear ;
serieslist.Series [0].Marks.visible:=true;
with sg do
for i:=1 to rowcount-1 do
if sg.Cells [1,i]<>'' then
serieslist.Series[0].Addxy(strtofloat(cells[1,i]),strtofloat(cells[4,i]),cells[0,i]){Вот это и есть добавления данных в график с целью вывода на экран} end;
form10.Show;
end;

Здесь правда я использовал Stringgrid (sg) ну я думаю ты разбереш

[RECREATOR]

Ой, это что-то сложно для меня

[SunKnight]

Выкидываеш на форму компонент TChart. Клацаеш по нему 2-а раза, вкладка Series->Add выбираеш и ОК.Все с компонентом закончили. Теперь код:
Chart1.serieslist.Series[0].Addxy(A:Числовой,В:Числовой,Легенд а) end;
ну все.
А и В числовые переменные.
можно еще Chart1.serieslist.Series[0].AddX(...)
я уже непомню
поэксперементируй

[RECREATOR]

Thanks)) Получилось!