高中信息技术 pascal教程06 第六课 基本语句(四)教案 .doc

高中信息技术 pascal教程06 第六课 基本语句(四)教案 .doc

ID:56664326

大小:72.00 KB

页数:7页

时间:2020-07-02

高中信息技术 pascal教程06 第六课 基本语句(四)教案 .doc_第1页
高中信息技术 pascal教程06 第六课 基本语句(四)教案 .doc_第2页
高中信息技术 pascal教程06 第六课 基本语句(四)教案 .doc_第3页
高中信息技术 pascal教程06 第六课 基本语句(四)教案 .doc_第4页
高中信息技术 pascal教程06 第六课 基本语句(四)教案 .doc_第5页
资源描述:

《高中信息技术 pascal教程06 第六课 基本语句(四)教案 .doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、第六课基本语句(四)§6.1while语句其一般形式:WHILE<布尔表达式>DO<语句>;条件循环体N-S图表示:条件下一条语句循环体falsetrue流程图表示:WHILE语句主要用于循环次数未知而又需要循环的情况,它把循环和条件判断结合在一起。执行while语句时,先检查布尔表达式的值,当为真时,重复执行DO后面的语句,直到条件为假时才终止。若表达式的值从一开始为假,则DO后面的语句一次也不执行。【例】试运行下面程序。vari:longint;begini:=1;whilei<50dobegin

2、writeln(i);i:=i+3;end;end.这个程序将输出50以内的一个等差数列:14710131619……DO后面的语句(即循环体),应有修改WHILE后面的条件操作,否则会死循环。例如,上述程序中,如果少了i:=i+3;这句,i永远都是1,程序将无限地运行下去。不小心出现死循环怎么办?按Ctrl+Break强制中断程序运行。【例】输入一串字符,以‘?’结束,输出其中小写字母个数与数字个数。分析:输入字符包括字母(‘A’,‘B’,……,‘Z’,‘a’,‘b’,……,‘z’),数字(‘0’,‘

3、1’,‘2’,……,‘9’)和其它字符(‘+’,‘-’,‘$’,……),我们只统计其中的小写字母的个数和数字的个数。输入的字符用字符变量ch来存放,用num1,num2分别表示字母个数和数字个数。一级算法:1.将小写字母个数和数字个数清02.读入字符ch3.whilech<>’?’dobegin3.1判断ch是小写字母或数字,并将相应个数加13.2读入下一个字符chend;4.输出小写字母个数与数字个数二级求精:3.1判断ch是小写字母或数字,并将相应个数加1:ifch是小写字母(ch>=’a’)an

4、d(ch<=’z’)then小写字母个数加1elseifch是数字(ch>=’0’)and(ch<=’9’)then数字个数加1程序:programs601;varch:char;{ch存放读入的字符}num1,num2:integer;{num1小写字母个数,num2数字个数}beginnum1:=0;{将小写字母个数计数器清0}num2:=0;{将数字个数计数器清0}read(ch);{读入字符到ch}whilech<>’?’dobegin{循环体内的语句不止一句,所以要用begin和end括起}

5、if(ch>=’a’)and(ch<=’z’)thennum1:=num1+1{注意不能加‘;’}elseif(ch>=’0’)and(ch<=’9’)thennum2:=num2+1;read(ch);{读入下一个字符到ch}end;writeln(’numberofletter:’,num1);{输出小写字母个数}writeln(’numberofdigit:’,num2);{输出数字个数}end.在上面的程序中,有两个读字符ch的语句,这是必要的。如果没有第一个读ch的语句,在while语句头部

6、的布尔表达式ch<>’?’就无法确定ch的值。如果没有第二个读ch的语句(循环体中),就无法读其余字符,循环也无法结束,因为ch将永远是第一次读入的字符。§6.2repeat语句REPEAT语句也是用于循环次数未知而又需要重复执行的情况。REPEAT语句的特点是先重复执行,直到条件满足。其一般形式为:REPEAT<语句>;……UNTIL<条件>;条件循环体N-S图表示:流程图表示:truefalse语句n语句1条件当UNTIL后面的条件为假时,重复执行循环体的语句,直到条件为真时,循环结束,然后执行它

7、的下一条语句。其中REPEAT和UNTIL是配对使用,它们有相当于begin和end的作用,故循环体多于一个语句时,不必采用复合语句。REPEAT语句至少必须执行一次循环体,而且循环体中也要有影响循环结束条件的语句,否则会造成死循环。【例】求,其中项数n由键盘输入,n为整数,且n>0。varn,k:integer;sum:real;{sum为累加和}beginreadln(n);sum:=0;{累加和sum清0}k:=1;repeatsum:=sum+1/k;{将1/k累加进sum}k:=k+1;{k

8、加1}untilk>n;writeln(’Sumis:’,sum);{输出sum}end.程序:【例】用试商法判断质数(素数)。问题描述:输入一个大于1的整数N,若为质数,输出‘T’,否则输出‘F’。判断质数的方法:根据质数的定义,只要2到N-1都不能整除N,就可判定N为质数,这种方法被称为“试商法”。programs602;varx,i:integer;f:boolean;beginreadln(x);f:=true;i:=2;repeatifxmod

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。