модуль graf.

[-Spirit-]

x=r1cost;
y=r2sint;
t=[0;2п];
r1,r2>0;

построить кривую по заданному параметрическому представлению
значения r1,r2 задаются пользователем

[DoDge_VipeR]

Uses graph;
Var gd,gm:integer;
x,y:integer;
x0,y0,M:integer;
r1,r2,xm:real;
begin
writeln('r1=');
readln(r1);
writeln('r2=');
readln(r2);
gd:=detect;
InitGraph(gd,gm,'');
setbkcolor(LIGHTGRAY);
setcolor(RED);
M:=50; x0:=getmaxx div 2;  y0:=getmaxy div 2;
line(X0, 0, X0, getmaxy);
line(0, Y0,getmaxx , Y0);
setcolor(BLUE);
xm:=0;
while xm<=2*pi do
Begin
x:=round(x0+r1*cos(xm)*M);
y:=round(y0+r2*sin(xm)*M);
PutPixel(x,y,1);
xm:=xm+0.001;
End;
Readln;
CloseGraph;
End.