Plot Circle by *yuko*

var i,j,n:comp;begin read(n);for i:=-n to n do for j:=-n to n do write(("* ")[ord(i*i+j*j>n*n)+1],^j:ord(j=n))end.

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

download

return to the top page