Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Private

Известны три варианта разложения числа p в ряд. Сравните по скорости вычисления по каждому способу разложения.

В качестве показателя скорости вычисления числа p будем использовать количество повторений в каждом из вариантов решения.

1) p=4(1-1/3+1/5 – 1/7 + 1/9 …)

2) p=3+4(1/2*3*4 –1/4*5*6 +1/6*7*8 -...)

3) p=Ö 6(1+1/2² +1/3²+1/4² +…)

Пример окна формы с результатами решения задачи для заданной погрешности e=1.0e-11 приведен на рис. 1.

Рис. 1

Программа содержит два события, а именно события от кнопок

2 и 3. В окне формы вы видите результаты решения задачи по двум предложенным вариантам – второму и третьему. Самая быстрая формула – вторая.

Unit Unit_pi;

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

Type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Button3: TButton;

Edit3: TEdit;

Label3: TLabel;

Edit4: TEdit;

Label4: TLabel;

Button4: TButton;

Edit5: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

Public

{ Public declarations }

End;

Var

Form1: TForm1;

i,j,t:int64;

S1,S,eps,p:extended;