Как нарисовать график функции 2



Автор: Baa
WEB сайт: http://forum.vingrad.ru

Забавная штука синусы:

for i := 1 to 500 do
paintbox1.Canvas.Pixels[round(sin(i * 5) * 10 + 50), round(sin(i * 10) * 10 +
50)] := RGB(0, 0, 0);

Далее: Как нарисовать фрактал »»