0710信息学第二轮试卷程序代码.docVIP

再次感谢高一4班所有出题成员：陈锦耀、林莺巧、许贝贝、潘汉，这次出题总体感觉题型新颖、来源于生活，质量极高。希望能将好传统延续下去，下面是我的程序代码，仅供参考！ 陈锦耀 no2_1 no2_2 no2_3 no2_4 林莺巧 no2_7 no2_8 no2_9 许贝贝 no2_5 no2_6 潘汉 no2_10 no2_11 no2_12 program no2_1;【参考程序】 var i,j1,j2,k:integer; begin for i:=1 to 10 do begin k:=2*i-1; write(:30-i*3); for j1:=1 to k do if odd(j1) then write(j1:3); for j2:=k-2 downto 1 do if odd(j2) then write(j2:3); writeln; end; end. program no2_2; 【参考程序】 var ch,t:char; begin for ch:=a to z do begin write(:123-ord(ch)); if odd(ord(ch)) then for t:=a to ch do write(t:2)