(*~\Глагол\Приложения\Иное\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
(**)                          ОТДЕЛ ЧислоПи+;
(*============================================================================*)
(* НАЗНАЧЕНИЕ:
//         Приложение "Вычисление числа Пи с точностью 'ТОЧНОСТЬ'"
// АЛГОРИТМ:
//   Пи/4 = 1 - 1/3 + 1/5 - 1/7 + ... (медленная сходимость) *)
(*============================================================================*)

ИСПОЛЬЗУЕТ 
 дМатем   ИЗ "..\..\Отделы\ЧисАн\64\д\",

  НаЭкран ИЗ "..\..\Отделы\Обмен\ВводВывод\";

ПОСТ
  ТОЧНОСТЬ=1.E-6; (* приблизительно *)

(*------------------------------------------ Главная ЗАДАЧА-------------------*)
ЗАДАЧА Голова;
(*
 * Расчёт по алгоритму и вывод ответа на экран
 *)
ПЕР
    сумма,
    слагаемое:ВЕЩ;
  знаменатель,
         знак:ЦЕЛ;
УКАЗ
  НаЭкран.ВсяЦепь("^Расчёт суммы: 1 - 1/3 + 1/5 - 1/7 + ... ");

        сумма:=0;
  знаменатель:=1;
         знак:=1;

  ПОВТОРЯТЬ
    слагаемое:=знак/знаменатель;
    сумма:=сумма+слагаемое;
    УВЕЛИЧИТЬ(знаменатель,2);
    знак:=-знак
  ДО МОДУЛЬ(слагаемое) < ТОЧНОСТЬ;

  НаЭкран.Вещ4числа("(%d слагаемых)^^   %g сумма*4^   %g ПИ^   %g arctg(1)*4^",
               знаменатель/2,       сумма*4,дМатем.ПИ,дМатем.arctg(1)*4)
КОН Голова;

(*-SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS-*)
УКАЗ
  Голова
КОН ЧислоПи.
