很古怪的问题（会pascal的进来一下）

[sharpmark]

问题是：
读入两个实数，并输出其中一个较大的数（只可以用：复制语句、读写语句和abs,sqr,sqrt,sin,cos,arctan,exp,in,trunc,round,ord,chr,pred,suce函数）
怎么做？？

[andrew80]

read(x,y)
z=x-y;
if z = abs(z)
then write(x)
else write(y);

[wuhuar]

+ - * / （）也不能用？？？

[windindance]

~~~~~~~~~~~~~~~~~~~~~~

[sharpmark]

+ - * / （）可以用，
但if语句不能用！！！

[yug]

float max(float a,float b)
{
return((abs(a-b)+a+b)/2);
}

[TAlucard]

agree with yug

[SoftWare1999]

var a,b:real;
begin
readln(a,b);
writeln((a+b+abs(a-b))/2);
end.

[yxf]

俺的方法被Software1999抢了

[testnet]

a+b如果a和b都很大，会不会益出？

[andrew80]

read(x,y);
z:=x-y;
temp1:=abs(z);
temp2:=(z+temp1)/(2*temp1);
writeln(temp2*x+(1-temp2)*y);
这个方法就是上面的if语句，转化成一个式子。
关于溢出：如果所有变量都是整形，则不会发生溢出。只要输入的整形变量不溢出，则只有z+temp1和2*temp1可能发生溢出，而由于pascal整形变量溢出不报错,而是直接变成相应的负数，所以即使z+temp1和2*temp1都大于32***，二者还是两个相等的负数，其商仍然为1，对结果无影响。如果所有变量都是实型，则只有在输入的数一个非常小，一个接近10的38方才有可能发生溢出。
上面为了叙述方便所以用了临时变量，如果不允许使用临时变量，则：
read(x,y);
writrln((x-y+abs(x-y))/(2*abs(x-y))*x+(1-(x-y+abs(x-y))/(2*abs(x-y)))*y);
有点长：）

[lifanxi]

我的方法被yug抢了。
还有一个办法是用ODD函数。以前用过的，现在好久没有用Pascal，连odd是什么函数也忘了。等我去查查再来。