В описание все написанно...
--> Нажмите для просмотра прикрепленного файла
кому интерессно я взял формулу в полярной сист. координат : r = a * sin ( k * alfa ) ;
a, k задаются пользов.
в прям. координатах

x := round (x0 + cos(alfa) * a * sin ( k * alfa )) ;

y := round (y0 + sin(alfa) * a * sin ( k * alfa )) ;

У тебя небольшой недочет в программе: все время рисуется линия из начала координат в первую точку рисунка. А зачем? Поправь это...

сейчас


Добавлено через 18 мин.
вот исправил спасибо
--> Нажмите для просмотра прикрепленного файла