第三届奥林匹克分区联赛初赛试题高中组basic语言

1、第三青少年信息学（计算机分区联赛初赛（高中组（BASIC 语竞赛用时：2 小时 WPS 是属类;FOXBASE 是属类令“CRETEGZB，第三青少年信息学（计算机分区联赛初赛（高中组（BASIC 语竞赛用时：2 小时 WPS 是属类;FOXBASE 是属类令“CRETEGZB，文件 在MSDOS 试问：C:TIME G BT 设数组A10.100,20.100 以行优先的方式顺 210；第二个字节是区位码的位码加。 DCABA 能否从A出发，找出去每个城市且只去一次的通路来？EF X/Y 写为/XY 和后缀 X/Y XY/的表达形式。（P+Q）*（R-S）*+PQ-RS 或 PQRSA- X

2、/Y 写为/XY 和后缀 X/Y XY/的表达形式。（P+Q）*（R-S）*+PQ-RS 或 PQRSA- (a) 1H1这个运动用字母a1hah2332) 1Lb 3Lb2312 12hh2331最简单的运算表达式（借助于a,b与乘法运算131b231223bbb可以表示为（bb）-1（1a-（a）- (3)(aa)a)131b231223bbb可以表示为（bb）-1（1a-（a）- (3)(aa)a)-1(4)b-1例如：12 有因子2，2，3，4，6，所以可表示为： 12=223=43=26给出任一个正整数 N，求出它所有的因子乘积的表达式（交换律得出的不同式子算同读入一个整数N，首先求

3、出它的所有的因子以及每个因子可能的次数。例如：整数48：因子次数1110DIM20INPUT30FORi:=1TO20:a(i,1)=0:NEXT40 :50 60FORi=2TOn-70s=0:80IFm=0OR(m/i)THEN90 (m/i): :GOTO100 IF then 120110 : a(j,2)=120NEXT130FORi=0TOj:b(i)=0:NEXT140IFb(0)=0THEN150 160IFk=0THEN165 if thenk=k-1:GOTO160 170 b(k)=b(k)+1180FOR:bL=0:NEXTL190 200FORi=1TO210IFb(

4、i)=0THEN180FOR:bL=0:NEXTL190 200FORi=1TO210IFb(i)=0THEN215FORL=1TOb(i) 220NEXT225IFsnTHEN230FORi=1TOj:234 240FORi=1TO250IFc(i)=0THEN255P=P*A(I,1):IFP=NTHEN 260 a(i,1);”*”;:C(I)=C(I)-1:GOTO290NEXT295 300GOTO310 形必须有一条边（仅能有一条边）与凸多边形的边相重合，例如：下面的5 边形中，可5ABECD2 个坐标之后，找出一个面积最大的内接三10 20DIM30FORi=1TOn:INPUT

5、g(i,1),g(i,2):NEXT40FORi=1TOn-50 :NEXTi 60 smax=070FORi=1TO80FOR90s1=SQR(g(i,1)-(g(i+1,1)*(g(i,1)-(g(i+1,1)+(g(i,2)-(g(i+1,2)*(g(i,2)-100s2=SQR(g(i,1)-(g(j,1)*(g(i,1)-(g(j,1)+(g(i,2)-(g(j,2)*(g(i,2)-110s3=SQR(g(i+1,1)-(g(j,1)*(g(i+1,1)-(g(j,1)+(g(i+1,2)-(g(j,2)*(g(i+1,2)-120 p=90s1=SQR(g(i,1)-(g(i+1

6、,1)*(g(i,1)-(g(i+1,1)+(g(i,2)-(g(i+1,2)*(g(i,2)-100s2=SQR(g(i,1)-(g(j,1)*(g(i,1)-(g(j,1)+(g(i,2)-(g(j,2)*(g(i,2)-110s3=SQR(g(i+1,1)-(g(j,1)*(g(i+1,1)-(g(j,1)+(g(i+1,2)-(g(j,2)*(g(i+1,2)-120 p= 140 IF THEN 170150smax=s:x1=g(i,1):y1=g(i,2) 160 x2=g(i+1,1):y2=g(i+1,2)165 170NEXT180NEXT190 PRsmax,x1,y1,

7、x2,y2,x3,y3 200 END 212的长方形：（2的22 2 4 的长方形（4的长方形（包括正方形）8 82163 yy或yxxxyx当给出n之后，可能拼接的次数r满足：2r=N2r+1（1的拼法10DIM20INPUTyy或yxxxyx当给出n之后，可能拼接的次数r满足：2r=NjTHENIF (gw1=g(jeg,1)AND gw2=g(jeg,2) OR(gw1=g(jeg,2)ANDgw2=g(jeg,1) THEN eg=0:GOTO 173GOTO177IFeg=0THEN 178 j=j+1:g(j,1)=gw1: :g(j,3)=gw3 180 NEXT i1185 NEXT200FO