[lmikle]

ну и в чем проблема?

1. Как-то так:

Код:

uses Math;

procedure TForm1.Button1Click(Sender : TObject);
var
  x, y, y1, y2 : Extended;
begin
  x := StrToFloat(Exit1.Text);
  y1 := sh(x);
  y2 := ch(x);
  y := sqr(y2) - sqr(y1);
  Edit2.Text := Format('%20.16f',[y1]);
  Edit3.Text := Format('%20.16f',[y2]);
  Edit4.Text := Format('%20.16f',[y]);
end;

2: Ну тут как-то так:

Код:

procedure TForm1.Button2Click(Sender : TObject);
var 
  I : Integer;
  A : Extended;
  E : Extended;
  Ec : Extended;
begin
  E := 0;
  For I := 0 To 359 Do
    begin
      A := (PI * I)/180;  //grad to rad
      Ec :=  1 - (sqr(sin(A) + sqr(cos(A)));
      If Abs(Ec) > E Then E := Abs(Ec);
    end;
  ShowMessage('Emax = ' + FloatTostr(E));
end;