pascal中repeat与goto语句

2*4*6*8*10=？（数据类型用longint） • • • • • • • • • • • • program chen(input,output); var i,s:longint; begin s:=1; i:=1; while i<=8 do begin s:=s*i; i:=i+2; end; writeln(s); end. • • • • • • • • • • • program chen(input,output); var i,s:longint; begin s:=1; i:=1; repeat s:=s*i; i:=i+2; until i>8; writeln(s); end.
Βιβλιοθήκη Baidu
2+4+6+8+……+n=？（n是用输入语句输入 的）
某学校初二（1）班准备挑选一名身材高的学生参加学校篮 球队，如何选出？
• 分析：从数学思维角度分析，先选择一人到讲台上，然后 第二个人上来痛第一个人比高低，身材高的留下准备痛下 一个人比较，身材矮的回到座位上，这样知道全班学生都 比较完。若有n为学生，则比较n-1次，最后留在讲台上的 学生就是身材最高的学生 • 从程序角度分析，从全班n位学生的身材高度数据放入变 量h中，设有一个计数器m来比较次数。再取另一名学生 的身材高度数据与h中的数据比较，身高高的数据放入h中， 矮的数据弃掉，计数器m的值加1。只要m值小于n-1，则 继续比较下去，若m值等于n-1则结束，输出h中的数据就 是最高学生身高数据。
循环语句
repeat语句
2*4*6*8*10=？
• • • • • • • • • • • •
（数据类型用longint）
program chen(input,output); var i,s:longint; begin s:=1; i:=1; while i<=10 do begin s:=s*i; i:=i+2; end; writeln(s); end.
Goto语句
goto语句是一种无条件转向语句，它可以控制直接从程序的一条语 句转向另一条语句。 goto语句的语法形式为：goto 标号； 其中标号必须是不超过4位整数的正整数或标识符组成，但标号必须 在说明语句中先予以说明。 goto语句会使程序出现一种称为“乱面条”的结构，因此你最好还 是不要去用。
Repeat语句
repeat 语句用于“重复执行循环体，一直到指定的条件为真时为止”。 语法格式为： repeat 语句1; …… 语句n; until 布尔表达式； repeat重复基本上有和while重复一样的描述循环计算的能力，但有一些 不同：在repeat语句的结构中，布尔表达式求值在计算操作之后，而while语 句中，布尔表达式求值在计算操作之前，也就是说repeat至少执行一次循环 体。while语句的成分语句只能是一个语句。因此，当重复动作包含多个语句 时，要用begin和end ，使它变成一个复合语句。而repeat语句的保留字 repeat和until已经起语句括号作用，可以包含多个语句而无须begin和end。 repeat语句中，当布尔表达式为true时结束循环，而while语句中，是当表达 式为false时才结束循环。当描述由计算操作后的情况确定重复是否继续进行 的计算时，通常用repeat语句描述。