Даны действительные числа S, T. Получить g(1.2,S)+g(T,S)-g(2*S,S*T), где g(A,B)= A^2+B^2/A^2+2*A*B+3*B^2+4 описать в программе как функцию

code: #pascal
program p3;
 
function g(a,b:real):real;
begin
g:=(sqr(a)+sqr(b))/(sqr(a)+(2*a*b)+(3*sqr(b))+4);
end;
 
var s,t:real;
begin
write('S= '); readln(s);
write('T= '); readln(t);
 
writeln('Otvet= ',g(1.2,s)+g(t,s)-g(2*s,s*t):0:3);
readln;
end.      
Поделиться:

Похожие статьи: