Как создать кривую вроде графика функции?

По точкам. Или ломаной линией, состоящей из очень коротких отрезков.

Если в виде графика, то с помощью модуля Graph в цикле выводить попиксельно точки
for x:=0 to 100 do
putpixel(x, x*x div 100, Red);
Если заметишь между точками разрывы - можешь использовать линии.

спасибо, по точкам долговато будет но сейчас с Фор попробую

Добавлено через 19 мин.
а что сделать чтобы было вот так
а то он создает кривую строго уменьшаящуюся

Выкладывай, пожалуйста код, а мы подправим.

спасибо большое но я уже коротким LineTo сделал. спокойной вам ночи