Процедуры и функции

[Zaraaa]

Даны действительные числа s,t. Получить g(1.2,s)+g(t,s)-g(2s-1,s*t) ,

где

g(a,b)= (a^2+b^2)/( a^2+2*a*b+3*b^2+4)

помогите пжл на делфи(((

[Serge_Bliznykov]

ну, что то вроде:

function g(a, b : double) : double;
begin
  g := (sqr(a) + sqr(b))/(sqr(a)+2*a*b+3*sqr(b)+4);
end;

// основная программа
var s, t, rr : double;
...
begin
   s := тут присвоение s // например, s := StrToFloat(Edit1.Text);
   t := тут присвоение t // например, t := StrToFloat(Edit2.Text);

  rr := g(1.2, s) + g(t,s) - g(2*s-1, s*t);

  тут вывод результата rr куда нужно. например, в Edit3: Edit3.Text := FloatToStr( rr );

переменная rr просто вспомогательная, можно обойтись без неё, сразу написав выражение там, куда выводите результат.

[Zaraaa]

THANKSS)) very much