モンテカルロ法でうんぬん。

mc.hsp

*init
  screen 0, 256, 256
  title "もんかる"

  num = 0
  n = 0

  pos 72, 120
  mes "クリックで開始"

  onclick *main
  stop

*main
  cls

  repeat
    redraw 0

    x = rnd(256)
    y = rnd(256)

    if (x * x + (256 - y) * (256 - y)) < 256 * 256 {
      color 144, 144, 255
      n += 1
    } else {
      color 255, 144, 144
    }

    boxf x - 2, y, x + 2, y
    boxf x, y - 2, x, y + 2

    num += 1

    title "π ≒ " + (4.0 * n / num)

    redraw 1
    await 17
  loop