Разветвляющийся алгоритмы-Delphi 7

[ParkerVans]

Добрый день, при компиляции возникает ошибка: Undeclared identifier:'tg'
Вот код на Delphi 7

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    RadioGroup1: TRadioGroup;
    Memo1: TMemo;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:='0.5';
  Edit2.Text:='1.8';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y,z,fx:extended;
begin
  x:=StrToFloat(Edit1.Text);
  y:=StrToFloat(Edit2.Text);
  fx:=(Exp(x)-exp(-x))/2;
  case RadioGroup1.ItemIndex of
  0:fx:=fx;
  1:fx:=x*x;
  2:fx:=Exp(x);
end;
  if x+y>0 then
    z:=Sqr(fx+y*y)+sin(y);
  if (x>0) and (y<0) then
    z:=Sqr(fx-y*y*y)+cos(y);
  if x-y<0 then
    z:=Sqr(y-fx)+tg(y);
  if CheckBox1.Checked then
  Memo1.Lines.Add('X = '+Edit1.Text+' Y = '+Edit2.Text);
  Memo1.Lines.Add(' Z = '+FloatTostrF(z,ffFixed,8,3));
  end;
end.

[Аватар]

у делфина функция тангенса не так называется )) И

  if x+y>0 then
    ...
  else if (x>0) and (y<0) then
    ...
  else
    ...

[ParkerVans]

Он ругается и на z:=Sqr(y-fx)+tan(y); Да, это вычисления выражения через формулы

[Serge_Bliznykov]

Сообщение от ParkerVans

Он ругается и на z:=Sqr(y-fx)+tan(y);

попробуйте в Uses дописать Math:

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

[ParkerVans]

Всё работает! Всем большое спасибо!

[Serge_Bliznykov]

пожалуйста.

исправить условия не забыли?

if (x+y)>0 then
....
  if (x-y)<0 then

скобки тут ПРИНЦИПИАЛЬНО нужны

[ParkerVans]

Да, исправил, еще раз спасибо

[Serge_Bliznykov]

хорошо.
тогда ещё раз - пожалуйста!