17.10.21B组题解

今天一大堆普及组都跑到前面去了，瞬间感觉B组全变成了大佬，自己好蒟。。。

T1

吐槽下数据和时限，真水，考试递归都过了。
某些大佬貌似用栈，可我却只想到了递归分解括号，不过还好，依然稳稳卡过。，每次分解括号，奇数层and，偶数层or，最后输出树根就好了。
莫名标：

vars:ansistring;t:longint;
function dg(l,r,d:longint):boolean;
vari,k,la,g:longint;ss:boolean;
beginif l=r thenbeginif s[l]='T' thenexit(true)elseexit(false);end;k:=0;for i:=l+1 to r-1 dobeginif s[i]='(' theninc(k);if s[i]=')' thendec(k);if k=0 thenbreak;end;ss:=dg(l+1,i,d+1);if (d mod 2=1)and(ss=false) thenexit(false);if (d mod 2=0)and(ss=true) thenexit(true);la:=i;g:=i;for i:=la+1 to r-1 dobeginif s[i]='(' theninc(k);if s[i]=')' thendec(k);if k=0 thenbeginif d mod 2=1 thenss:=ss and dg(g+1,i,d+1)elsess:=ss or dg(g+1,i,d+1);if (d mod 2=1)and(ss=false) thenexit(false);if (d mod 2=0)and(ss=true) thenexit(true);g:=i;end;end;exit(ss);
end;
beginwhile not eof dobeginreadln(s);inc(t);write(t,'. ');if dg(1,length(s),1)=true thenwriteln('true')elsewriteln('false');end;
end.

T2

考试唯一没有想法的题。其实水炸了，每次宽搜，不同情况判断就好了，就是手推情况有点麻烦。
半标（宽搜过程）：

procedure dfs(xx,yy:longint);
vari,x,y:longint;
beginfor i:=1 to 8 dobeginx:=xx+h[i,1];y:=yy+h[i,2];if (x<0)or(y<0)or(x>n*2)or(y>m*2)or(bz[x,y]=true)or((x<xx)and(y<yy)and(b[xx-1,yy-1]>0))or((x<xx)and(y>yy)and(b[xx-1,yy]>0))or((x>xx)and(y<yy)and(b[xx,yy-1]>0))or((x>xx)and(y>yy)and(b[xx,yy]>0)) then continue;inc(z);s[z,1]:=x;s[z,2]:=y;bz[x,y]:=true;dfs(x,y);end;
end;

T3

着实让我介（尬）了一回，考试信心满满，码完样例过了就没有检查，导致手贱打错一个变量，以及ma（答案数组）初值赋错，挂掉85分。
真不知为什么要用什么栈和线段树，一个链表，什么都是O（1），藐视数据。
用链表的标：

uses math;
varq,i,tot,t,n,x,tt:longint;d,sum,ma,last,next,nowt:array[0..1000000]of longint;ch:char;
beginfillchar(ma,sizeof(ma),128);readln(q);next[0]:=q+1;for i:=1 to q dobeginread(ch);if ch='I' thenbeginreadln(x);inc(t);d[t]:=x;sum[t]:=sum[tot]+x;nowt[t]:=nowt[tot]+1;ma[nowt[t]]:=max(ma[nowt[tot]],sum[t]);last[next[tot]]:=t;next[t]:=next[tot];next[tot]:=t;last[t]:=tot;inc(n);tot:=t;continue;end;if ch='D' thenbeginreadln;last[next[tot]]:=last[tot];next[last[tot]]:=next[tot];d[tot]:=0;sum[tot]:=0;dec(n);tot:=last[tot];continue;end;if ch='L' thenbeginreadln;tot:=last[tot];continue;end;if ch='R' thenbeginreadln;if nowt[tot]<n thenbegintt:=tot;tot:=next[tot];sum[tot]:=sum[tt]+d[tot];nowt[tot]:=nowt[tt]+1;ma[nowt[tot]]:=max(ma[nowt[tt]],sum[tot]);end;continue;end;readln(x);writeln(ma[x]);end;
end.

离复赛仅有两三个星期了，训练的时间不多了，要抓紧时间，多刷题，多总结，争取复赛取得好成绩。

17.10.21B组题解相关推荐

2020第十一届蓝桥杯10月份省赛真题（JavaB组题解）
2020第十一届蓝桥杯10月份省赛真题(JavaB组题解) 试题 A:门牌制作试题 B:寻找 2020 试题 C:蛇形填数试题 D: 七段码试题 E:排序试题 F: 成绩分析试题 G: 单词 ...
2019第十届蓝桥杯C++B组题解（赛后重写的，不确保答案正确性，仅供参考）
先说一下这次的感受吧,我们考场比较乱,开始比赛了,还有的电脑有故障,(向这些人发出同情),第一次认真参加比赛,真正比赛的时候感觉没有那么正式,很乱,各种小问题,(例如博主就没找到题目在哪里,找到后又不 ...
第七届蓝桥杯（软件类）C++决赛A组题解
文章目录题目链接 A组真题题目结构第一题随意组合第二题拼棋盘第三题打靶第四题路径之谜第五题碱基第六题圆圈舞(待补) 题目链接 A组真题题目结构题目类型第一题随意组 ...
2020第十一届蓝桥杯7月份省赛真题（JavaB组题解）
2020第十一届蓝桥杯7月份省赛真题(JavaB组题解) 试题 A: 解密试题 B: 纪念日试题 C: 合并检测试题 D: 分配口罩试题 E: 斐波那契数列最大公约数试题 F: 分类计数试 ...
第九届蓝桥杯省赛JAVA语言 C组题解_题7 缩位求和
JAVA语言 C组题解_题7 缩位求和题目解题思路题目标题:缩位求和在电子计算机普及以前,人们经常用一个粗略的方法来验算四则运算是否正确. 比如:248 * 15 = 3720 把乘数和被乘 ...
6.python解答蓝桥杯17年A组真题迷宫
6.python解答蓝桥杯17年A组真题迷宫标题:迷宫(填空题) X星球的一处迷宫游乐场建在某个小山坡上. 它是由10x10相互连通的小房间组成的. 房间的地板上写着一个很大的字母. 我们假设玩家 ...
第十一届蓝桥杯大赛软件类决赛 C++ B组题解
声明:本人水平有限,只是个人的见解,如果有更好的答案,欢迎评论区或者私信我,我会注明您的题解来源,谢谢支持! 本文是2020年11月14日的蓝桥杯全国总决赛软件类 C B组题解本文原创首发CSD ...
第十四届蓝桥杯（Web 应用开发）模拟赛 3 期-职业院校组题解
第十四届蓝桥杯(Web 应用开发)模拟赛 3 期-职业院校组题解友情链接第十四届蓝桥杯(Web 应用开发)模拟赛 3 期-大学组第十四届蓝桥杯(Web 应用开发)模拟赛 3 期-职业院校组第十 ...
如何导出Fortify 17.10扫描报告
使用Fortify对项目源代码进行扫描后,可以把扫描的结果通过报告的形式导出,报告可以保存为pdf格式. 本文介绍一下导出Fortify扫描报告的具体操作步骤. [环境准备] 系统版本:win10版本 ...

17.10.21B组题解

17.10.21B组题解

T1

T2

T3

17.10.21B组题解相关推荐

最新文章

热门文章