Delphi

Вопрос

Дайте примерчик построения синусойды, косинусойды, тангенса, катангенса, на форме!

Ответ

Вот так на канве формы строят синус:

procedure TForm1.Button1Click(Sender: TObject); var x: integer; begin Form1.Canvas.Pen.Color := clBlue; // Рисуем голубым цветом Form1.Canvas.MoveTo(0, 100); // Устанавливаем точку начала рисования for x := 0 to Form1.ClientWidth do // От левого края до конца формы begin Form1.Canvas.LineTo(x, trunc(10*sin(x + 10)) + 100); // Собственно, рисуем график end; end;

trunc(10*sin(x + 10)) + 100) — это хитрое выражение необходимо для того, чтобы график не был бы таким суженым :)

С тангенсом и пр. я думаю сам разберешься…

Еще надо учитывать, что на форме координата Y берет начало от левого ВЕРХНЕГО угла.

Чтобы твой график был похож на тот, который дети в школе рисуют, необходимо пересчитать координаты…

Из конференции Expert_FAQ