NOIP初赛阅读解题方法解说.ppt

NOIP初赛阅读程序解题方法;解题步骤;几大方法;一、基础题;关键语句;注意事项;program s401;???????? var p,q:array[0..5] of integer;??????????? i,x,y:integer;???????? begin??????????? y:=20;??????????? for i:=0 to 4 do read(p);??????????? readln;??????????? q[0]:=(p[0]+p[1])+(p[2]+p[3]+p[4]) div 7;??????????? q[1]:=p[0]+p[1] div ((p[2]+p[3]) div p[4]);??????????? q[2]:=p[0]*p[1] div p[2];??????????? q[3]:=q[0]*q[1];??????????? q[4]:=q[1]+q[2]+q[3];??????????? x:=(q[0]+q[4]+2)-p[(q[3]+3) mod 4];??????????? If (x 10) Then????????????? y:=y+(q[1]*100-q[3]) div (p[p[4] mod 3]*5)??????????? Else????????????? y:=y+20+(q[2]*100-q[3]) div (p[p[4] mod 3]*5);??????????? writeln(x,,,y);???????? end.输入：6 6 5 5 3输出：??????????????????????????? ;Program ex401; var u,v:array[0..3] of integer; i,x,y:integer; begin x:=10; y:=10; for i:=0 to 3 do read(u[i]); v[0]:=(u[0]+u[1]+u[2]+u[3]) div 7; v[1]:=u[0] div ((u[1]-u[2]) div u[3]); v[2]:=u[0]*u[1] div u[2]*u[3]; v[3]:=v[0]*v[1]; x:=(v[0]+v[1]+2)-u[(v[3]+3) mod 4]; if (x10) then y:=y+(v[2]*100-v[3]) div (u[u[0] mod 3]*5) else y:=y+20+(v[2]*100-v[3]) div (u[v[0] mod 3]*5); writeln (x,,,y); end. {*注：本例中，给定的输入数据可以避免分母为?0 或下标越界。??} 输入：9 3 9 4 输出：?????????????? ;函数一：算术函数;函数二：类型转换函数 ;函数三：顺序函数与判断函数;函数四：字符串函数;字符串过程;特殊运算;看程序写结果(NOIP2007);集合运算;NOIP2004普及组;二、动态模拟;program t1； var n，k，s：longint； begin readln(n); k:=0； s:=1； while s = n do begin k:=k+1; n:=n-s; s:=s+6*k end; writeln (k) end. 输入:100 输出:______ ;解题;VAR P，Q，S，T：INTEGER； 　BEGIN 　　READLN(P)； 　　FOR Q:=P+1 TO 2*P DO 　　BEGIN 　　　T:=0；S:=(P*Q)MOD(Q-P)； 　　　IF S=0 THEN BEGIN T:=P+Q+(P*Q)DIV(Q-P)；WRITE(T：4)； END； 　　 END； 　　END. ;解题;Program ex402;? const? m:array[0..4] of integer=(2,3,5,7,13);? var i,j:integer; t: longint; begin for i:=0 to 4 do begin t:=1; for j:=1 to m[i]-1 do ?t:=t*2; t:=(t*2-1)*t; write (t, ); end; writeln; end. 输出:_____;《全国青少年信息学奥林匹克联赛模拟训练试卷精选》试卷4;外循环