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(); } . 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 . (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