PASCAL-循环 教程+练习精选.pptVIP

[练2.6]输入1~12，输出代表的月份（英文单词最好，或者是英文各月份的首3字幕，或者用拼音） [练2.7]输入年月，输出这个月有多少天。 [练2.8]将百分制的成绩按规则评价 规则：60以下 D 60~69 C 70~89 B 90~100 A [附2.3]将[练2.8]规则修改如下 规则：60以下 D 60~74 C 75~89 B 90~100 A [附2.4]期末，班长小Q决定将剩余班费x元钱，用于购买若干支钢笔奖励给一些学习好、表现好的同学。已知商店里有3种钢笔，他们的单价为6元、5元、4元。小Q想买尽量多的笔，同时他又不想有剩余钱，请你编程，帮小Q制定买笔的方案。 [练2.7]输入年月，判断这个月有多少天 Program exam27; Var month,days,year:integer; Begin Writeln(Input YearMonth:); Read(year,month); Case month of 1,3,5,7,8,10,12:days:=31; 4,6,9,11:days:=30; 2: If (year mod 400=0) or ((year mod 4=0)and(year mod 1000)) then days:=29 else days:=28; else write(‘input error’); End; If days0 then writeln(Days=,days); End. [练2.8]将百分制的成绩按规则评价 规则：60以下 D 60~69 C 70~89 B 90~100 A Program exam28; Var scores:integer; Begin Writeln(Plese input scores:); Read(scores); Case trunc(scores/10) of 0,1,2,3,4,5:writeln(D); 6:writeln(C); 7,8:writeln(B); 9,10:writeln(You got a A boy,well done!!); End; End. [附2.3]将[练2.8]规则修改如下 规则：60以下 D 60~74 C 75~89 B 90~100 A Program examp23; Var scores:integer; Begin Writeln(Plese input scores:); Read(scores); Case trunc(scores/10) of 1,2,3,4,5:writeln(D); 6:writeln(C); 8:writeln(B); 7: If scores74 then writeln(B) else writeln(C); 9,10:writeln(You got a A boy,well done!!); End; End. Pascal程序设计基础 第三章 循环结构 循环结构做啥用？ 循环 用计算机解题，常会碰到某些操作的重复处理，这就需要循环结构程序设计。 利用循环结构，使得我们能用少而精的程序，来完成大量的重复运算。 For循环 能控制循环次数的循环 (1)?for　循环变量:=初值??To?终值?do?语句；?????(2)?for　循环变量:=初值　downto?终值?do?语句；注意: ①循环变量我们一般使用i，j，k等字母来表示（习 惯），并且控制变量一般规定为顺序类型：整形、字符型等，不能为实型； ②初值低于终值的时候，用to； 初值高于终值的时候，用downto； 例如：for i:=1 to 5 do {定义i为integer类型} writeln(i); 又例如：for i:= ‘z’ downto