Это опять я, проблема вывода график на рисунок.

[raxp]

но проблема мой друг заключается в том, что я просто не понимаю математических выражений

ну народ пошел

[Bilargo]

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

ну народ пошел

КАКОЙ НАРОД?! Такой как и раньше был, каждому своё, я больше склонен к гуманитарным наукам нежели к точным. Поэтому не надо здесь пожалуйста блестеть тем, чем не надо.

[raxp]

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

[Bilargo]

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

не возбуждайтесь так

Просто я не люблю когда начинают делать выводы, не имея представления о человеке, на мой взгляд это не оч. правильно.

procedure TForm1.FormPaint(Sender: TObject);
var x0 ,y0, dx, dy, h, w, x, y, i : integer;
    dlx, dly : real;
begin
begin
  with Form1.Canvas do
  begin
  Font.Name:='Arial';
  Font.Size:=10;
  Font.Color:=clBlack;
  Font.Style:=[fsItalic, fsBold];
  Brush.Style:=bsClear;
  TextOut(250,20,'График функции');
  end;
end;
   begin
   //Шаг сетки(dlx,dlz); начало координат(x0,y0);
   //Шаг координатной сетки(dx,dy); размеры плоскости(w,h);
   x0:=22; y0:=480; dx:=20; dy:=20; h:=400; w:=600;
   dlx:=1; dly:=1;
     with  Form1.Canvas  do
     begin
        MoveTo(x0,y0);  LineTo(x0, y0-h);
        MoveTo(x0, y0);  LineTo(x0+w, y0);
        x:=x0+dx;  i:=1;
        repeat
            MoveTo(x, y0-3);  LineTo(x, y0+3);
            TextOut(x-3, y0+5, FloatToStr(dlx*i));
            Pen.Style:=psDot;
            MoveTo(x, y0-3);  LineTo(x, y0-h);
            Pen.Style:=psSolid;
            i:=i+1;  x:=x+dx
        until  x>x0+w;
        y:=y0-dy;   i:=1;
        repeat
            MoveTo(x0-3, y);  LineTo(x0+3, y);
            TextOut(x0-20, y-5, FloatToStr(dly*i));
            Pen.Style:=psDot;
            MoveTo(x0+3, y);  LineTo(x0+w, y);
            Pen.Style:=psSolid;     
            i:=i+1;   y:=y-dy
        until y<y0-h;

    end;
end;
end;


procedure TForm1.FormDblClick(Sender: TObject);
var  gr : array[1..30] of TPoint;
    x0, y0, dx, dy, i : integer;
begin
  x0:=22; y0:=480;  dx:=20; dy:=20;
  for  i:=1  to  30  do
    begin
       gr[i].x := x0+(i-1)*dx;
       gr[i].y :=   // Как задать функцию y=5*cos(x)*exp(-x/5)???
    end;
  Form1.Canvas.Pen.Width := 2;
  Form1.Canvas.Pen.Color := clRed;
  Form1.Canvas.Polyline(gr);
end;


end.

Может кто-нибудь знает как задать функцию?

[Stilet]

Кроспостить зачем?