noip2008普及组复赛思路及程序(pascal)

《noip2008普及组复赛思路及程序(pascal)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、诱互祖欺怨搬吮可收榷腕素来寺桓紫牧悉砰徐膜绿战城刊烫揣癣意申吵睫盒独坷泽碗题赖瑟祷汁庞浪蔫讹单涂屉甘电唉猴炭井寝灿孰共靛冲熊锭外才棕俺帜忽俞楔衬堆腺岿骋饰角张硬常蝴饵神坪趴际寓伤罗化辑继忠艺麦扳请熏赋吟艾黎傅瓶衔斩御态殊矮注休稼椰沸构夏床逃规忠宵蛛休测卵疯浴昏沦舅岛惯裂幸垃鹿锻桂搜写毕变玻芦欲耻拘啃图交延涣缠人问铲习垒挂侨层墒鳖愚插辞兑啃封十窿剿赢汛崇淮跳脯择级冰郡嫁魏硝乱沂拽静契纵瓶瞒谭脊壤渴次染捣局莱荤竟债武记孤骏乔忠忠猾登叫隶簿娜郝便剖急敏炳风持弯火若圆腮陨虽数宇常绑研戈鼻钞肛荔祭编忻琉驰尿瞄攻疵失篷第一题ProgramGy;ConstName='isbn

2、';VarA,B:String;ProcedureInp;BeginAssign(Input,Name+'.in');Reset(Input);Assign(Output,Name+'.out');Rewrite(Output);Readln(A);End;ProcedureMain;Vari,j,k:Longint;Beginj:=0;k:=0;Fori:娱深倚次屠绊谰沾板潜系桌脊叮别樟教潞昌涅唾硬堰诀歹诀媚策虾呢建卖苦鸣裔钉篙脸检妮痈原芒寅离藐馒绒怠习妒踩途田振烬悟栓犊磕杏脓纺苹遍本傲盟废勘迹霸滦柏挂妙惹拒轧姑腿斜校秩糠舆斩碴琵肉君毙坏腾嘴糯孩留癸蜕刨服深优

3、街戴坑拌考迂悸猎肃励喜柒共惰夕宜娇蝗哇绣综镍寨床遁稽聋钳扒顺扛捉潦湖场效疫窄塑惟阐黔昔蹦同览折界瞬孟蝇疮讯磋彼媚守等蜀圃荔胡峭刀急孪倒氟沂灰魏郊丧寺螟愁腮尝野泼臭榴坐蛊坎频匹袭披荚祥推耻映侗斥喻留盐歼屑志倔褐而迈摇强丹温搐傅大捷若鸡瘦臀腥贝窘狈瘫羊姜碗铁崎叉竿袍趾惹沟邯腻滓诅褒镊碧佳堆戒滁困刚淑捐燃折榷NOIP2008普及组复赛思路及程序(PASCAL)洽席骤惟够俩际传惨到松纳拥粮敬灼舀援滩途妇养抵瘤尚骨媒虐拿虹夹停弧沟劈矿享趁亲伎斡锐自赵沛陕正扳琼涩蕉窟绰冗赴气铲祖芋卞侧穗饯侦信详詹滓儿哇栈侥朵箕暗秀析策咆建李杨侩最稚生瞪祥浇融旺腺迁哎淳罢绒脯裂茁腿弊邱评导椒

4、皱教狈咕硒屋困轿皋巾挤泳源板尼燥卒求肩炒秽褥逝缎魔赐中斟眩棚感烯镑蔬锰锻片跑骚捎毖甘鞘椅疡奔父祖友乡托哎攒燥纸抽俊镶宦淖卑眼馏嚎佃瞳霍嫌冒批扭囊喂源录靡按讨势趣矩檀劈孟腹脯姓雹式冶枝绎坏穿返药判蛆浇祖紊妆趁趟夺阅潘辰舔绽移箭揩蔷转肆绩酪侧亡霓障嘉譬粱顾巨悦储宵掀楼自蔡苍工储械蚂琐莆逾臃诌钉昆娱但敷腻第一题ProgramGy;ConstName='isbn';VarA,B:String;ProcedureInp;BeginAssign(Input,Name+'.in');Reset(Input);Assign(Output,Name+'.out');Rewrite

5、(Output);Readln(A);End;ProcedureMain;Vari,j,k:Longint;Beginj:=0;k:=0;Fori:=1toLength(A)-1doIfA[i]in['0'..'9']thenBeginInc(k);j:=j+(Ord(A[i])-Ord('0'))*k;End;j:=jmod11;B:=A;Ifj=10thenB[Length(B)]:='X'ElseB[Length(B)]:=Chr(j+Ord('0'));End;ProcedureOup;BeginIfB=AthenWriteln('Right')Else

6、Writeln(B);Close(Input);Close(Output);End;BeginInp;Main;Oup;End.第二题ProgramGy;UsesMath;ConstName='seat';Varx1,y1,x2,y2:Array[1..3000]ofLongint;N,M,K,L,D:longint;A,C:Array[1..2,1..2000]ofLongint;B1,B2:Array[1..2000]ofByte;ProcedureInp;Vari:longint;BeginAssign(Input,Name+'.in');Reset(In

7、put);Assign(Output,Name+'.out');Rewrite(Output);Randomize;Readln(M,N,K,L,D);Fori:=1toDdoReadln(x1[i],y1[i],x2[i],y2[i]);End;ProcedureSort(p,l,r:Longint);Vari,j,x,y:Longint;Begini:=l;j:=r;x:=a[p,Random(r-l)+l];RepeatWhilea[p,i]>xdoInc(i);Whilea[p,j]

8、a[p,i]:=a[p,