老话题，新问题！（实数判等、数组交换）(50分)

山木人 · 2002-03-25

var
x,y:array[1..15] of single;
......
if formatfloat('0.00',x)='100.00' and formatfloat('0.00',y)='100.00'
then ......
//这一句错哪了？

怎样交换x和y的值？

卷起千堆雪tyn · 2002-03-25

通过一个变量做中介，不就可以么？
var
a :single;
i :integer;
begin
for i :=1 to 15 do
begin
a :=x;
x :=y;
y :=a;
end;
end;

山木人 · 2002-03-25

对不起，对不起我是那样交换的，第二问出错是在：
max:single

for i:=0 to n do a:=a / max;

错：Operator not applicable to this operand type
第一问的错也是如此。

感谢卷起千堆雪tyn

卷起千堆雪tyn · 2002-03-25

我这里没有错误，D5。

山木人 · 2002-03-25

以上两问都没出错，真的吗？大侠！

//delphi 6.0

卷起千堆雪tyn · 2002-03-25

注意：
if (formatfloat('0.00',x)='100.00') and (formatfloat('0.00',y)='100.00') then
//记得括号

山木人 · 2002-03-25

唉哟，我的天哪！糊涂哇。
真是太感谢你了！卷起千堆雪tyn
第二问还请劳神！15分钟后给你分。（无论答否）

卷起千堆雪tyn · 2002-03-25

第二问：
var
a :array [1..15] of single;
max:single;
i :integer;
begin
for i := 1 to 15 do
a :=a/max;
end;

山木人 · 2002-03-25

谢了，也许是其它的问题。