Plot Circle by pooq

var r,x,y:comp;s:string;begin
read(r);for y:=-r to r do
begin
s:='';for x:=-r to r do
s:=s+copy("* ",ord(x*x+y*y>r*r)+1,1);writeln(s)end
end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page