UC知道pascal程序设计的题
来源：百度知道 编辑：UC知道 时间：2024/05/10 12:36:51
求g(2.5, 3.4),g(1.7, 2.5),g(3.8, 2.9)。已知.
当x<=y时
g(x,y)=f(x+y)/[f(x)+f(y)]
当x>y时
g(x,y)=f(x-y)/[f(x)+f(y)]
其中f(t)=[1+exp(-t)]/[1+exp(t)]
将f和g分别定义成函数，用函数嵌套调用计算。
当x<=y时
g(x,y)=f(x+y)/[f(x)+f(y)]
当x>y时
g(x,y)=f(x-y)/[f(x)+f(y)]
其中f(t)=[1+exp(-t)]/[1+exp(t)]
将f和g分别定义成函数，用函数嵌套调用计算。
program gf(input,output);
var
r1,r2,r3:real;
FUNCTION f(t:real):real;
begin
f:=(1+exp(-t))/(1+exp(t));
end;{ft}
function g(x,y:real):real;
begin
if x<=y then g:=f(x+y)/(f(x)+f(y))
else g:=f(x-y)/(f(x)+f(y));
end;
begin
r1:=g(2.5, 3.4);
r2:=g(1.7, 2.5);
r3:=g(3.8, 2.9);
writeln(r1,r2,r3);
end.