Даны действительные числа 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 описать в программе как функцию
Категория: Delphi/Pascal
2012-02-05 19:09:33
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.
Поделиться: