Не вычисляет функцию

[andreeshgtee]

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,Math;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private

  public

  end;

var  x,y,exp:real;

  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  x:=StrToInt(Edit1.Text);
   begin
       if x <=-3 then
           y:=abs(2*tag*(x-7))-power(10,1.5);
      if (x>-3) and (x<=0) then
           y:=5*sqr(x+1)+5*((power(x+3/x+2,0.25)+2))/(x-3);

      if x>0 then
      y:=power(exp,-4*x)-7*x
      else
        Edit2.Text:=('Ошибка');

        Edit2.Text:=FloatToStr(y);

end;
   end;


end.




функция
[url]
https://ru.files.fm/u/9e5pwpgpr#/view/sjp3zwrja
[/url]

[iskander]

И что говорит, что-нибудь насчёт функции tag?
А если так?

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
  x := StrToInt(Edit1.Text);
  if x <= -3 then
    y := abs(2*tan(x-7)) - power(10, 1.5)
  else
    if x <= 0 then
      y := 5*sqr(x + 1) + 5*(power((x + 3)/(x + 2), 0.25) + 2)/(x - 3)
    else
      y := exp(-4*x) - 7*x; 
  Edit2.Text := FloatToStr(y);
end;


Но интересно, что ты будешь делать при -3<x<=-2?