Circunferencia

to vai
  let cx -4
  let cy 0
  let r 8
  let p2r ( 2 * pi * r )
  let step p2r / 360
  crt 1 [  ;; 0
    setxy cx + r cy
    pd
    set heading 0
    while [ p2r > 0 ] [
      lt 1
      fd step
      set p2r p2r - step
    ]
    die
  ]
  let y 0
  let x 0
  set circunferência circunferência
  set x circunferência
  set y 2 * pi
  set x x / y
  print x
  set x precision x 2
  set y precision y 2
  crt 1 [
   set hidden? not hidden?
   set xcor 9
   set ycor 4
   set plabel (word "C=2 π r")
  ]
  crt 1 [
   set hidden? not hidden?
   set xcor 9
   set ycor 3
   set plabel (word circunferência"=2 π r")
  ]
  crt 1 [
   set hidden? not hidden?
   set xcor 9
   set ycor 2
   set plabel (word "r="circunferência"/"y)
  ]
  crt 1 [
   set hidden? not hidden?
   set xcor 9
   set ycor 1
   set plabel (word "r="x)
  ]
end 

to limpar
 clear-all
end