noip2014

原创 2015年07月10日 11:31:35

noip2014

珠心算


试题一(count.pas)
【问题描述】
珠心算是一种通过在脑中模拟算盘变化来完成快速运算的一种计算技术。珠心算训练,既能够开发智力,又能够为日常生活带来很多便利,因而在很多学校得到普及。
某学校的珠心算老师采用一种快速考察珠心算加法能力的测验方法。他随机生成一个正
整数集合,集合中的数各不相同,然后要求学生回答:其中有多少个数,恰好等于集合中另外两个(不同的)数之和?

最近老师出了一些测验题,请你帮忙求出答案。
【输入】
输入文件名为count.in。
输入共两行,第一行包含一个整数n,表示测试题中给出的正整数个数。
第二行有n个正整数,每两个正整数之间用一个空格隔开,表示测试题中给出的正整数。
【输出】
输出文件名为count.out。
输出共一行,包含一个整数,表示测验题答案。
【输入输出样例】
count.in count.out
5
1 2 3 4 5 6 4
【样例说明】
由1+2=3,1+3=4,故满足测试要求的答案为2。注意,加数和被加数必须是集合中的两个不同的数。
【数据说明】
对于100%的数据,3 ≤ n ≤ 100,测验题给出的正整数大小不超过10,000。

代码如下

program count;
var
n,i,j,k:integer;
a:array[1..101] of integer; 
b:array[1..101]of boolean;
begin
assign(input,'count.in');
assign(output,'count.out');
reset(input);
rewrite(output); 
 readln(n);
  fillchar(b,sizeof(b),0);
for i:=1 to n do read(a[i]);
 for i:=1 to n do
  for j:=1 to n do
   for k:=j+1 to n do
if a[i]=a[j]+a[k] then b[i]:=true; 
k:=0;
 for i:=1 to n do
  if b[i] then k:=k+1;
writeln(k);
close(input);
close(output);
end.

比例化简


试题2(ratio.pas)
【问题描述】
在社交媒体上,经常会看到针对某一个观点同意与否的民意调查以及结果。例如,对某一观点表示支持的有1498人,反对的有902人,那么赞同与反对的比例可以简单的记为1498:902。
不过,如果把调查结果就以这种方式呈现出来,大多数人肯定不会满意。因为这个比例的数值太大,难以一眼看出它们的关系。对于上面这个例子,如果把比例记为5:3,虽然与真实结果有一定的误差,但依然能够较为准确地反映调查结果,同时也显得比较直观。
现给出支持人数A,反对人数B,以及一个上限L,请你将A比B化简为A’比B’,要求在A’和B’均不大于L且A’和B’互质(两个整数的最大公约数是1)的前提下,
A’/ B’ ≥ A/B且A’/B’- A/B的值尽可能小。
【输入】
输入文件名为ratio.in。
输入共一行,包含三个整数A,B,L,每两个整数之间用一个空格隔开,分别表示支持人数、反对人数以及上限
【输出】
输出文件名为ratio.out
输出共一行,包含两个整数A’,B’,中间用一个空格隔开,表示化简后的比例。
【输入输出样例】

ratio.in ratio.out
1498 902 10 5 3

【数据说明】
对于100%的数据,1 ≤ A ≤ 1,000,000,1 ≤ B ≤ 1,000,000,1 ≤ L ≤ 100,
A/B ≤ L。

代码如下

var
  a,b,l,i,j,mini,minj:longint;
  r1,r2,min:real;
begin
  //assign(input,'ratio.in'); reset(input);
  //assign(output,'ratio.out'); rewrite(output);
  read(a,b,l);
  r1:=a/b;
  min:=maxlongint;
  for i:=1 to l do
    for j:=1 to l do begin
      r2:=i/j;
      if(r2-r1>1e-8)and(r2-r1-min<-(1e-8))then begin
        min:=r2-r1;
        mini:=i;
        minj:=j;
      end;
    end;
  writeln(mini,' ',minj);
  //close(input); close(output)
end.

螺旋矩阵


一个n行n列的螺旋矩阵可由如下方法生成:

从矩阵的左上角(第1行第1列)出发,初始时向右移动;如果前方是未曾经过的格子,则继续前进,否则右转;重复上述操作直至经过矩阵中所有格子。根据经过顺序,在格子中依次真入1,2,3,…,n2,便构成了一个螺旋矩阵。

下图是一个n=4时的螺旋矩阵。

1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7

现给出矩阵大小n以及i和j,请你求出该矩阵中第i行第j列的数是多少。

输入
输入共一行,包含三个整数n,i,j,每两个整数之间用一个空格隔开,分别表示矩阵大小、待求的数所在的行号和列号。

【数据说明】

对于50%的数据,1≤n≤100;

对于100%的数据,1≤n≤30,000,1≤i≤n,1≤j≤n 。

输出
输出共一行,包含一个整数,表示相应矩阵中第i行第j列的数。

样例输入
4 2 3
样例输出
14

代码如下:

program matrix;
var
 n,i,j,tn,s,m,k:longint;
 procedure print(x,y:longint);
 begin
 if x=1 then
 begin
  writeln(s+y-1);
  exit
 end;
 s:=s+tn-1;
 if y=tn then
 begin
  writeln(s+x-1);
  exit
 end;
 s:=s+tn-1;
 if x=tn then
 begin
  writeln(s+tn-y);
  exit
 end;
 s:=s+tn-1;
 writeln(s+tn-x)
 end;
function min(x,y:longint):longint;
 begin
  if x<=y then exit(x) else exit(y)
 end;
begin
//assign(input,'matrix.in'); reset(input);
//assign(output,'matrix.out'); rewrite(output);
readln(n,i,j);
 m:=min(i,min(j,min(n-i+1,n-j+1)));
  i:=i-m+1; j:=j-m+1;
   tn:=n;
    s:=1;
   for k:=1 to m-1 do begin
  inc(s,4*tn-4);
 dec(tn,2)
end;
print(i,j);
//close(input); close(output)
end.
版权声明:本文为博主原创文章,未经博主允许不得转载。

NOIP2014联合权值——史上最强解析

无向连通图G有n个点,n-1条边。点从1到n依次编号,编号为i的点的权值为Wi ,每条边的长度均为1。图上两点(u, v)的距离定义为u点到v点的最短距离。对于图G上的点对(u, v),若它们的距离...
  • yangs_s
  • yangs_s
  • 2015年08月08日 16:55
  • 2677

【NOIP2014模拟11.2A组】国色天香 (Standard IO)

题意:用给定的火柴数量,找出一个组成的最小数和最大数,要全部用完 思路:找最大的很容易,先要让位数最多,然后在前面一个最大。 找最小的就是让位数最少,就用8,然后在取出他们剩下的可能余数在进行处理...
  • qq872425710
  • qq872425710
  • 2017年01月21日 16:34
  • 129

【NOIP2014】联合权值 乱搞

只有图QAQ距离为2,边权为1,所以和同一个点相连的其它点之间都会产生联合权值,枚举60分2333可是我们为什么要枚举呢?若当前和节点u相连的节点的权值是wi,此时u又新加了个节点m,权值为wx,那么...
  • LOI_DQS
  • LOI_DQS
  • 2015年10月26日 21:42
  • 1984

【noip2014提高组】【Day2】【解题报告】

T1无线网络发射选址 题目链接:http://codevs.cn/problem/3730/ 题解:          直接枚举安装地点即可。 代码: #include #include u...
  • sunshinezff
  • sunshinezff
  • 2015年10月22日 15:15
  • 1543

noip2014提高组初赛(答案+选择题题目+个人分析)

一、单项选择题(共15题,每题1.5分,共计22.5分;每题有且仅有一个正确选项)    1. 以下哪个是面向对象的高级语言(   )。 A. 汇编语言 B. C++ C. Fortran D. ...
  • Eirlys_North
  • Eirlys_North
  • 2016年10月22日 08:45
  • 3677

1- noip模拟赛 DAY1

T1 QAQ 为了方便,我们将字符串的下标从0开始计。那么我们要找的一组答案要满足:将这些答案中的数转成m进制数后,0..m-1中每一个数都能在某个数的某个数位上找到。这是充分必要的。...
  • yhf_2015
  • yhf_2015
  • 2016年10月12日 00:43
  • 283

noip2014 比例简化 (最大公约数+分数大小比较)

P1912比例简化 Accepted 标签:NOIP普及组2014 描述 在社交媒体上,经常会看到针对某一个观点同意与否的民意调查以及结果。例如,对某 一观点表示支持的...
  • yuyanggo
  • yuyanggo
  • 2015年11月01日 15:05
  • 1237

[NOIP2014]子矩阵解题报告

这题看上去没啥思路,一看数据范围小的可怜,就算了下暴搜的时间复杂度O(C(16,8)∗(C(16,8)+m3))≈108O(C(16,8)*(C(16,8)+m^3))≈10^8似乎没啥问题,然后就写...
  • TA201314
  • TA201314
  • 2015年04月18日 10:37
  • 3365

NOIP2014模拟8.21】签到题3

Description给定一棵有根树(根节点为1),每个点都带有权值,对于点u,其权值设为a[u],其父亲为fa[i]。现有两个函数f1,f2,定义如下: 如果u=1,f1[u]=a[u],f2[u...
  • HownoneHe
  • HownoneHe
  • 2018年02月03日 15:06
  • 34

衡阳八中noip2014模拟赛day1

衡阳八中noip2014模拟赛day1T1国色天香题目简要:给出火柴棒的根数,问拼出数字的最大最小值 解答: 火柴棒拼数字1 2 3 4 5 6 7 8 9 0 需要火柴棒 2 5 5 4 5...
  • Cynthia_wjyi
  • Cynthia_wjyi
  • 2015年09月25日 18:42
  • 1435
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:noip2014
举报原因:
原因补充:

(最多只允许输入30个字)