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

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

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

Сообщение andreeshgtee » 27.11.2020 20:32:46

Код: Выделить всё
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]
andreeshgtee
незнакомец
 
Сообщения: 3
Зарегистрирован: 18.11.2020 22:54:04

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

Сообщение iskander » 27.11.2020 22:11:02

И что говорит, что-нибудь насчёт функции 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?
iskander
постоялец
 
Сообщения: 387
Зарегистрирован: 08.01.2012 18:43:34


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9

Рейтинг@Mail.ru
cron