Определение площади фигуры методом Монте Карло - QBasic

Формулировка задачи:

"определение площади фигуры методом монте карло" в программировании вообще не шарю

Решение задачи: «Определение площади фигуры методом Монте Карло»

Листинг программы

10 input "kol-vo to4ek"; n
20 i=0
30 m=0
40 for i=0 to n
50 x=rnd(1)
60 y=rnd(1)
70 if x^2+y^2<=1 then m=m+1
80 next i
90 i=i+1
100 s=4*m/i
110 print s

Объяснение кода листинга программы

Код определяет площадь фигуры (вероятно, это квадрат или окружность) методом Монте-Карло. Переменные:

n - количество точек для проверки (входит в цикл)
i - счётчик точек
m - количество точек внутри фигуры
x - случайное число от 0 до 1
y - случайное число от 0 до 1
s - площадь фигуры Список действий:
Ввод количества точек для проверки (n).
Инициализация счётчика точек (i) и точек внутри фигуры (m).
Цикл по точкам (от 0 до n):
Генерация случайных чисел (x и y) от 0 до 1.
Проверка, находится ли точка внутри фигуры (x^2 + y^2 <= 1).
Увеличение счётчика точек внутри фигуры (m) при условии, что точка внутри.
Выход из цикла.
Увеличение счётчика точек (i).
Вычисление площади фигуры (4*m/i).
Вывод площади.