Procedure.d Leibnic(Iter)
  For i = 0 To  iter-1
    pi.d+Pow(-1,i)/(2*i+1)
  Next
  ProcedureReturn pi*4
EndProcedure

Debug Leibnic(1000000)
Debug #PI

from mpmath import mp
import time

# Функция для вычисления и записи цифр числа π
def compute_and_save_pi(digits, filename):
    # Устанавливаем точность
    mp.dps = digits + 2  # +2 для учёта "3."

    # Начало вычислений
    print(f"Вычисление числа π с {digits} цифрами после запятой...")
    start_time = time.time()

    # Вычисляем число π
    pi_value = str(mp.pi)

    # Записываем результат в файл
    with open(filename, "w") as file:
        file.write(pi_value)

    # Время выполнения
    end_time = time.time()
    print(f"Вычисление завершено за {end_time - start_time:.2f} секунд.")
    print(f"Результат записан в файл: {filename}")

# Параметры
digits = 100000  # Количество цифр после запятой
filename = "pi_digits.txt"  # Имя файла для записи

# Выполняем вычисления и запись
compute_and_save_pi(digits, filename)

Procedure.d Factorial(n.i)
  Define.d result = 1.0
  Define.i i
  For i = 1 To n
    result = result * i
  Next i
  ProcedureReturn result
EndProcedure

Procedure.d ChudnovskyPi(n.i)
  Define.d sum = 0.0
  Define.d term
  Define.i k

  For k = 0 To n
    term = Factorial(6 * k) * (13591409 + 545140134 * k)
    term = term / (Factorial(3 * k) * Pow(Factorial(k), 3) * Pow(640320, 3 * k + 1.5))
    If k % 2 = 1
      term = -term
    EndIf
    sum = sum + term
  Next k

  ProcedureReturn 1 / (12 * sum)
EndProcedure

Debug ChudnovskyPi(10)
Debug #PI