Вычесление значения функции

[Shoshona]

Сложить программу для нахождения значения функции f(x). Значения a,b,x вводятся с клавиатуры.
Спасибо!

[Человек_Борща]

Рад за вас. Может ещё и ключи от квартиры дать?

[Shoshona]

Извеняюсь. Не закинул условие)

[type_Oleg]

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

Извеняюсь. Не закинул условие)

Так вот как раз условий то и нет..
Должно же быть типа
(первая формула) при x< ..
(вторая формула) при ... < x < ... и т.д.

[eval]

а тс что условия что их нет, без разницы

[Shoshona]

Мне сказали, что условие вытекает с самой функции!

[Stilet]

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
var a,b:double;

function f(x:double):Double;
begin
 if x>0 then Result:=a*sqrt(sin(x)+sqr(cos(x)))+exp(a+b*x) else
   if x<0 then Result:=1-ln(sqrt(a*x*x-b-abs(x*x*x))) else
     Result:=(x*x*x-b)*cos(3*x-0.5);
end;

begin
  readln(a,b,x); write(f(x));readln;
end.

Увидел где вытекает? Если нет - то это будет твоей задачей. Найти утечку функции

[Shoshona]

Спасибо, попробую!

[Shoshona]

Супер. Теперь работает!

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x,a,b,y:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
x:=StrToFloat(Edit3.Text);
if sin(x)+cos(x)>=0 then
   y:=a*sqrt(sin(x)+sqr(cos(x)))+exp(a+b*x)
   else
      if a*sqr(x)-b>0 then
         y:=1-ln(sqrt(a*sqr(x)-b-abs(sqr(x)*x)))
         else
            y:=(x*x*x-b)*cos(3*x-0.5);
   Label4.Caption:='f(x)='+FloatToStrF(y,ffFixed,7,5);
end;

end.

[Аватар]

Забыл, что логарифм от минуса тоже не бывает