Основы языка Delphi

         

Вычисление числа я



Листинг 2. 6. Вычисление числа я

unit pi_; interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit; // точность вычисления


Button1: TButton; // кнопка Вычислить

Label1: TLabel;

Label2: TLabel; // поле вывода результата

procedure ButtonlClick(Sender: TObject);
private

{ Private declarations }

public

{ Public declarations )

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

pi:real; // вычисляемое значение ПИ

t:real; // точность вычисления

n:integer; // номер члена ряда

elem:real; // значение члена ряда

begin

pi := 0;

n := 1;

t := StrToFloat(editl.text) ;

elem := 1; // чтобы начать цикл

while elem >
= t do

begin

elem := 1 / (2*n - 1) ; if n MOD 2=0

then pi := pi — elem else pi := pi + elem; n := n + 1;

end;

pi: = pi * 4; labell.caption:= 'ПИ равно '+ FloatToStr(pi) + #13

+ 'Просуммировано '+IntTostr(n)+' членов ряда.'; end;

end.



Содержание раздела