用Delphi编写圆周率模拟器[2]

　　var
　　a,b,i,ii:longint;
　　pi,piok:single;
　　begin
　　// 随机产生坐标点
　　i:=random(200);
　　ii:=random(200);

　　if (i*i+ii*ii<40000) then
　　begin
　　// 以200为半径的圆内的点设为蓝色
　　Image1.canvas.Pen.Color:=claqua;
　　a:=StrToInt(Label1.Caption);
　　Label1.Caption:=IntToStr(a+1);
　　//显示当前点的坐标
　　Label6.Caption:=IntToStr(Image1.Canvas.PenPos.X);
　　Label7.Caption:=IntToStr(Image1.Canvas.PenPos.Y);

文章来源于领测软件测试网 https://www.ltesting.net/