2 сем / 7 лаба / 2 задание / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, controlsisi;

type
TForm1 = class(TForm)
btn1: TButton;
lbl1: TLabel;
lbledt1: TLabeledEdit;
procedure btn1Click(Sender: TObject);
procedure lbledt1Change(Sender: TObject);
procedure lbledt1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
const n=5;
var a,x,s:real; k:Integer;

begin
begin
x:=StrToFloat(lbledt1.text);
a:=1/2;
s:=a;
for k:=-4 to n do
begin
a:=((x/(k+7)))*a;
S:=s+a;
end;
end;
lbl1.Caption:='S='+Floattostr(s);
end;




procedure TForm1.lbledt1Change(Sender: TObject);
var c:Boolean;
begin
xexe(lbledt1.Text,c);
btn1.Enabled:=c;
end;

procedure TForm1.lbledt1KeyPress(Sender: TObject; var Key: Char);
begin
Sisi(lbledt1.Text,Key)
end;

end.