ОТДЕЛ ЧислоПи+;

(* НАЗНАЧЕНИЕ: приближённое вычисление числа "Пи" *)

(* АЛГОРИТМ: *)

(* Пи/4 = 1 - 1/3 + 1/5 - 1/7 + ... (медленная сходимость) *)

 

ИСПОЛЬЗУЕТ

  Вывод ИЗ "...\Отделы\Обмен\",

  Матем ИЗ "...\Отделы\Числа\";

 

ПОСТ

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

 

ЗАДАЧА Голова;

(* Расчёт по алгоритму и вывод ответа на экран *)

ПЕР

  сумма,слагаемое:ВЕЩ;

  знаменатель,знак:ЦЕЛ;

УКАЗ

  Вывод.Цепь("^Расчёт суммы: 1 - 1/3 + 1/5 - 1/7 + ... ");

  сумма:=0;

  знаменатель:=1;

  знак:=1;

  ПОВТОРЯТЬ

    слагаемое:=знак/знаменатель;

    сумма:=сумма+слагаемое;

    УВЕЛИЧИТЬ(знаменатель,2);

    знак:=-знак

  ДО МОДУЛЬ(слагаемое) < ТОЧНОСТЬ;

  Вывод.ЧВещ("(%d слагаемых)^^ %g сумма*4^ %g ПИ^ %g arctg(1)*4^",

  знаменатель/2, сумма*4,Матем.ПИ,Матем.arctg(1)*4)

КОН Голова;

 

УКАЗ

  Голова

КОН ЧислоПи.