Создание программы в Delphi

    Timer1: TTimer;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject); 

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form5: TForm5;

 

implementation 

{$R *.dfm} 
 
 

procedure TForm5.Button1Click(Sender: TObject);

var

a,b,c,s,p,f:extended;

k,r,j:integer;

begin

//условия вывода  сообщения на экран

if (Edit1.Text='') or (Edit1.Text='0') or (Edit1.Text<'0')

then

begin

//вывод сообщения  на экран

Showmessage ('Недопустимое  либо пустое значение!');

Edit1.Text:='';

end;

//присваение оси а

a:=-10;

//обновление  двух линий

Series1.Clear;

Series2.Clear;

//цикл сравнения

while a<10 do

begin

//строим первый график

Series2.AddXY(a,cosh(a));

p:=1;

s:=1;

r:=0;

f:=1;

//цикл сравнения  со считыванием точности

while 1/f>StrToFloat(edit1.text) do

begin

f:=1;

//цикл вычисления  с выводом промежуточных результатов

for j:=1 to r*2 do f:=f*j;

//вычисление  гиперболического косинуса

p:=p+power(a,r*2)/f;

//увеличение  шага

r:=r+1;

end;

//строим второй  график

Series1.AddXY(a,p);

a:=a+0.05;

end;

end; 

procedure TForm5.Button2Click(Sender: TObject);

begin

//выход

Close;

end; 

procedure TForm5.Timer1Timer(Sender: TObject);

begin

//вывод текущей даты

Statusbar1.panels[0].text:='Текущая дата: '+DateToStr(now);

//вывод текущего времени

Statusbar1.panels[1].text:='Время: '+TimeToStr(now);

end;

end.