万卷网

NOIP普及组

万卷网> 考级竞赛> 信息学奥赛> NOIP普及组

NOIP普及组

更新时间： 2023-08-26 20:36:18 试题数量： 535

我的练习

顺序练习

随机练习

章节练习

错题练习

题库预览

简答题 program Program2；　 var　　a，t：string；　　i，j：integer；　 begin　　a：=`morning`；　　j：= l；　　 for i：=2 to 7 do　　　 if (a[j]<a[i])then　　　　　j：= i；　　 j：= j-1；　　 for i：=1 to j do　　　 write (a[i])；　　end．输出：　　　　

简答题 program Program3；　 Var　　 a，b，c，d，sum：longint；　 begin　　 read (a，b，c，d)；　　 a：=a mod 23：　　 b：=b mod 28；　　 c：=c mod 33；　　 sum：=a*5544+b* 14421+c*1288-d;　　 sum：=sum+21252;　　 sum：=sum mod 21252;　　 if (sum=0)then　　　　sum：=21252;　　 writeln(sum)；　 end．输入：283 102 23 320 输出：　

简答题 program Program1；　 var　　 a，x，y，okl，ok2：integer；　 begin　　 a ：=100：　　 x：=l0；　　 y：=20；　　 okl：=5：　　 ok2：=0；　　 if ((x>y) or ((y<>20) and (okl=0)) and (ok2<>0)) then　　　 a：=1　　 else if ((okl<>0) and (ok2=、0)) then　　　　　 a：=-1　　　　 else　　　　　 a：=0；　　 writeln(a)；　 end．输出：　　　　

简答题 program program4；　 var　 a： array[0．．5] of integer；　 sum，n，max，i，j，k：integer；　 cover：array[0．．22000]of boolean；　 begin　　 read (a[5]，a[4]，a[3]，a[2]，a[1]，a[0])；　　 if ((a[5]=0) and (a[3]=0) and (a[1]=0)) then　　 begin　　　a[5]：=a[4]；a[4]：=a[2]； a[3]：=a[0]； a[2]：=0 a[0]：=0；　　 end：　　 for i：=0 to 5 do　　 if (a[i]>10) then a[i]：=10+(a[i] mod 2)；　　 sum：=0：　　 for i：=0 to 5 do sum：=sum+a[i]*(6-i)；　　 if ((sum mod 2) <>0) then　　begin　　　　　　　　　　　　　　　　　　writeln(`Can``t be divided.`)；　　　　　　　　　　　　　　　　　　Exit;　　　　　　　　　　　　　　　　End;　　 sum：=sum div 2； max：=0； cover[0]：=True；　　 for i：=1 to sum*2 do cover[i]：=False；　　 for i：=0 to 5 do　　 begin　　　 j：=0；　　　 while (j<a[i])do　　　　 begin　　　　　 for k：=max downto 0 do　　　　　　 begin if (cover[k]) then cover[k+6-i]：=True；end；　　　　　max：=max+6-i： j：=j+1；　　　　 end;　　　end;　　　if (cover[sum]) then writeln (`Can be divided.`)　　　　　　　　　　　else writeln(`can``t be divided.`)；　 end．输入：4 7 9 20 56 48 输入：1000 7 101 20 55 1 输入：2000 5 l 1 0 0输出：　　　　　　　输出：　　　　　　　　　输出：　　　　　　　　

单选题 IP地址是一个( )位二进制码。

简答题无向图G有16条边，有3个4度顶点、4个3度顶点，其余顶点的度均小于3，则G至少有（）个顶点。

简答题现在市场上有一款汽车A很热销，售价是2万美元。汽车A每加仑汽油可以行驶20英里。普通汽车每年大约行驶12000英里。油价是每加仑1美元。不久我公司就要推出新款节油汽车B，汽车B每加仑汽油可以行驶30英里。现在我们要为B制定价格(它的价格略高于A)：我们预计如果用户能够在两年内通过节省油钱把B高出A的价钱弥补回来，则他们就会购买B，否则就不会购买B。那么B的最高价格应为（）万美元。

简答题一元二次方程题目描述：　　　　方程ax＾2+bx+c=0，要求给出它的实数解．　　输入：　　　　三个实数：a，b，c，是方程的三个系数(a≠0)．　　输出：　　　　如果无实数解，则输出"No solution"；　　　　如果有两个相等的实数解，则输出其中一个，四舍五入到小数点后面3位；　　　　如果有两个不等的实数解，则解与解之间用逗号隔开，同样要四舍五入到小数点后3位。　　输入样例：　　　　　　l 2 1 　　输出样例：　　　　　　-1.000 　　程序：　　　　program Program41；　　　　var　　　　　a，b，c，m：real；　　　　begin　　　　　read (a，b，c)；　　　　　m：=b*b -4*a*c；　　　　　if ( ① )then　　　　　　begin　　　　　　　write ( ② ：0：3)；　　　　　　　write( ` , ` );　　　　　　　write ((-1*b-sqrt(m))／(2*a)：0： ③ )；　　　　　　end　　　　　　else if ( ④ )then　　　　　　　write( ⑤ )　　　　　　　else begin　　　　　　　　　　write (`No solution`)；　　　　　　　　　 end　　　　end．

简答题翻硬币题目描述：　　一摞硬币共有m枚，每一枚都是正面朝上。取下最上面的一枚硬币，将它翻面后放回原处。然后取下最上面的2枚硬币，将他们一起翻面后再放回原处。再取3枚，取4枚……直至m枚。然后再从这摞硬币最上面的一枚开始，重复刚才的做法。这样一直做下去，直到这摞硬币中的每一枚又都是正面朝上为止。例如，m为1时，翻两次即可。m为2时，翻3次即可；m为3时，翻9次即可；m为4时，翻11次即可；m为5时，翻24次即可；…；m为30时，翻899次即可；… 输入：　　仅有的一个数字是这摞硬币的枚数m，0<m<1000。　　输出：　　为了使这摞硬币中的每一枚又都是正面朝上所必需翻的次数。　　输入样例：　　　　　　30 　　输出样例：　　　　　　899 　　程序：　　　　program Programl；　　　　var m：integer；　　　　　function solve (m：integer)：integer；　　　　　vat i，t，d：integer；　　　　　　　flag：boolean;　　　　　begin　　　　　　if (m=1)then　　　　　　　so1ve：= ① 　　　　　　else begin　　　　　　　　　d：=2*m+1；　　　　　　　　　t：= 2;　　　　　　　　　i：= 1;　　　　　　　　　flag：=False；　　　　　　　　　repeat　　　　　　　　　　if (t=1)then　　　　　　　　　　　begin　　　　　　　　　　　　solve：= ② 　　　　　　　　　　　　flag：=True；　　　　　　　　　　　end　　　　　　　　　　else if ( ③ )then　　　　　　　　　　　　　　begin　　　　　　　　　　　　　　　solve：=i*m-1；　　　　　　　　　　　　　　　flag：=True；　　　　　　　　　　　　　　end　　　　　　　　　　　　　else　　　　　　　　　　　　　　t：= ④ ；　　　　　　　　　　i：=i+1；　　　　　　　　　until flag；　　　　　　　　end　　　　　　end;　　　　begin　　　　　read (m);　　　　　if ((m＞0) and (m＜1000)) then　　　　　　writeln ( ⑤ );　　　　end.

单选题 WORD 是一种( )

单选题计算机软件保护法是用来保护软件( )的。

单选题在树型目录结构中，不允许两个文件名相同主要指的是( )

单选题下面关于算法的错误说法是( )

单选题解释程序的功能是( )

单选题在计算机内部，一切信息存取、处理和传递的形式是( )