vẽ đồ thị trong pascal và C/C++

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;

dg.y:=yo;
dh.x:=xo;
dh.y:=yo+p*u;
line(da.x,da.y,db.x,db.y);
line(da.x,da.y,dc.x,dc.y);
line(da.x,da.y,dg.x,dg.y);
line(dd.x,dd.y,de.x,de.y);
line(dd.x,dd.y,df.x,df.y);
line(dd.x,dd.y,dh.x,dh.y);
outtextxy(da.x,da.y+6,'x');
outtextxy(dd.x+6,dd.y,'y');
outtextxy(xo+6,yo+6,'0');
for i:=1-k to k-1 do
if i<>0 then
begin
xl:=xo+l*i;
yl:=yo;
bar(xl-1,yl-1,xl+1,yl+1);
str(i,s);
outtextxy(xl,yl+6,s);
end;
for j:=1-u to u-1 do
if j<>0 then
begin
xl:=xo;
yl:=yo-p*j;
bar(xl-1,yl-1,xl+1,yl+1);
str(j,s);
outtextxy(xl+6,yl,s);
end;

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;

g2=go-pi/2;
g3=3*pi/2-go;
da.e=xo+l*k;
da.f=yo;
db.e=da.e+g*cos(go);
db.f=da.f+g*sin(go);
dc.e=da.e+g*cos(g1);
dc.f=da.f+g*sin(g1);
dd.e=xo;
dd.f=yo-p*u;
de.e=dd.e+g*cos(g2);
de.f=dd.f+g*sin(g2);
df.e=dd.e+g*cos(g3);
df.f=dd.f+g*sin(g3);
dg.e=xo-l*k;
dg.f=yo;
dh.e=xo;
dh.f=yo+p*u;
line(da.e,da.f,db.e,db.f);
line(da.e,da.f,dc.e,dc.f);
line(da.e,da.f,dg.e,dg.f);
line(dd.e,dd.f,de.e,de.f);
line(dd.e,dd.f,df.e,df.f);
line(dd.e,dd.f,dh.e,dh.f);
for(i=1-k;i<=k-1;i++)
if(i!=0)
{
X=xo+l*i;
Y=yo;
bar(X-1,Y-1,X+1,Y+1);

}
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");

outtextxy(xo+6,yo+p*5,"-5");
for(t=1-k;t<=k-1;t+=d)
{
x=t;
y=(t-1)*(t+1)*(t-2);
X=xo+l*x;
Y=yo-p*y;
if((y<=u-1)&&(y>=1-u))putpixel(X,Y,4);
}
getch();
}