2 сем / 7 лаба / 7.2 / Unit1

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    le1: TLabeledEdit;
    btn1: TBitBtn;
    l1: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure le1KeyPress(Sender: TObject; var Key: Char);
    procedure le1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.le1KeyPress(Sender: TObject; var Key: Char);
begin
Control(Key, le1.Text);
end;

procedure TForm1.le1Change(Sender: TObject);
begin
btn1.Enabled:=Control2(le1.Text);
end;

procedure TForm1.btn1Click(Sender: TObject);
const n=30;
var a, x, S:real;
  k:byte; //счётчик счётного оператора цикла, должен быть целого типа
begin
x:=StrToFloat(le1.Text); //при x = 0 будет ошибка выполнения
a:=(Exp(x)+exp(-x))/81;
S:=a; //вычисление начальных значений до тела цикла
for k:=2 to n do //нач. (и конеч.) знач. номера слагаемого устанавл-ся в for
begin //начало тела цикла
 a:=(Exp(x/k)+exp(-x/k))/exp(ln(k+2)*4); //выч-е тек-го слаг. через самого себя предыдущ. итерации
 S:=S+a; //добавление слагаемого k-ой итерации к накапливаемой сумме
 end; //конец тела цикла; оператор for сам увеличит k на единицу
l1.Caption:='S='+FloatToStr(S); //вывод накопленной суммы
end; //конец процедуры


end.