T1
题目描述
地图上有N 个城市,一只奶牛要从1 号城市开始依次经过N 个城市,最终到达N 号城市。但是这只奶牛觉得这样太无聊了,所以它决定跳过其中的一个城市(但是不能跳过1 号和N 号城市),使得它从1 号城市开始,到达N 号城市所经过的总距离最小
每一个城市都有一个坐标,从城市(x1, y1) 到城市(x2, y2) 的距离为 |x1 - x2| + |y1 - y2|
输入
第一行一个数N,表示城市个数
接下一行N 行每行两个数x,y,表示每个城市的坐标
输出
一行一个数ans, 使得它从1 号城市开始,跳过某一个城市,到达N 号城市所经过的总距离最小
思路:
水题,套公式,不解析。
代码
r a:array[-10..100011,1..2] of longint;
//x,y:array[-10..100011] of longint;
n,i,s,min,ans:longint;
begin
assign(input,'marathon.in');
assign(output,'marathon.out');
reset(input);
rewrite(output);
read(n);
min:=maxlongint div 3;
for i:=1 to n do
begin
read(a[i,1],a[i,2]);
if i>1 then inc(s,abs(a[i-1,1]-a[i,1])+abs(a[i-1,2]-a[i,2]));
end;
for i:=1 to n do
begin
ans:=s-(abs(a[i,1]-a[i-1,1])+abs(a[i,2]-a[i-1,2]))
-(abs(a[i,1]-a[i+1,1])+abs(a[i,2]-a[i+1,2]))
+(abs(a[i-1,1]-a[i+1,1])+abs(a[i-1,2]-a[i+1,2]));
if ans<min then min:=ans;
end;
write(min);
close(input);
close(output);
end.
T2
题目描述
给出n 个数a1..an,求两个数相加的绝对值的最小值
即求| ai + aj | (i 不等于j) 的最小值
输入
第一行一个数n
接下一行n 个数a1..an
输出
一行一个数ans, 两个数相加的绝对值的最小值
思路:
用绝对值为关键字排序,比较相邻两个的绝对值,如果a[i]+a[i-1]<ans then ans=a[i]+a[i-1];
代码
uses math;
var a:array[-10..1000011] of longint;
ans,i,n:longint;
procedure qsort(l,r:longint);
var i,j,mid:longint;
begin
if l>=r then exit;
i:=l; j:=r; mid:=abs(a[(i+j) div 2]);
repeat
while abs(a[i])<mid do inc(i);
while abs(a[j])>mid do dec(j);
if i<=j then
begin
a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0];
//b[0]:=b[i]; b[i]:=b[j]; b[j]:=b[0];
inc(i); dec(j);
end;
until i>=j;
qsort(l,j);
qsort(i,r);
end;
begin
assign(input,'sum.in');
assign(output,'sum.out');
reset(input);
rewrite(output);
read(n);
for i:=1 to n do read(a[i]);
qsort(1,n);
ans:=maxlongint div 3;
for i:=1 to n-1 do
begin
ans:=min(ans,abs(a[i]+a[i+1]));
end;
write(ans);
close(input);
close(output);
end.
T3
题目描述
给出n 个点,每个点都有一个坐标xi,这些点中一些点是白点,另外的是黑点,求满足以下两个条件的最长的线段的长度
条件一:线段的左右端点都必须在给出的n 个点中
条件二:给出的n 个点中,被这条线段所包含的点中黑点个数必须等于白点个数(包括左右端点)
输入
第1 行:一个整数n
第2..n+1 行:每行一个整数xi,表示点的坐标,和一个字符(’G’ 表示黑点,’H’ 表示白点),中间用空格隔开,
输出
一行一个数,最长的线段的长度
思路:
前缀和。
当你看到前缀和,你一定会想,这不是一个O(n^2)的做法吗?会TLE啊!
那我们怎么把它优化成O(n)呢?
不难发现,只要前缀和为0则可以更新答案,但也只能更新原点到当前点的答案
那怎样更新中间的呢?
其实只要删掉一段,使得当前点为0就行啦。
进一步推理:统计前缀和最开始出现的地方就可以啦。
代码:
uses math;
var a,b:array[-10..100011] of longint;
c:array[-100011..100011] of longint;
n,ans:longint;
procedure qsort(l,r:longint);
var i,j,mid:longint;
begin
if l>=r then exit;
i:=l; j:=r; mid:=a[(i+j) div 2];
repeat
while a[i]<mid do inc(i);
while a[j]>mid do dec(j);
if i<=j then
begin
a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0];
b[0]:=b[i]; b[i]:=b[j]; b[j]:=b[0];
c[0]:=c[i]; c[i]:=c[j]; c[j]:=c[0];
inc(i); dec(j);
end;
until i>=j;
qsort(l,j);
qsort(i,r);
end;
procedure init;
var i,p,code:longint;
st,c1:string;
begin
readln(n);
for i:=1 to n do
begin
readln(st);
p:=pos(' ',st);
c1:=copy(st,p+1,1);
val(copy(st,1,p-1),a[i],code);
case copy(st,p+1,1) of
'G':inc(b[i]);
'H':dec(b[i]);
end;
end;
qsort(1,n);
for i:=2 to n do
begin
b[i]:=b[i-1]+b[i];
end;
end;
procedure main;
var i,j:longint;
begin
a[0]:=0;
b[0]:=0;
for i:=1 to n do
begin
//if b[j]-b[i-1]=0 then ans:=max(ans,a[j]-a[i]);
if c[b[i]]>0 then ans:=max(ans,a[i]-a[c[b[i]]+1]) else c[b[i]]:=i;
end;
end;
begin
assign(input,'fairphoto.in');
assign(output,'fairphoto.out');
reset(input);
rewrite(output);
init;
main;
write(ans);
close(input);
close(output);
end.
T4
题目描述
农民约翰已经购买了订好Good Hooves keeping 杂志为他的奶牛,使他们有足够的材料看。不幸的是,最新一期载有关于如何煮完美的牛排的文章,而FJ 宁可他的奶牛没有看到一个相当不雅的文章(显然,这本杂志是需要更好的编辑监督的)。
FJ 已采取所有文字从该杂志在10^6 个字符来创建长度字符串s。从此,他想删除一个子串T( 100个字符)来审查不当内容。要做到这一点,农民约翰找到S 中的出现的T 并将其删除。然后,他再次重复这个过程,删除第一次出现的T,一直持续到没有更多出现T 的S. 注意,删除一次出现的可能会创建一个新出现的T 是以前不存在的。
请帮助审查完毕后,FJ 确定S 的最终内容。
输入
第一行将包含S
第二行包含T,T 的长度最多是S 的长度,S 和T 的所有字符位小写字母(范围a..z)
输出
全部删除完成后的S。保证使得S 在删除过程中不会成为空
思路:
栈
如果栈的长度>length(k)那么判断栈顶是否与k相同,如果相同则出栈
代码:
var st,s:ansistring;
st1:array[0..1000011] of char;
t,i,j,l:longint;
b:boolean;
begin
assign(input,'censor.in');
assign(output,'censor.out');
reset(input);
rewrite(output);
readln(st);
readln(s);
t:=length(s);
for i:=1 to length(st) do
begin
inc(l); st1[l]:=st[i];
if l>=t then
begin
b:=true;
for j:=1 to t do if st1[l-t+j]<>s[j] then
begin
b:=false;
break;
end;
if b then
begin
l:=l-t;
//delete(st,l,3);
end;
end;
end;
for i:=1 to l do write(st1[i]);
close(input);
close(output);
end.