pascal比赛-pas联赛是哪个

足球pac是什么能力

足球pac指的是速度。PAC=速度，DRI=盘带，SHO=射门，DEF=防守，PAS=传球，PHY=身体。效力中超联赛的球员中最高数值为83分，分别是保利尼奥、奥古斯托和奥斯卡，这三名巴西人也是他们所在球队的中场核心。回国参加国家队比赛的大连人中场哈姆西克总评分达81，相比较于FIFA20，哈姆西克总评下降了3分。而大连人其他五名外援，其中球队头号射手龙东总评77，但是作为大连人的大腿，76的射门还是偏低。博阿滕继续保持着快速灵活的特点，91的速度更是位列全队之首。另外两名瑞典外援拉尔森和丹尼尔森的总评均为73，而第二阶段开始前顶替哈姆西克的新援贾尼松的总评仅为70。

谁有NOTP2007信息学奥赛复赛普及组pascal的试题

试题如下：

全国信息学奥林匹克联赛(NOIP2007)复赛 普及组

1.奖学金

(scholar.pas/c/cpp)

问题描述

某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩:语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学排在前面，这样，每个学生的排序是唯一确定的。

任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前五名名学生的学号和总分。注意，在前5名同学中，每个人的奖学金都不相同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的输出数据(每行输出两个数:学号、总分) 是:

7 279

5 279

这两行数据的含义是:总分最高的两个同学的学号依次是7号、5号。这两名同学的总分都是 279 (总分等于输入的语文、数学、英语三科成绩之和) ，但学号为7的学生语文成绩更高一些。如果你的前两名的输出数据是:

5 279

7 279

则按输出错误处理，不能得分。

输入

输入文件scholar.in包含n+1行:

第1行为一个正整数n，表示该校参加评选的学生人数。

第2到n+1行，每行有3个用空格隔开的数字，每个数字都在O到100之间z第1行的3个数 字依次表示学号为j-1的学生的语文、数学、英语的成绩。每个学生的学号按照输入顺序编号为l~n (恰好是输入数据的行号减1)。

所给的数据都是正确的，不必检验。

输出

输出文件scholar.out共有5行，每行是两个用空格隔开的正整数，依次表示前5名学生的学号和总分。

输入输出样例1

scholar.in

6

90 67 80

87 66 91

78 89 91

88 99 77

67 89 64

78 89 98

scholar.out

6 265

4 264

3 258

2 244

1 237

输入输出样例2

scholar. in

8

80 89 89

88 98 78

90 67 80

87 66 91

78 89 91

88 99 77

67 89 64

78 89 98

scholar. out

8 265

2 264

6 264

1 258

5 258

限制

50%的数据满足:各学生的总成绩各不相同 100%的数据满足: 6<=n<=300

2.纪念品分组

(group.pas/c/cpp)

题目描述

元旦快到了，校学生会让乐乐负责新年晚会的纪念品发放工作。为使得参加晚会的同学所获得的纪念品价值相对均衡，他要把购来的纪念品根据价格进行分组，但每组最多只能包括两件纪念品，并且每组纪念品的价格之和不能超过一个给定的整数。为了保证在尽量短的时间内发完所有纪念品，乐乐希望分组的数目最少。

你的任务是写一个程序，找出所有分组方案中分组数最少的一种，输出最少的分组数目。

输入

输入文件group.in包含n+2行:

第1行包括一个整数w，为每组纪念品价格之和的上眼= 第2行为一个整数n，表示购来的纪念品的总件数G

第3-n+2行每行包含一个正整数Pi (5 <= Pi <= w3)w表示所对应纪念品的价格。

输出

输出文件group.out仅→行，包含一个整数， ep最少的分组数目合

输入输出样例

group.in

100

9

90

20

20

30

50

60

70

80

90

group. out

6

限制

50%的数据满足: 1 <=n <= 15

100%的数据满足: 1 <= n <= 30000， 80 <= W <= 200

3. 守望者的逃离

(escape.pas/c/cpp)

问题描述

恶魔猎手尤迫安野心勃勃.他背叛了暗夜精灵，率深藏在海底的那加企图叛变：守望者在与尤迪安的交锋中遭遇了围杀.被困在一个荒芜的大岛上。为了杀死守望者，尤迪安开始对这个荒岛施咒，这座岛很快就会沉下去，到那时，刀上的所有人都会遇难：守望者的跑步速度，为17m/s，以这样的速度是无法逃离荒岛的。庆幸的是守望者拥有闪烁法术，可在1s内移动60m，不过每次使用闪烁法术都会消耗魔法值10点。守望者的魔法值恢复的速度为4点/s，只有处在原地休息状态时才能恢复。

现在已知守望者的魔法初值M，他所在的初始位置与岛的出口之间的距离S，岛沉没的时间T。你的任务是写一个程序帮助守望者计算如何在最短的时间内逃离荒岛，若不能逃出，则输出守望者在剩下的时间内能走的最远距离。注意:守望者跑步、闪烁或休息活动均以秒(s)为单位。且每次活动的持续时间为整数秒。距离的单位为米(m)。

输入

输入文件escape.in仅一行，包括空格隔开的三个非负整数M，S，T。

输出

输出文件escape.out包含两行:

第1行为字符串"Yes"或"No" (区分大小写)，即守望者是否能逃离荒岛。

第2行包含一个整数，第一行为"Yes" (区分大小写）时表示守望着逃离荒岛的最短时间

第一行为"No" (区分大小写) 时表示守望者能走的最远距离。

输入输出样例1

escape.in

39 200 4

escape.out

No

197

输入输出样例2

escape.in

36 255 10

escape.out

Yes

6

限制

30%的数据满足: 1 <= T<= 10， 1 <=S<= 100

50%的数据满足: 1 <= T <= 1000， 1 <= S <= 10000

100%的数据满足: 1 <= T <= 300000， 0 <= M<=1000 1 <=S <= 10^8

4.Hanoi双塔问题

hanoi.pas/c/cpp

问题描述

给定A,B,C三根足够长的细柱，在A柱上放有2n个中间有空的圆盘，共有n个不同的尺寸，每个尺寸都有两个相同的圆盘，注意这两个圆盘是不加区分的(下图为n=3的情形）。现要将 这些国盘移到C柱上，在移动过程中可放在B柱上暂存。要求:

(1)每次只能移动一个圆盘；

(2) A、B、C三根细柱上的圆盘都要保持上小下大的顺序；

任务:设An为2n个圆盘完成上述任务所需的最少移动次数，对于输入的n，输出An。

输入

输入文件hanoi.in为一个正整数n，表示在A柱上放有2n个圆盘。

输出

输出文件hanoi.out仅一行，包含一个正整数，为完成上述任务所需的最少移动次数An。

输入输出样例1

hanoi.in

1

hanoi.out

2

输入输出样例2

hanoi.in

2

hanoi.out

6

限制

对于50%的数据， 1<=n<=25

对于100% 数据， 1<=n<=200

提示

设法建立An与An-1的递推关系式

因为网上没有解题报告，我就自己写了一个。请参考：

Noip2007解题报告

——by o0rqy0o（就是我啦~~~~~）

第一题：scholar

这个题没什么特别的，主要考察大家对编程的熟练程度。可用二维数组a的a[1,i]记录下语文成绩，再用a[1,i]、a[3,i]记录总分、编号。因为数据最多就300个，所以排序可以用冒泡。在排序时可以将序号也排序，方便控制下标。

我的程序如下：

program scholar(input,output);

var

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

a:array[1..300,1..3] of integer;

procedure swap(var a,b:integer);

var

s:integer;

begin

s:=a;

a:=b;

b:=s;

end;

begin

assign(input,'scholar.in');

assign(output,'scholar.out');

reset(input);

rewrite(output);

readln(n);

for i:=1 to n do

begin

readln(x,y,z);

a[i,1]:=i;

a[i,2]:=x;

a[i,3]:=x+y+z;

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if (a[i,3]<a[j,3]) or ((a[i,3]=a[j,3]) and (a[i,2]<a[j,2])) or ((a[i,1]>a[j,1]) and (a[i,3]=a[j,3]) and (a[i,2]=a[j,2])) then

begin

swap(a[i,1],a[j,1]);

swap(a[i,2],a[j,2]);

swap(a[i,3],a[j,3]);

end;

for i:=1 to 5 do

writeln(a[i,1],' ',a[i,3]);

close(input);

close(output);

end.

第二题：group

这题也不难，有许多人把它想成了DP，其实就是简单的模拟。先排序（也可用冒泡），然后用2个指针控制下标，每次把第一个（头指针对应数据）和最后一个（尾指针对应数据）相加。若比W大则将计数器加1，同时后移头指针；若比小于等于W，则计数器加1，同时将头指针后移1位，尾指针前移1位。最后输出计数器结果。

程序如下：

program group(input,output);

var

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

w,n,i,j,s:integer;

procedure qsort(h,t:integer);

var

p,i,j:integer;

begin

i:=h;

j:=t;

p:=a;

repeat

while (a[j]>p) and (j>i) do j:=j-1;

if j>i then

begin

a:=a[j];

i:=i+1;

while (a<p) and (i<j) do i:=i+1;

if i<j then

begin

a[j]:=a;

j:=j-1;

end;

end;

until i=j;

a:=p;

i:=i+1;

j:=j-1;

if i<t then qsort(i,t);

if j>h then qsort(h,j);

end;

begin

assign(input,'group.in');

assign(output,'group.out');

reset(input);

rewrite(output);

readln(w);

readln(n);

for i:=1 to n do readln(a);

qsort(1,n);

i:=1;

j:=n;

s:=0;

while i<=j do

begin

if i=j then

begin

s:=s+1;

break;

end;

if a+a[j]<=w then

begin

i:=i+1;

j:=j-1;

s:=s+1;

end;

if a+a[j]>w then

begin

s:=s+1;

j:=j-1;

end;

end;

writeln(s);

close(input);

close(output);

end.

第三题：escape

没必要用什么DP，还是用模拟。因为魔法值每次移动就消耗10，每秒补4，而且每移动一次也要耗1秒（有些人这个没注意）。经过比较得知，用魔法移动比跑步要快，所以我们尽量用魔法，先判断“Yes”和“No”，再求相应数据即可。

程序如下：

program escape(input,output);

var

a,b:array[0..10000]of longint;

m,s,t,i,j:longint;

function max(a,b,c:longint):longint;

var

k:longint;

begin

if a>b then k:=a else k:=b;

if k<c then k:=c;

max:=k;

end;

begin

assign(input,'escape.in');

assign(output,'escape.out');

reset(input);

rewrite(output);

readln(m,s,t);

for i:=0 to 10000 do

begin

a[i]:=0;

b[i]:=0;

end;

for i:=1 to t do

begin

for j:=0 to 9 do

begin

b[j]:=max(a[j]+17,a[j+4],0);

if b[j]>=s then

begin

writeln('Yes');

writeln(i);

close(input);

close(output);

halt;

end;

end;

for j:=10 to m do

begin

b[j]:=max(a[j]+17,a[j+4],a[j-10]+60);

if b[j]>=s then

begin

writeln('Yes');

writeln(i);

close(input);

close(output);

halt;

end;

end;

a:=b;

end;

writeln('No');

writeln(a[m]);

close(input);

close(output);

end.

第四题：hanoi

典型的汉诺塔问题。只不过乘了个2。我们不需要推An与An-1的递推关系式，推An与n的关系就行了。汉诺单塔的关系式是：An=2^n-1。这里乘2，得：An=2*(2^n)-1，化简，得：An=2^(n+1)-2。用个高精度就行了。

程序如下：

program hanoi(input,output);

var

n,i,j:integer;

a:array[1..100] of 0..9;

procedure ppp(k:integer);

var

i,j,w,s:integer;

begin

a[1]:=1;

w:=0;

for i:=1 to k do

for j:=1 to 100 do

begin

s:=a[j]*2+w;

a[j]:=s mod 10;

w:=s div 10;

end;

end;

begin

assign(input,'hanoi.in');

assign(output,'hanoi.out');

reset(input);

rewrite(output);

readln(n);

ppp(n+1);

if a[1]>=2 then

a[1]:=a[1]-2

else

begin

a[1]:=a[1]+8;

a[2]:=a[2]-1;

end;

i:=100;

while a[i]=0 do i:=i-1;

for j:=i downto 1 do write(a[j]);

writeln;

close(input);

close(output);

end.