20200119考试总结

最新推荐文章于 2020-10-17 15:16:59 发布

Thunder_S

最新推荐文章于 2020-10-17 15:16:59 发布

阅读量288

点赞数 1

本文链接：https://blog.csdn.net/LZX_lzx/article/details/104053626

版权

2020年1月19日信息学集训B组总结

T1（水池）
T2（数字排序）
T3（球星）
T4（钻石交易）

考试考得还好，第5，总结如下（AC的题附代码）

T1（水池）

题目描述
有一个圆形的水池，水池的圆心坐标为(0, 0)。有座桥跨越水池，桥可以看作直线段AB，A点和B点都在水池边上。
Merlin想从F点走到G点，并且F点和G点都在水池边上，但是他不会游泳。请告诉他从F点到G点的最短路程是多少。
输入
输入有多组数据。
每组数据的第一行是一个整数R (1<=R<=100), 表示水池的半径。
第二行包含8个实数XA, YA, XB, YB, XF, YF, XG, YG, 分别表示A，B，F，G点的坐标。
输出
每组数据输出一行，输出答案四舍五入到两位小数。
样例输入
1
0.729627 -0.683845334 0.198022 -0.9801975758 0.314911 -0.9491212052 -0.735596 -0.6774204933
1
0.517308 0.8557992949 0.936038 -0.351898938 0.396901 -0.9178614254 0.616543 -0.7873212363
样例输出
1.15
0.26
数据范围
对于所有数据，1<=R<=100，|X²+Y²-R²| < 10^-8。
————————————华丽的分割线————————————

这题到手后，首先打开电脑画图，画了个图—此乃样例图（数据1）
我*，什么鬼，果断放弃
现已AC
这题要用反三角函数arcsin，然后一切就水到渠成了
首先求出两点间的距离然后算出arcsin（距离/直径）*直径就是两点之间的弧长了
附代码：

uses math;
var
        r,xa,xb,xf,xg,ya,yb,yf,yg,disgf,disab,disaf,disag,disbf,disbg,longgf,longag,longaf,longbg,longbf,ans:extended;
function dis(a,b,c,d:extended):extended;
begin
        exit(sqrt((sqr(a-b)+sqr(c-d))));
end;
function put(a:extended):extended;
begin
        exit(arcsin(a/2/r)*2*r);
end;
begin
        assign(input,'pool.in');
        reset(input);
        assign(output,'pool.out');
        rewrite(output);
        while not(EOLN) do
        begin
                readln(r);
                readln(xa,ya,xb,yb,xf,yf,xg,yg);
                disgf:=dis(xf,xg,yf,yg);
                disab:=dis(xa,xb,ya,yb);
                disaf:=dis(xa,xf,ya,yf);
                disag:=dis(xa,xg,ya,yg);
                disbf:=dis(xb,xf,yb,yf);
                disbg:=dis(xb,xg,yb,yg);
                longgf:=put(disgf);
                ans:=longgf;
                longaf:=put(disaf);
                longag:=put(disag);
                longbf:=put(disbf);
                longbg:=put(disbg);
                if ans>longaf+disab+longbg then ans:=longaf+disab+longbg;
                if ans>longag+disab+longbf then ans:=longag+disab+longbf;
                writeln(ans:0:2);
        end;
        close(input);
        close(output);
end.

~~诚挚的问候出题人，您初一就会高中的三角函数？~~

T2（数字排序）

题目描述
给你两个数列A=(a1,a2,a3,…,an)和B=(b1,b2,b3,…,bm)，把ai (1<=i<=n)和bj (1<=j<=m)乘起来，得到一个新的有 $m * n$ 个数的数列。把这个序列排列成非递减数列，然后请找出排在第k位的数。
输入
输入有多组数据。
每组数据的第一行包含三个整数：n(1<=n<=10000), m(1<=m<=10000), k(1<=k<= $m * n$ ).
第二行包含n个整数，表示数列A。
第三行包含m个整数，表示数列B。
所有数列A和B里的数字范围是 [0, 10000].
每组数据之后有一个空行。
输出
每组数据输出一行，为答案。
样例输入
1 3 3
1
3 2 1

3 3 7
1 2 3
1 2 3
样例输出
3
6
数据范围
对于所有数据，1<=n<=10000，1<=m<=10000，1<=k<=m*n，0<=ai<=10000, 0<=bj<=10000。

一看题，哇！暴力，上！于是就打了暴力……
原本估计就那个40~50分，结果80！！！
这数据也太水了吧！！
当然，有些大佬就跟我们这群蒟蒻不一样，比如说CJZ大佬，二分+二分当场AC！！！
正解：二分答案+二分查找
先将一个数组排序（比如说B数组）
然后二分出一个答案，接下来就是要判断这个答案是否合法。在判断时我们可以先把A数组的数全部枚举一遍，再用一个二分，找出一个最大的j，使得a[i]*b[j]小于二分出来的答案，然后将方案数加上j，枚举完后判断方案数是否<=k-1
附代码：

var
        a,b:array[0..10005] of longint;
        n,m,t,i,j,l,r,mid,ans,min,max:longint;
procedure qsort(i,j:longint);
var
        l,r,mid:longint;
begin
        l:=i;
        r:=j;
        mid:=b[(i+j) div 2];
        while i<j do
        begin
                while b[i]<mid do i:=i+1;
                while b[j]>mid do j:=j-1;
                if i<=j then
                begin
                        b[0]:=b[i];
                        b[i]:=b[j];
                        b[j]:=b[0];
                        i:=i+1;
                        j:=j-1;
                end;
        end;
        if i<r then qsort(i,r);
        if l<j then qsort(l,j);
end;//快排
function pd(x:longint):boolean;
var
        ll,rr,mmid,i,s:longint;
begin
        s:=0;
        for i:=1 to n do
        begin
                ll:=1;
                rr:=m;
                mmid:=0;
                while ll<rr do
                begin
                        mmid:=(ll+rr+1)>>1;
                        if b[mmid]*a[i]<x then ll:=mmid
                        else rr:=mmid-1;
                end;//二分
                if b[ll]*a[i]<x then s:=s+ll;
        end;
        if s<=t-1 then exit(true)
        else exit(false);
end;//判断答案是否合法
begin
        assign(input,'sort.in');
        reset(input);
        assign(output,'sort.out');
        rewrite(output);
        while not(EOLN) do
        begin
                fillchar(a,sizeof(a),0);
                fillchar(b,sizeof(b),0);
                max:=0;
                min:=1234567890;
                l:=0;
                r:=0;
                mid:=0;
                ans:=0;
                readln(n,m,t);
                for i:=1 to n do
                begin
                        read(a[i]);
                        if a[i]>max then max:=a[i];
                        if a[i]<min then min:=a[i];
                end;
                readln;
                for i:=1 to m do
                        read(b[i]);
                readln;
                readln;
                qsort(1,m);
                l:=min*b[1];
                r:=max*b[m];
                ans:=l;
                while l<=r do
                begin
                        mid:=(l+r)>>1;
                        if pd(mid)=true then
                        begin
                                l:=mid+1;
                                ans:=mid;
                        end
                        else r:=mid-1;
                end;//二分
                writeln(ans);
        end;
        close(input);
        close(output);
end.

T3（球星）

题目描述
在1000000000年，足球在世界上依然很流行。在足球史上，曾经有个很多球星。人们想知道在某个时期里最顶尖的11个足球运动员。现在给你一个足球运动员的名单，让你去完成这份工作。每个运动员用(年份, 名字, 能力)来表示。
输入
第一行包括一个整数N(1<=N<=50000)，表示运动员的总数。紧跟着的N行，每行描述一位球员。0<=年份<=1000000000，名字的长度少于15个字母，0<=能力<=1000000000。输入保证没有两个名字是一样。然后一行有一个整数R，表示询问数(1<=R<=100000)。紧跟着的R行，每行包含两个整数x和y(0<=x<=y<=1000000000)，表示查询的时期的年份范围为[x,y]。
输出
对于每个询问，输出11个球员的名字，按球员的ability从高到低排序，如果一样，按年份从低到高排序，如果还是一样，按姓名的字典序排序。如果查询的年份范围内的球员数少于11，则剩下的每行都输出”XXX”。在每个询问后输出一个空行。
样例输入
5
1 a 1
2 b 2
2 c 6
5 e 50
5 d 50
2
1 2
5 5
样例输出
c
b
a
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX

d
e
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
数据范围
对于所有数据，1<=N<=50000, 0<=年份<=1000000000, 0<=能力<=1000000000。1<=R<=100000，每个询问中0<=x<=y<=1000000000。

这题到手后，又去打暴力，结果……
爆0！！！
~~数据怎么那么坑！暴力分都不给！！~~
回归正题
根据我的想法 ~~（题解所说）~~，这题用线段树维护11个最棒的球星，然后合并时就用归并排序，但这题年份是小于等于10⁹，很显然的要用离散化或动态开点
~~这题没A，不附代码啦~~
有没有大佬会做这题的，评论教我，谢谢

T4（钻石交易）

题目描述
在这里插入图片描述
输入

输出

样例输入
4 5 2 7 1
0 0
10 0
0 8
100 10
1 2 5
1 3 10
1 4 8
2 3 4
2 4 6
样例输出
16
【样例说明】
最优方案为：先从城市1到城市2，在城市2卖掉第一颗钻石，然后到城市4，卖掉第二颗钻石并结束旅行。
数据范围
在这里插入图片描述

这题我们看到钻石的数量是小于等于10的，所以我们很显然的可以用状压，考试时我打了状压BFS，赛后YXY大佬告诉我这题用状压DP+SPFA，现已AC
附代码

#include<cstdio>
#include<string.h>
#define max(a,b) (a>b?a:b)
using namespace std;
int n,m,tot,q,st,i,j,x,y,z,ans,num;
int f[1505][1505],dis[1505],d[10000000],a[1505][15],em[15];
bool bj[1505];
struct edge
{
	int to,val,next,head;
}MAP[4005];
void add(int x,int y,int z)
{
	num++;
	MAP[num].to=y;
	MAP[num].val=z;
	MAP[num].next=MAP[x].head;
	MAP[x].head=num;
}
void SPFA(int x)
{
	int i,h,t;
	h=t=0;
	for (i=1;i<=n;i++)
	{
		dis[i]=f[i][x];
		t++;
		d[t]=i;
	}
	bj[st]=true;
	while (h<t)
	{
		h++;
		for (i=MAP[d[h]].head;i;i=MAP[i].next)
		{
			if (dis[MAP[i].to]<=dis[d[h]]-MAP[i].val)
			{
				dis[MAP[i].to]=dis[d[h]]-MAP[i].val;
				if (bj[MAP[i].to]==false)
				{
					bj[MAP[i].to]=true;
					t++;
					d[t]=MAP[i].to;
				}
			}
		}
		bj[d[h]]=false;
	}
	for (i=1;i<=tot;i++)
	{
		if (x&em[i-1]) continue;
		for (j=1;j<=n;j++)
		{
			if (dis[j]>=0) f[j][x|em[i-1]]=max(f[j][x|em[i-1]],dis[j]+a[j][i]);
		}
		
	}
}
int main()
{
	scanf("%d%d%d%d%d",&n,&m,&tot,&q,&st);
	em[0]=1;
	for (i=1;i<=tot;i++)
		em[i]=em[i-1]<<1;
	for (i=1;i<=n;i++)
		for (j=1;j<=tot;j++)
			scanf("%d",&a[i][j]);
	for (i=1;i<=m;i++)
	{
		scanf("%d%d%d",&x,&y,&z);
		add(x,y,z);		
	}		
	memset(f,128,sizeof(f));
	f[st][0]=q;
	ans=0;
	for (i=0;i<=em[tot]-1;i++)
		SPFA(i);
	for (i=1;i<=n;i++)
		for (j=0;j<=em[tot]-1;j++)
			ans=max(ans,f[i][j]);
	printf("%d\n",ans);
	return 0;
}

THE END…

Thunder_S

关注

1
点赞
踩
0

收藏

觉得还不错? 一键收藏
1
评论
20200119考试总结

2020年1月19日信息学集训B组总结T1（水池）T2（数字排序）考试考得还好，第5，总结如下（AC的题附代码）T1（水池）题目描述有一个圆形的水池，水池的圆心坐标为(0, 0)。有座桥跨越水池，桥可以看作直线段AB，A点和B点都在水池边上。Merlin想从F点走到G点，并且F点和G点都在水池边上，但是他不会游泳。请告诉他从F点到G点的最短路程是多少。输入输入有多组数据。每组数据的...
复制链接

扫一扫