PASCAL-循环教程+练习

[练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想买尽量多的笔，同时他又不想有剩余钱，请你编程，帮小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(yearmod1000))thendays:=29elsedays:=28;elsewrite(‘inputerror’);End;Ifdays0thenwriteln('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: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:Ifscores74thenwriteln('B')elsewriteln('C');9,10:writeln('YougotaAboy,welldone!!');End;End.Pascal程序设计基础第三章循环结构循环结构做啥用？•循环用计算机解题，常会碰到某些操作的重复处理，这就需要循环结构程序设计。利用循环结构，使得我们能用少而精的程序，来完成大量的重复运算。For循环能控制循环次数的循环(1)for循环变量:=初值To终值do语句；(2)for循环变量:=初值downto终值do语句；注意:①循环变量我们一般使用i，j，k等字母来表示（习惯），并且控制变量一般规定为顺序类型：整形、字符型等，不能为实型；②初值低于终值的时候，用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;writeln(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}s:longint;{累乘器S}beginwritle(‘entern=’);readln(n);s:=1;{初始化}fori:=2tondos:=s*i；writeln（n,’!=’,s）;End.水仙花数[例3.5]求100~999之间的所有水仙花数。所谓水仙花数，是该数等于它各位数字的立方和。如153=13+53+33Programexp35;varI,j,k:integer;{循环变量i}beginfori:=1to9doforj:=0to9dofork:=0to9doifi*100+j*10+k=i*i*i+j*j*j+k*k*kthenwriteln(i*100+j*10+k);End.[例3.5]求100~999之间的所有水仙花数。所谓水仙花数，是该数等于它各位数字的立方和。如153=13+53+33Programexp35se;Varm,a,b,c:integer;BeginForm:=100to999doBegina:=mdiv100;b:=(m-a*100)div10;c:=mmod10;Ifa*a*a+b*b*b+c*c*c=mthenwriteln(m);End;Readln;End.第三章第一次练习[练3.1]输出100以内所有被2，3，5整除都余1的数。[练3.2]从键盘读入10个数，求他们的和、积和平均值。[练3.3]按正、反两种顺序输出26个大写英文字母。[练3.4]鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，百钱买百鸡，问翁、母、雏各几何？[练3.5]将一张100的钞票换成等值的10元，5元，2元，1元的小钞票，要求每次换成40张，每种至少一张，输出有几种所有可能的换法，分别是什么[练3.6]把整数3025从中剪开分为30和25两个数，此时再将这两数之和平方，(30+25)2=3025计算结果又等于原数。求所有符合这样条件的四位数。[附3.1]输入10个数，输出其中最大和最小的数。[附3.2]求1~100之间的素数（质数）。[附3.3]有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第3个月后，每个月又生一对兔子，假设兔子都不死，问：第20个月后共有多少对兔子。