Найти вероятность выхода точки из шара - QBasic

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

Здравствуйте, помогите, пожалуйста, написать программу: Имеется шар радиусом R=10 и точка, расположенная в центре шара, которая совершает шаг +-1 с вероятностью 1/6 (в любом направлении x,y,z), всего 100 шагов. Найти вероятность того, что точка выйдет из шара. Проделать операцию 1000 раз.

Решение задачи: «Найти вероятность выхода точки из шара»

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

    IF SQR(x ^ 2 + y ^ 2 + z ^ 2) > 10 THEN n = n + 1: EXIT FOR
NEXT i, j

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

В данном коде выполняется два вложенных цикла, в которых происходит проверка условия и подсчет числа n, если оно удовлетворяется. Ниже представлена более подробная информация:

Условие: SQR(x ^ 2 + y ^ 2 + z ^ 2) > 10
- В данном условии используется функция SQR, которая возводит значение в квадрат.
- Переменные x, y и z возводятся в квадрат, а затем их значения суммируются.
- Результат сравнивается с 10.
Цикл:
- Если условие истинно, то выполняется следующая инструкция, которая увеличивает значение переменной n на 1, а затем выходит из цикла с помощью команды EXIT FOR.
- Цикл выполняется для каждой пары значений i и j. Ниже представлен список с номерами элементов и их описанием:
IF SQR(x ^ 2 + y ^ 2 + z ^ 2) > 10 THEN n = n + 1: EXIT FOR
- Условие для проверки
NEXT i, j
- Цикл для выполнения проверки