Círculo y circunferencia. Otro ejercicio de programación con WinLogo (LOGO)

; ---------------------------------------------------------
; Circunferència i cercle
;   Longitud d'una circunferència
;   Área d'un cercle
;
;    © Joan Aranes Clua, 1998
                CC BY 4.0
; ---------------------------------------------------------
procediment dibuixa.circumferència :radi
  repeteix 360 [av 2*pi*:radi/360 gd 1]
fi

procediment pinta.cercle :radi 
  no.llapis gd 90 av 3 fes.color 11 llapis pinta
  no.llapis recula 3 ge 90 fes.color 1 llapis
fi

procediment cercle
  esborra.text
  escriu.seguit [Digueu el radi: $ ]
  posa.a "radi paraula.llegida
  inicia.dibuix
  dibuixa.circumferència :radi
  pinta.cercle :radi 
  (escriu [La longitud de la circumferència de radi] :radi [és igual a] 2*pi*:radi)
  (escriu [L'àrea del cercle de radi] :radi [és igual a] pi*:radi*:radi)
  mou.cursor [4 6]
  escriu [Voleu continuar ? (s/n)]
  posa.a "resposta caràcter.llegit
  si :resposta = "n [acaba]
  cercle
fi
; ---------------------------------------------------------
% cercle ;exemple d'ús