Код:
procedure DrawSinFunc(Canvas : TCanvas; X, Y, Ln, Sz : Integer);
var
i : Integer;
begin
with Canvas do begin
MoveTo(X, Y);
for i := X to X + Ln - 1 do
LineTo(i, Y - Round(Sz * Sin((i - X) / Sz)));
end;
end;
Параметры функции :
Canvas - канва, на которой надо нарисовать функцию;
X, Y - координаты точки, из которой будет рисоваться график;
Ln - длина графика в пикселях;
Sz - размер синусоиды в пикселях.
Пример использования : если на пустую форму кинуть кнопку и написть в событии OnClick
Код:
DrawSinFunc(Canvas, 0, 50, 300, 30);
то получится следующее