(delphi)функции нужна помощь)

[4ayni4eg]

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

[Вадим Мошев]

В чём затруднения?

[4ayni4eg]

Не понимаю, как это всё делать.

[ATL]

Держи, лентяй.

Function g(a, b : real) : real;
begin
  result := (sqr(a) + sqr(b)) / (sqr(a) + 2*a*b + sqr(3*b) + 4);
end;

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;

[4ayni4eg]

это что то не то) я когда сам делал всё заняло больше и то не работало потому что неправильно и без форм там всяких просто в коде надо ну не рисовать таблички эти) через строку командную или как её)

[Вадим Мошев]

Платную помощь примите? Программа будет сделана так, как вы этого захотите

[4ayni4eg]

да я тот переделаю в то что надо, это не так сложно я думаю)

Function g(a, b : real) : real;
begin
  result := (sqr(a) + sqr(b)) / (sqr(a) + 2*a*b + sqr(3*b) + 4);
end;
 var s, t, result : real;
begin
writeln ('vvedite s');
readln(s);
  writeln('vvedite t');
  readln(t);

  result := g(15, s) + g(t, s) - g(2*s-1, s*t);
  writeln(result:7:1);
  readln(s);
end.

вроде все работает)