Даны действительные числа s,t. Вычислить: g(15,s)+g(t,s)-g(2s-1,st). (на Delphi)

[vfrcbvrf23]

Даны действительные числа s,t. Вычислить: g(15,s)+g(t,s)-g(2s-1,st) ,
где g(a,b)=(a^2+b^2)/(a^2+2ab+3(b^2)+4)

[DpolenST]

только вчера был этот вопрос
http://programmersforum.ru/showthread.php?t=260785

[Stilet]

Попытки? Наработки? Идеи?
Иначе:

(foo := func g (
 ((foo.a * foo.a) + (foo.b * foo.b)) / ((foo.a * foo.a) + (2 * foo.a * foo.b) + (3 * foo.b * foo.b) + 4)
))
(s := 1) (t := 2)
(write  (call foo.g a=s b=t))

И только навскидку.

[vfrcbvrf23]

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

Попытки? Наработки? Идеи?
Иначе:

(foo := func g (
 ((foo.a * foo.a) + (foo.b * foo.b)) / ((foo.a * foo.a) + (2 * foo.a * foo.b) + (3 * foo.b * foo.b) + 4)
))
(s := 1) (t := 2)
(write  (call foo.g a=s b=t))

И только навскидку.

Делфи это такой бред, который я вообще не понимаю, и впринципе понять не могу.Из за чего это происходит я не могу осознать, а сделать надо до завтра!

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}
Function g(a, b : real) : real;
begin
  result := (sqr(a) + sqr(b)) / (sqr(a) + 2*a*b + sqr(3*b) + 4);
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var s, t, result : real;
begin
 s := StrToFloat(Edit1.Text);
 t := StrToFloat(Edit2.Text);

 result := g(15, s) + g(t, s) - g(2*s-1, s*t);
 Edit3.Text := FormatFloat('0.000', result);
end;

end.

Так понятнее?

не понимаю, и впринципе понять не могу.

Так может стоит подумать о смене профессии на более понятную?

[ZX Spectrum-128]

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

Даны действительные числа s,t. Вычислить: g(15,s)+g(t,s)-g(2s-1,st) ,
где g(a,b)=(a^2+b^2)/(a^2+2ab+3(b^2)+4)

Да ну, бред.
Нормальный язык программирования.
Описываете функцию g

Function g(a,b:real):real;
Begin
 G:= (a*a+b*b)/(a*a+2*a*b+3*(b*b)+4);
End;

И подставляте в нее значения

[vfrcbvrf23]

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

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}
Function g(a, b : real) : real;
begin
  result := (sqr(a) + sqr(b)) / (sqr(a) + 2*a*b + sqr(3*b) + 4);
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var s, t, result : real;
begin
 s := StrToFloat(Edit1.Text);
 t := StrToFloat(Edit2.Text);

 result := g(15, s) + g(t, s) - g(2*s-1, s*t);
 Edit3.Text := FormatFloat('0.000', result);
end;

end.

Так понятнее?

Так может стоит подумать о смене профессии на более понятную?

Если бы я вообще не понимал не один язык програмирования то сменил бы не задумываясь. Но это происходит только с делфи.Спасибо за помощь

[ATL]

Бог его знает, чем Делфи "непонятнее" других языков программирования. Вы Haskell видали?