48636 (608698), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,s,n:Real;

i:Word;

c:Integer;

begin

a:=(StrToFloat(Edit1.Text));

b:=(StrToFloat(Edit2.Text));

n:=1;

c:=-1;

i:=1;

repeat

i:=i+1;

n:=n+1/i;

c:=-c;

s:=c*n;

until (sb);

Label3.Caption:=(FloatTostr(s));

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9', ',',Chr(VK_BACK)]) then Key := #0;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9', ',',Chr(VK_BACK)]) then Key := #0;

end;

end.

Характеристики

Список файлов курсовой работы