Построить окружность радиуса R c центром в начале координат по заданному параметрическому представлению X=R*Cos(t); Y=R*Sin(t) 0 <= t < 2*Pi.
правильно ли я вообще начал?
procedure
var
x,y,r,t:real;
begin
r:=StrToFloat(Edit1.text);//радиус
If t>=0 and (t<(2*pi)) then
x:=r*cos(t);
y:=r*sin(t);
with Image1.Canvas do
ellipse(FloatToStrF(x,ffGeneral,6,3),y,0,0);