даны действительные числа

[dizel9876]

Составить блок-схему решения задачи, написать программу с использованием подпрограммы (процедура или функции) и провести расчет в соответствии с заданием. Даны действительные числа s, t. Получить g(1,2, s)+g(t, s)-g(2s-1, st), где g(a,b)=(a*a+b*b)/(a*a+2*a*b+3*b*b+4)
посмотрите, что не так

uses crt;
procedure G(a,b:real; var y:real);
begin
y:=(a*a+b*b)/(a*a+2*a*b+3*b*b+4);
end;
function Summ(a,b,c:real):real;
begin
Summ:=a+b-c;
end;
var s,t,g1,g2,g3,sm:real;
begin
clrscr;
write('s=');readln(s); 
write('t=');readln(t);
G(1.2,s,g1); 
G(t,s,g2);
G(2*s-1,t,g3);
write('Summa=',Summ(g1,g2,g3):0:5);{выводим результат}
readln
end.

[Step_UA]

G(2*s-1,s*t,g3);

Использование функции Summ не целесообразно, т.к. вызывается только один раз

[dizel9876]

дак, а мне больше-то и не надо. эт из контрольной по информатике, как делать не объяснили ну и приходится ориентироваться по заданию, программа написана, подпрограмма тоже написана, какие претензии могут быть, спасибо за помощь!)))

[Serge_Bliznykov]

g ГОРАЗДО лучше объявить как функцию:

function G(a,b:real):real;
begin
  G := (a*a+b*b)/(a*a+2*a*b+3*b*b+4);
end;

тогда вычисление функции будет всего одна строка:

  write('s=');readln(s); 
  write('t=');readln(t);
  sm := G(1.2,s) + G(t,s)+ G(2*s-1,t);
  writeln('Summa=',sm:0:5);{выводим результат}