Ejercicio 6 de la semana del 16 al 22 de marzo de 2020. Área de un segmento circular

Ejercicio 65 de la página 207 del libro base

ENUNCIADO. Calcula el área del segmento circular, sabiendo que el radio de la circunferencia es de 5 cm y que el ángulo central de los extremos de su arco es de 90º

SOLUCIÓN.

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