资源描述：
《PASCAL-循环教程练习》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、[练2.6]输入1~12，输出代表的月份（英文单词最好，或者是英文各月份的首3字幕，或者用拼音）[练2.7]输入年月，输出这个月有多少天。[练2.8]将百分制的成绩按规则评价规则：60以下D60~69C70~89B90~100A[附2.3]将[练2.8]规则修改如下规则：60以下D60~74C75~89B90~100A[附2.4]期末，班长小Q决定将剩余班费x元钱，用于购买若干支钢笔奖励给一些学习好、表现好的同学。已知商店里有3种钢笔，他们的单价为6元、5元、4元。小Q想买尽量多的笔，同时他又不想有剩余钱，请你编程，帮小
2、Q制定买笔的方案。[练2.7]输入年月，判断这个月有多少天Programexam27;Varmonth,days,year:integer;BeginWriteln('InputYear&Month:');Read(year,month);Casemonthof1,3,5,7,8,10,12:days:=31;4,6,9,11:days:=30;2:If(yearmod400=0)or((yearmod4=0)and(yearmod100<>0))thendays:=29elsedays:=28;elsewrite(‘i
3、nputerror’);End;Ifdays<>0thenwriteln('Days=',days);End.[练2.8]将百分制的成绩按规则评价规则：60以下D60~69C70~89B90~100AProgramexam28;Varscores:integer;BeginWriteln('Pleseinputscores:');Read(scores);Casetrunc(scores/10)of0,1,2,3,4,5:writeln('D');6:writeln('C');7,8:writeln('B');9,10:
4、writeln('YougotaAboy,welldone!!');End;End.[附2.3]将[练2.8]规则修改如下规则：60以下D60~74C75~89B90~100AProgramexamp23;Varscores:integer;BeginWriteln('Pleseinputscores:');Read(scores);Casetrunc(scores/10)of1,2,3,4,5:writeln('D');6:writeln('C');8:writeln('B');7:Ifscores>74thenwri
5、teln('B')elsewriteln('C');9,10:writeln('YougotaAboy,welldone!!');End;End.Pascal程序设计基础第三章循环结构循环结构做啥用？循环用计算机解题，常会碰到某些操作的重复处理，这就需要循环结构程序设计。利用循环结构，使得我们能用少而精的程序，来完成大量的重复运算。For循环能控制循环次数的循环(1) for循环变量:=初值To终值do语句；(2) for循环变量:=初值downto终值do语句；注意:①循环变量我们一般使用i，j，k等字母来表示（习惯）
6、，并且控制变量一般规定为顺序类型：整形、字符型等，不能为实型；②初值低于终值的时候，用to；初值高于终值的时候，用downto；例如：fori:=1to5do{定义i为integer类型}writeln(i);又例如：fori:=‘z’downto‘a’do{定义i为char类型，字符}writeln(i)[例3.1]输出1~100之间的所有偶数的个数programexp31;vari，s:integer;begins:=0;fori:=1to100do{限制范围}if(imod2=0)thens:=s+1;writel
7、n(s);end.累加器&累乘器[例3.2]求1~100的和Programexp31;vars,i:integer;Begins:=0;fori:=1to100dos:=s+i;write(‘s=’,s);End.[例3.3]求1~100的积Programexp32;vars,i:integer;Begins:=1;fori:=1to100dos:=s*i;write(‘s=’,s);End.阶乘[例3.4]求N！=1*2*3*…*N,这里N不大于10Programexp34;varn,i:integer;{循环变量i}
8、s:longint;{累乘器S}beginwritle(‘entern=’);readln(n);s:=1;{初始化}fori:=2tondos:=s*i；writeln（n,’!=’,s）;End.水仙花数[例3.5]求100~999之间的所有水仙花数。所谓水仙花数，是该数等于它各位数字的立方和。如153=13+5
