信息学初级班第9课.doc

信息学初级班第九课一、复习，回顾1、循环while语句2、函数sqrt、trunc的应用3、6个关键词：while; odd; break; halt; sqrt; trunc4、作业讲解（1）1029题目描述求两个自然数M和N的最大公约数(M，N都在长整型范围内）输入输入一行，包括两个整数.输出输出只有一行（这意味着末尾有一个回车符号），包括1个整数。样例输入45 60样例输出15var a,b,c:longint;begin read(a,b); if ab then begin c:=a; a:=b; b:=c; end; while a mod b0 do begin c:=a mod b; a:=b; b:=c; end; writeln(b);end.（2）1028题目描述求两个整数M和N的最小公倍数。输入输入一行，包括两个整数.输出输出只有一行（这意味着末尾有一个回车符号），包括1个整数。样例输入45 60样例输出180var a,b,c,a1,b1:longint;begin read(a,b); a1:=a; b1:=b; if ab then begin c:=a; a:=b; b:=c; end; while a mod b0 do begin c:=a mod b; a:=b; b:=c; end; writeln(a1*b1 div b);end.（3）1035题目描述编程求正整数M与N之间的所有素数的个数.（M=N）输入输入只有一行，包括2个整数M,N,之间用一个空格分开。输出输出只有一行（这意味着末尾有一个回车符号），包括1个整数。样例输入1 20样例输出8var n,k,m,i,s:longint;begin read(m,n);if m2 then m:=2; s:=n-m+1;for k:=m to n do for i:=2 to trunc(sqrt(k) do if k mod i=0 then begin dec(s); /dec是递减1的意思，就是s:= s-1 break; end;writeln(s);end.二、循环repeat语句1、格式：repeat 语句1； 语句2； 语句n;until 布尔表达式;2、while与repeat的区别：while循环与repeat循环都是条件循环，while是先判断后执行的循环，当条件不成立时退出循环；repeat是先执行后判断的循环，当条件成立时退出循环。即repeat循环先执行语句1到语句n，然后对布尔表达式进行判断，当条件不成立时，重复执行语句1到语句n，直到布尔表达式条件成立时，退出循环，执行until语句下面的语句。3、例：1020题目描述编程求1+3+5+.+n输入：输入一行，只有一个整数n (1=n=9999) 这里n为奇数。输出：输出只有一行样例输入99样例输出2500解法一：用次数循环for语句var n,i,s:longint;begin read(n); for i:=1 to n do if odd(i) then / odd叫奇数函数，用于判定变量是否为奇数 s:=s+i; writeln(s);end.解法二：用条件循环while语句var i,n,s:longint;begin read(n); i:=1; while i=n do /while 只要当 in 条件成立时循环退出。 s:=s+i; i:=i+2; until in; writeln(s);end.4、课堂练习：1053题目描述算算以.结束的一串字符中含有多少个大写的英文字母。输入输入一串字符，以.结束输出输出一行，即这串字符中大写字母的个数。样例输入PRC,PRC,Im from China.样例输出8varn:integer;c:char;beginrepeatread(c);if (c=A)and(c=Z)theninc(n);until eoln;/eoln为行结束函数writeln(n);end.三、字符串类型的应用1、部分字符串过程与函数操作类型 作用 返回值 例子 str(i,s)数值转换字符串过程 将数值i转为字符串s字符串i:=1234;str(i,s); s=1234pos(c,s)查找子串函数 求字符串c在s中的位置整型s:= 123.5;i :=pos( , s);i的值为1length(s)字符串测长函数 求字符串s的长度整型s:=abcde;l:=length(s);l的值为5copy（s,i,n)求子串函数 复制s中从i开始的n位字符串s:=123456789;s1:=copy(s,3,5);s1的值是34567+运算符 将两个字符串连接起来字符串s1:=1234;s2:=5678;s:=s1+s2;12345678字符串类型是一种特殊的数组类型，si代表字符串的第i位2、课堂练习：1071题目描述“扫描识别”你知道是怎么回事吧？它的意思就是：先用扫描仪把纸上的文字扫描成一个图片，再用识别软件把那个图片中的文字识别出来，最后生成一个文本文件。这对于需要把大量的纸稿录入成电子文档的人来说，当然是非常方便的。 以现有的技术，扫描效果是比较理想的，但识别效果还不十分另人满意，经常会出现错误，尤其是当两个字形状特别接近的时候，而且，这种错误是很难用眼睛看出来的。 我们的纸稿上有一个数字串，识别之后得到的字符串保存在输入文件中，这个串可能有识别错误。已知，可能出现的错误有如下几种： 1、把数字0错误地识别为大写字母O； 2、把数字1错误地识别为小写字母l； 3、把数字2错误地识别为大写字母Z； 4、把数字5错误地识别为大写字母S； 5、把数字6错误地识别为小写字母b； 6、把数字8错误地识别为大写字母B； 7、把数字9错误地识别为小写字母q。 你的改正方案是：如果字符串中出现了上述字母，请替换为原来的数字。最后把改正之后的数字串输出。输入只有一个字符串，表示识别后得到的字符串。串的长度不超过100。输出只有一个数字串，表示改正后的数字串。样例输入321lO88BqS样例输出3211088895var s:string; i:integer;begin read(s); for i:=1 to length(s) do /length是求字符串s长度的函数case si of O:write(0); l:write(1); Z:write(2); S:write(5); b:write(6); B:write(8); q:write(9); else write(si); end;writeln;end.四、课堂程序示例：1、1062题目描述在墙角堆放着一堆完全相同的正方体小木块，如下图所示：因为木块堆得实在是太有规律了，你只要知道它的层数就可以计算所有木块的数量了。输入只有一个整数 n ，表示这堆小木块的层数，已知1 = n = 100 。输出只有一个整数，表示这堆小木块的总数量。样例输入5样例输出35var i,n:integer;y1,y2:longint;begin read(n); for i:=1 to n do begin y1:=y1+i; y2:=y2+y1; end; writeln(y2);end.2、2284题目描述小X喜欢下棋。这天，小X对着一个长为N宽为M 的矩形棋盘发呆，突然想到棋盘上不仅可以放棋子， 还可以放多米诺骨牌。每个骨牌都是一个长为2宽为1的矩形，当然可以任意旋转。小X想知道在骨牌两两不重叠的前提下，这个棋盘上最多能放多少个骨牌，希望你帮帮他。输入第一行包含用一个空格隔开的两个整数N,M。输出第一行包含一个整数，表示该棋盘上最多能放的骨牌个数。样例输入2 3样例输出3var n,m:longint;begin read(n,m); writeln(n*m div 2);end.五