1数据结构概述及线性表

COGS p646 为 法雷序列

分析：

这题枚举出来真分数（欧几里得算法判断），然后快排。
当真分数a/b<真分数c/d时，有a*d<b*c

我是直接对真分数的实数值进行排序

type
  node=record
        x,y:longint;         //integer足矣
        d:double;            //real足矣
      end;
var
  n,i,j,len:longint;
  sn:array[1..8000] of node; //如果不想用记录类型，可以用一个二维数组 + 一个一位数组代替
function gcd(x,y:longint):longint;      // function gcd(x,y:longint):longint;
begin                                   // begin  
  if x=0 then gcd:=y                    //   if y=0 then exit(x)
   else gcd:=gcd(y mod x,x);            //    else exit(gcd(y,x mod y));
end;                                    // end

{function gcd(x,y:longint):longint;
var t:longint;
begin
  while y<>0 do begin
                  t:=x; x:=y; y:=t mod y;
                end;  
end;}

procedure qsort(l,r:longint);
var i,j:longint;
    mid:double;
    temp:node;
begin
  i:=l; j:=r;
  mid:=sn[(l+r) div 2].d;
   while i<=j do
    begin
     while sn[i].d<mid do inc(i);
     while sn[j].d>mid do dec(j);
     if i<=j then
      begin
        temp:=sn[i]; sn[i]:=sn[j]; sn[j]:=temp;  //若用上述数组则需要写三行交换语句，记录类型直接交换
        inc(i); dec(j);
      end;
    end;
   if i<r then qsort(i,r);
   if l<j then qsort(l,j);
end;
begin
assign(input,'frac1.in');
assign(output,'frac1.out');
reset(input);
rewrite(output);
  readln(n);
  sn[1].x:=0; sn[1].y:=1; sn[1].d:=0.0;
  sn[2].x:=1; sn[2].y:=1; sn[2].d:=1.0;
  len:=2;                               //也可以写成下面这样，省去初始化,直接输出首项和末项
   for i:=2 to n do                      //for i:=1 to n-1 do
    for j:=1 to i-1 do                    //for j:=i+1 to n do
     if gcd(i,j)=1 then
      begin
        inc(len);
        sn[len].x:=j; sn[len].y:=i; sn[len].d:=j/i;
      end;
     qsort(1,len);
    for i:=1 to len do
     writeln(sn[i].x,'/',sn[i].y);
close(input);
close(output);
end.

排行榜第一的大神用hash，不用排序直接输出，霸气啊~

瞻仰下牛的程序：

{ 
ID: qilinar3 
PROG: frac1 
LANG: PASCAL 
}
var
    hash:array[0..160*159,1..2] of integer; 
    i,j,n:integer; 
    t:longint; 
begin
    assign(input,'frac1.in');reset(input); 
    assign(output,'frac1.out');rewrite(output); 
    readln(n); 
    for i:=0 to n do
        for j:=1 to n do
            if j>=i then
            begin
                t:=round(i/j*160*159); 
                if hash[t][2]=0 then
                begin     hash[t][1]:=i;     hash[t][2]:=j;     end; 
            end; 
    for i:=0 to 160*159 do if hash[i][2]<>0 then writeln(hash[i][1],'/',hash[i][2]); 
    close(input);close(output); 
end.