program P1237;

const x=0.618;

var a:array[1..30000]of longint;

n,i,j,l1,l2:longint;

k,l:real;

procedure qsort(l,r:longint):longint;

var i,j,mid,tmp:longint;

begin

i:=l;

j:=r;

mid:=a[(l+r) div 2];

repeat

while a[i]j;

if l

郁闷死啊

ＦＰ上都对了

在这就……………………………………………………………………Unaccepted

vijos的测评机好畸形

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program vijos1237;

const x=0.6180339887498949;

var a:array[1..30000]of longint;

n,i,j,l1,l2:longint;

k,min:real;

procedure qsort(l,r: longint);

var i,j,mid,tmp: longint;

begin

i:=l;

j:=r;

mid:=a[(l+r) div 2];

repeat

while a[i]j;

if l

求第二组数据

没明白、 54涐吧、、

设个 数组

先全清零

每读入一个数n 如果a[n]是1 则输出这个数和他的完美配对..

否则把这个数比他大的完美配对a[n div 0.618]命为1

如果后面有数等于的话 就可以直接判断 停止 输出了

为什么要像下面那么麻烦里？

要用longint!!!

快排+二分。血的教训，在判断if now

{$}

const m:extended=0.6180339887498949;

var i,j,k,n,kk,kkk:longint;

　　min,rrrr:extended;

　　a:array[0..30000]of longint;

procedure kp(r,l:longint);

var i,j,mid,k:longint;

begin

i:=r;j:=l;mid:=a[(i+j)div 2];

repeat

　　while a[i]mid do dec(j);

　　if ij;

if r

program huang;

var a:array[1..1000] of integer;

i,j,n,x,y:integer;

e,f:real;

begin

read(n);

f:=100;

for i:=1 to n do

read(a[i]);

for i:=1 to n-1 do

begin

for j:=i+1 to n do

begin

e:=a[i]/a[j]-0.6180339887498949;

if e

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

简单的排序加二分~~~

可是~~~

可是~~~

诶~~~

详见讨论~~

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

#include

#include

#define gold 0.6180339887498949

int main()

{

long i,j,m,n,max,a[100010]={0},b[30010]={0},ws1,ws2;

double k,minex;

minex=10;

scanf("%d",&n);

max=-1;

for(i=0;i

var

x,y,z,jump,t,i,j,n:longint;

f:boolean;

num:real;

a:array[1..30000] of longint;

begin

num:=99.00;readln(n);

for i:= 1 to n do read(a[i]);

jump:=n;

while jump > 1 do

begin

jump:=jump div 2;

repeat

f:=true;

for i:=1 to n-jump do

if a[i]>athen

begin

t:=a[i];a[i]:=a;a:=t;

f:=false;

end;

until f;

end;

i:=1;j:=2;

repeat

if a[i]/a[j] >0.618 then

begin

if abs(a[i]/a[j]-0.618033988)

编译通过...

├ 测试数据 1：答案正确... ms

├ 测试数据 2：答案正确... ms

├ 测试数据 3：答案正确... ms

├ 测试数据 4：答案正确... ms

├ 测试数据 5：答案正确... ms

├ 测试数据 6：答案正确... ms

├ 测试数据 7：答案正确... ms

├ 测试数据 8：答案正确... ms

├ 测试数据 9：答案正确... ms

├ 测试数据 1：答案正确... ms

Accepted 有效得分：1 有效耗时：ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

一次AC!

此题第6000次是我交的。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 9ms

├ 测试数据 04：答案正确... 994ms

├ 测试数据 05：答案正确... 56ms

├ 测试数据 06：答案正确... 25ms

├ 测试数据 07：答案正确... 134ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 72ms

├ 测试数据 10：答案正确... 56ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：1346ms

双指针.

各位注意，lolanv语文绝对有问题。

i=1;j=2;

while(j

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 697ms

├ 测试数据 04：答案正确... 291ms

├ 测试数据 05：答案正确... 291ms

├ 测试数据 06：答案正确... 197ms

├ 测试数据 07：答案正确... 306ms

├ 测试数据 08：答案正确... 275ms

├ 测试数据 09：答案正确... 244ms

├ 测试数据 10：答案正确... 244ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：2545ms

快排+二分。。。。

没想到 二分写错了(差一个等号，5个小时就浪费了）。。。找了N个小时的错

通过率下降5%。。。。。。

int search(double res,int a[]){

int l=0,h = n-1,m =(l+h)/2;

while(l!=m){

if (a[m]>res){h = m;m = (l+h)/2;continue;}

if (a[m]abss(a[h] -res)) return h;

else return l;

}

二分确定位置