求教

var x,y:array[1..1000] of integer;

z:array[1..1000] of real;

a,b,d,e:integer;

o,p,q,c:real;

procedure tr(a,b:integer;var c:real);

var o:real;

begin

o:=x[a]/y;

c:=o-n;

c:=abs(c);

end;

procedure ta(var m,n:real);

var t:real;

begin

if m>n then

begin

t:=m;

m:=n;

n:=t;

end;

begin

read(e); readln;

c:=1;d:=1;

for a:=1 to e do

begin

read(x[a]);

y[a]:=x[a];

end;

for a:=1 to e do

for b:=1 to e do

while ab do

begin

tr(a,b,n,c);

z[d]:=c;

d:=d+1;

if d>1 then

if (z[d]>z[d-1])

then

begin

m:=x[a];

n:=y;

end;

if (z[d]=z[d-1]) and (x[a]

0 条评论

目前还没有评论...

信息

ID
1237
难度
7
分类
其他 | 二分查找 点击显示
标签
递交数
5452
已通过
1050
通过率
19%
被复制
17
上传者