1.Vẽ bằng ngôn ngữ lập trình pascal
uses crt,graph;
const xo=320;yo=240;g=8;l=30;p=30;k=6;u=6;d=0.001;
type toado=record
x:integer;
y:integer;
end;
var da,db,dc,dd,de,df,dg,dh:toado;
gd,gm,xl,yl,i,j,fx,fy:integer;
go,g1,g2,g3,x,y,t:real;
s:string;
begin
gd:=detect;
initgraph(gd,gm,'');
go:=3*pi/4;
g1:=2*pi-go;
g2:=go-pi/2;
g3:=3*pi/2-go;
da.x:=xo+l*k;
da.y:=yo;
db.x:=da.x+round(g*cos(go));
db.y:=da.y+round(g*sin(go));
dc.x:=da.x+round(g*cos(g1));
dc.y:=da.y+round(g*sin(g1));
dd.x:=xo;
dd.y:=yo-p*u;
de.x:=dd.x+round(g*cos(g2));
de.y:=dd.y+round(g*sin(g2));
df.x:=dd.x+round(g*cos(g3));
df.y:=dd.y+round(g*sin(g3));
dg.x:=xo-l*k;

t:=1-k;
repeat
t:=t+d;
x:=t;
y:=t*t;
fx:=xo+round(l*x);
fy:=yo-round(p*y);
if (y>=1-u)and(y<=u-1) then putpixel(fx,fy,2);
until (t>k-1);
readln;
end.
2.Vẽ bằng ngôn ngữ lập trình C/C++
#include<conio.h>
#include<math.h>
#include<graphics.h>
#define pi M_PI
main()
{
int xo=320,yo=240,l=30,p=30,k=6,u=6,g=8,r=2;
int gd,gm,i,j,X,Y;
float go,g1,g2,g3,x,y,t,d=0.001;
typedef struct
{
int e,f;
}toado;
toado da,db,dc,dd,de,df,dg,dh;
gd=gm=0;
initgraph(&gd,&gm,"");
go=3*pi/4;
g1=2*pi-go;

}
for(j=1-u;j<=u-1;j++)
if(j!=0)
{
X=xo;
Y=yo-p*j;
bar(X-1,Y-1,X+1,Y+1);
}
outtextxy(da.e,da.f+6,"x");
outtextxy(dd.e+6,dd.f,"y");
outtextxy(xo+6,yo+6,"0");
outtextxy(xo+l*1,yo+6,"1");
outtextxy(xo+l*2,yo+6,"2");
outtextxy(xo+l*3,yo+6,"3");
outtextxy(xo+l*4,yo+6,"4");
outtextxy(xo+l*5,yo+6,"5");
outtextxy(xo-l*1,yo+6,"-1");
outtextxy(xo-l*2,yo+6,"-2");
outtextxy(xo-l*3,yo+6,"-3");
outtextxy(xo-l*4,yo+6,"-4");
outtextxy(xo-l*5,yo+6,"-5");
outtextxy(xo+6,yo-p*1,"1");
outtextxy(xo+6,yo-p*2,"2");
outtextxy(xo+6,yo-p*3,"3");
outtextxy(xo+6,yo-p*4,"4");
outtextxy(xo+6,yo-p*5,"5");
outtextxy(xo+6,yo+p*1,"-1");
outtextxy(xo+6,yo+p*2,"-2");
outtextxy(xo+6,yo+p*3,"-3");
outtextxy(xo+6,yo+p*4,"-4");