Раздел для начинающих, а не для халявных прог.
Код:
x:=0;
y:=func(x);
Canvas.MoveTo(round(x),round(y));
while x<ClientWidth do
begin
x:=x+0.01;
y:=func(x);
Canvas.LineTo(round(x),round(y));
end;
Вот принцип рисования графика. Немножко перевернутого и немножко смещенного к левому краю. Дальше вместо func подставляешь свою функцию и мутишь остальные условия задачи. А когда не получается что-то
конкретное - обращаешься за помощью.