Партнерка на США и Канаду по недвижимости, выплаты в крипто

  • 30% recurring commission
  • Выплаты в USDT
  • Вывод каждую неделю
  • Комиссия до 5 лет за каждого referral

Задание: вычислить функцию

Код программы:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, OleCtnrs;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Memo1: TMemo;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

OleContainer1: TOleContainer;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var a, b,x, y:real;

begin

a:=strtofloat(edit1.text);

b:=strtofloat(edit2.text);

x:=strtofloat(edit3.text);

if b=0 then showmessage('b=0,На ноль делить нельзя!)

else y:=(sqr(a)-4*a*b+sqr(b))/(3*x*(ln(b)/ln(10)));

showmessage('y='+floattostrf(y, fffixed, 5,3));

end;

end.