【正文】
extended。begin gd:=D8bit。 gm:=m640x480。 InitGraph(gd,gm,39。39。)。 Assert(graphResult=grOk)。 for i:=0 to 1000 do for j:=0 to 1000 do begint:=(2*pi)*i/1000。r:=2*j/1000。if f(t,r)0 then PutPixel(round(cos(t)*r*100)+300,round(sin(t)*r*100)+200,15) end。 readln。 CloseGraph。end.果然不出所料,下面就是程序運行的結(jié)果:其它一些代數(shù)函數(shù)圖象: 查看更多: