信息学竞赛辅导1pascal综合应用.pptVIP

算法改进 效率如何？ 当i=142，则timeout! 怎么办？ 因为输出结果只有两种：0或1 因此，只需确定1的位置即可 算法优化 k:=1; fillchar(a,sizeof(a),0); a[1]:=1; for i:=1 to 141 do begin k:=k+i a[k]:=1; end; for i:=1 to n do begin read(p);writeln(a[p]);end; 程序优化： k:=1; fillchar(a,sizeof(a),0); a[1]:=1; for i:=1 to 141 do begin k:=k+i a[k]:=1; end; 数据输出： for i:=1 to n do begin read(p);writeln(a[p]);end; Var a: array[1..10,1..10] of integer; x,y,xx,yy,s,n: integer; Begin fillchar(a,sizeof ( a ), 0); {将a数组各元素置0} repeat write(Input Number Please!); {提示输入n} readln(n) until odd(n); {保证输入的n为奇数} s:=1