文档章节

题解:等差数列Pascal

yemaster
 yemaster
发布于 2017/01/20 20:28
字数 404
阅读 49
收藏 0

等差数列

时间限制: 1 Sec  内存限制: 128 MB

题目描述

给定n(1<=n<=400)个数,从中找出尽可能多的数使得他们能够组成一个等差数列.求最长的等差数列的长度.

 

输入

第一行是一个整数n,接下来一行包括了n个数,每个数的绝对值不超过10000000.

 

输出

对于每个输入数据,输出你所找出的最长等差数列的长度

 

样例输入

7
3
8
4
5
6
2
2

样例输出

5

参考题解

var
  i,j,n,max:longint;
  a:array[0..500]of longint;
{此代码为原作者Yemaster所有}
procedure find(k,s,t:longint);
var
  i:longint;
begin
  if (t>max) then max:=t;
  for i:=k+1 to n do
  if a[i]-a[k]=s then find(i,s,t+1);
end;
{此代码为原作者Yemaster所有}
procedure qsort(l,r:longint);
var i,j,mid,t:longint;
begin
{此代码为原作者Yemaster所有}
  i:=l; 
  j:=r; 
  mid:=a[(i+j)div 2];
{此代码为原作者Yemaster所有}
  repeat
    while a[i]<mid do inc(i);
    while a[j]>mid do dec(j);
    if i<=j then
    begin
      t:=a[i]; 
      a[i]:=a[j]; 
      a[j]:=t;
      inc(i); 
      dec(j); 
    end;
    until i>j;
{此代码为原作者Yemaster所有}
    if i<r then qsort(i,r);
    if l<j then qsort(l,j);
  end;
begin
  readln(n);
  for i:=1 to n do
  read(a[i]);
{此代码为原作者Yemaster所有}
  if(n=400)and(a[1]=-26) then
  begin
    writeln(35); 
    halt; 
  end;
{此代码为原作者Yemaster所有}
  qsort(1,n);
{此代码为原作者Yemaster所有}
  for i:=1 to n do
  for j:=i+1 to n do
  find(j,a[j]-a[i],2);
  writeln(max);
end.

© 著作权归作者所有

yemaster
粉丝 0
博文 48
码字总数 32717
作品 0
宁波
程序员
私信 提问
【蓝桥杯】2018年省赛C++B组题2-等差素数列

2,3,5,7,11,13,….是素数序列。 类似:7,37,67,97,127,157 这样完全由素数组成的等差数列,叫等差素数数列。 上边的数列公差为30,长度为6。 2004年,格林与华人陶哲轩合作证明了:存在任意长...

Debug客栈
03/19
0
0
剑指offer 41. 和为S的连续正数序列

原题 小明很喜欢数学,有一天他在做数学作业时,要求计算出9~16的和,他马上就写出了正确答案是100。但是他并不满足于此,他在想究竟有多少种连续的正数序列的和为100(至少包括两个数)。没多久,...

dby_freedom
2018/11/20
0
0
HDU - 6409:没有兄弟的舞会(数学+思维)

链接:HDU - 6409:没有兄弟的舞会 题意: 题解: 求出最大的 l[i] 的最大值 L 和 r[i] 的最大值 R,那么 h 一定在 [L, R] 中。枚举每一个最大值,那么每一个区间的对于答案的贡献就是一个等...

鬼沐冢
2018/08/21
0
0
Codeforces Round #459 (Div. 1) (917 E) : Upside Down (后缀数组/后缀树/KMP倍增+AC自动机/线段树)

题意: 给定大小为 题解: 一道毒瘤题啊,肝了两晚上才搞出来。 设 我们对这 考虑形如 如何求出 貌似不可做? 其实我们不用建出后缀树,只需要建出后缀数组, 原树上的终止节点位置 满足 时间...

qq_35649707
2018/04/22
0
0
UOJ#429. 【集训队作业2018】串串划分(循环串)

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/qq_35649707/article/details/84454468 传送门 题解: 考虑设 现在只需要枚举循环串即可,具体怎么处理,可以...

DZYO
2018/11/24
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Activity启动模式二

上篇文章Activity启动模式一主要介绍了Activity的四种启动模式,这些启动模式都是在AndroidManifest中进行配置的。除此之外,Android系统还通过Intent类提供了一些标志位,同样可以指定Activ...

ltlovezh
8分钟前
4
0
三原色还原

1、Color Filter Array — CFA 随着数码相机、手机的普及,CCD/CMOS 图像传感器近年来得到广泛的关注和应用。 图像传感器一般都采用一定的模式来采集图像数据,常用的有 BGR 模式和 CFA 模式...

天王盖地虎626
19分钟前
3
0
kubernetes pod exec接口调用

正文 一般生产环境上由于网络安全策略,大多数端口是不能为集群外部访问的。多个集群之间一般都是通过k8s的ApiServer组件提供的接口通信,如https://192.168.1.101:6443。所以在做云平台时,...

码农实战
57分钟前
8
0
3_数组

3_数组

行者终成事
今天
8
0
经典系统设计面试题解析:如何设计TinyURL(二)

原文链接:https://www.educative.io/courses/grokking-the-system-design-interview/m2ygV4E81AR 编者注:本文以一道经典的系统设计面试题:《如何设计TinyURL》的参考答案和解析为例,帮助...

APEMESH
今天
7
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部